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e Micro Connection 



FEATURES: 



1 ) Radio Shack compatibility 

2) Error free variable length records 

3) Full lower case detection and support 

4) Repeating Keyboard with NO keybounce EVER 

5) Shirt [0] typewriter keyboard option 

6) Execute only protection feature tor BASIC programs 

7) Automatic track support for 35 through 80 track drives (mixed) 

8) Device I/O handling with FORCE command 

9) Supports high speed clock modification (up to 4.0mhz) 

101 Supports mixed mode (single & double density) automatically 

1 1 ) Allows disable-enable of break key 

12) Allows user to define step rate per drive and re-configure system disk 

13) Allows for efficient use of double-headed drives 

14) Built in screen printer (shift [CLEAR]) with [BREAK] key abort 

15) Multiple command chaining with DO" 

16) Built in memory test with CLEAR command 

17) New printer driver which allows complete forms control and paging 

18) Automatic serial printer driver with optional auto linefeed 

19) Execute any DOS command from BASIC and return to BASIC 

20) Free space map of diskette with optional output to printer 

21) Copy with variable length files 

22) Complete RS232 control from keyboard with status check 

23) Create and pre-allocate files from DOS 

24) Display current date and time from DOS 

25) More information from Directory with optional printer output 

26) Enter DEBUG with shift [BREAK] to allow use of [BREAK] from BASIC 

27) New DlSKDUMP/CMD sector display/modify program (works with filespecs) 

28) New DISKZAP/CMD single/double density disk editor 

29) New BACKUP (more reliable, no more pack 10 check) 

30) New FORMAT (more reliable, no need to bulk erase disk first) 

31) New MAP utility (maps out disk, showing where files are located) 

New DOSPLUS Z80 Extended Disk BASIC 



'♦: 
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n; 
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14) 
15) 



Faster loads and saves 

BASIC Reference utility (lines, variables, keywords printer option) 

BASIC Renumber utility (renumber section of text, block text move) 

Shorthand teatures for almost ANY direct command (LOAD, SAVE, etc.) 

Shorthand features for editing (listing and editing with single key) 

CMD M instantly displays currently set variables 

Global search and replace in BASIC text 

Line printer TAB to 255 

OPEN "E to end of sequential file (for output) 

Dl (delete and insert text line) 

DU (duplicate text line) 

,R" & ",V" options after LOAD and RUN (files open & save variables) 
OPEN D' allowed (Model II compatible) equal to OPEN'R ' 
DOS commands from BASIC 
Automatic, error-tree variable length records 
Single step execution with TRON (fabulous for debugging) 
CRUNCH (BASIC program compressor) 
New TBASIC (tiny BASIC) otters full BASIC commands 
TBASIC and DOSPLUS together only use8K of RAM (40K left in 48K TRS-80) 



7 MORE UTILITIES 



1 ) Single drive copy 

2) Restore (dead files) 

3) Purge (unwanted files) 

4) Clearlile (destroys data by writing zeros to file) 

5) Transfer (moves all user tiles from one disk to another) 

6) Spooler (allows printing of text while treeing up the CPU) 

7) Crunch (Basic program compressor) 

***** ALSO ***** 

■ New I/O package 30% faster 

• No BREAK key death from DOS 

■ No closing killed files and ruining diskettes 



DOSPLUS gives you more of what you buy an opera- 
ting system for. Speed and reliability without sacrificing 
simplicity and power. If you need extra power without 
extra wait, then you need DOSPLUS! 

Single or double density systems available for Model I. 
Model III DOSPLUS ready for immediate delivery. 

Perhaps the best investment you can make for your 
TRS-80! Listen to what others have had to say about 
DOSPLUS. 

"Overall, DOSPLUS is the fastest operating system 
I have seen..." 

Pete Carr in 80-US Journal. 

"DOSPLUS. ..the better mousetrap." 

Stewart Fason in 80-Microcomputing 

"On a scale of 1 to 10, 1 give DOSPLUS a solid 9." 

Reese Fowler in 80-Microcomputing 
(Model III DOSPLUS review) 

For the BASIC programmer, our features are un- 
matched. For the average businessman, our speed and 
simplicity cannot be beat. 

So, join the satisfied users who have joined DOSPLUS. 
Experience excellence! Experience DOSPLUS! 

DOSPLUS comes complete with full utilities, PLUS 
a FREE patch to enable Model I Scripsit/Super 
Script to run on Model HI, UNLIMITED Backups! 



Model I DOSPLUS — s 99 95 

Model III DOSPLUS — s 99 95 

Model I double density upgrade — $ 175 °° 

Master Directory 1.2 (double density) — s 29- 



STEP ON THOSE 

DOS BUGS!! 
ORDER TODAY!! 
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Specializing in the Tandy Line 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 624-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 193 
Alaska and Hawaii dial (800)824-7919. Operator 193 
TOLL FREE LINES WILL ACCEPT ORDERS ONL Y ! 

r-or App'ications and Tecnmcai information call 
(305) 983-3390 or drop us a card 



Dealers inquiries invited 



TRS*80* C OMPUTING EDITION 

©1981 Percom Data Co., Inc. 
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Percom's DOUBLER II tolerates wide variations in media, drives 



GARLAND, TEXAS — May 22, 1981 — 
Harold Mauch, president of Percom Data 
Company, announced here today that an im- 
proved version of the Company's innovative 
DOUBLER" adapter, a double-density plusj-in 
module for TRS-80* Model 1 computers, is 
now available. 

Reflecting design refinements based on both 
theoretical analyses and field testing, the 
DOUBLER II", so named, permits even great- 
er tolerance in variations among media and 
drives than the previous design. 

Like the original DOUBLER, the DOU- 
BLER II plugs into the drive controller 1C 
socket of a TRS-80 Model 1 Expansion Inter- 
face and permits a user to run either single- or 
double-density diskettes on a Model I. 

With a DOUBLER II installed, over four 
times mc>re formatted data — as much as 364 
Khvtes — can be stored on one side of a five* 
inch diskette than can be stored usinc a stan- 
dard Tandy Model I drive system. 

Moreover, a DOUBLER 11 equips a Model I 
with the hardware required to run Model III 
diskettes. 

(Ed. Note: See "OS-80" Bridging the TRS- 
80* software compatibility gap" elsewhere on 
this page.) 

The critical clock-data separation circuitry 
of the DOUBLER II is a proprietary design 
called a ROM -programmed digital phase-lock 
loop data separator. 

According to Mauch, this design is more 
tolerant of differences from diskette to diskette 
and drive to drive, and also provides immunity 
to performance degradation caused hv circuit 
component aging. 




» 
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Mauch said "A DOUBLER II will operate 
just as reliably two years after it is installed as it 
will two days after installation." 

The digital phase- lock loop also eliminates 
the need tor trimmer adjustments typical of 
analog phase-lock loop circuits. 

"You plug in a Percom DOUBLER II and 
then forget it," he said. 

The DOUBLER II also features a refined 
Write Precompensation circuit that more 
effectively minimizes the phenomena of bit- 
and peak-shitting, a reliability-impairing char- 
acteristic of magnetic data recording. 

The DOUBLER II, which is fully software 
compatible with the previous DOUBLER, is 
supplied with DBLDOS", a TRSDOS'- 
compatible disk operating system. 

The DOUBLER 11 sells lor $2>Q5. me hid- 
ing the DBLDOS diskettes *|«|t<l.4S! 



Circuit misapplication causes diskette read, format problems. 

High resolution key to reliable data separation 



GARLAND. TEXAS - - The Percom 
SEPARATOR" does very well for the Radio 
Shack TRS-80' Model I computer what the 
Tandy disk controller does poorly at best: reli- 
ably separates clock and data signals during 
disk-read e>perations. 

Unreliable data-clock separation causes tor- 
mat verification failures and repeated read 
retries. 

CRC ERROR -TRACK LOCKED OUT 

The problem is most severe on high-number 
(high-density) inner file tracks. 

As reported earlier, the clock-data separa- 
tion problem was traced by Percom to misap- 
plication of the internal separator of the 1771 
drive controller IC used in the Model I. 

The Percom Separator substitutes a higfi- 
resohttiu7\ digital data separator circuit, one 
which operates at 16 megahert:, for the low- 
resolution one-megahertz circuit of the Tandy 
design. 

Separator circuits that operate at lower 
frequencies — tor example, two- or four- 



t 



megahert: — were found by Percom to provide 
Only marginally improved performance over 
the original Tandy circuit. 

The Percom solution is a simple adapter that 
lugs into the drive controller of the Expansion 

terrace (EI). 

Not a kit — some vendors supply an un- 
tested separator kit of resistors, ICs and other 
paraphernalia that may be installed by mod- 
ifying the computer — the Percom 
SEPARATOR is a fully assembled, fully tested 
plug-in module. 

Installation involves merely plugcinc the 
SEPARATOR into the Model I EI d.sk con- 
troller chip socket, and pluming the controller 
chip into a socket on the SEPARATOR. 

The SEPARATOR, which sells for only 
$29.95, may be purchased from authorized Per- 
com retailers or ordered directly from the fac- 
tory. The factory toll-free order number is 
1-800-527-1222. 

Ed. nuie: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. ^508 



Owners of original DOUBLERs may pur- 
chase a DOUBLER II upgrade kit, without the 
disk controller IC, tor S30.00. Proof of pur- 
chase of an original DOUBLER is required, 
and each IXXJBLER owner may purchase only 
one DOUBLER II at the $30.00 price. 

The Percom DOUBLER II is available from 
authorized Percom retailers, or may be ordered 
direct from the factory. The factory toll-free 
order number is 1-800-527-1222. 

Ed. note: Opening the TRS-80 Expansion In- 
terface may void the Tandy limited 90-day 
warranty. ^ 



All that glitters is not gold 

OS-80 Bridging the TRS-80* 
software compatibility gap 

Compatibility between TRS-80' Model I diskettes and 
the new Model III 1- aboui as genuine as a gold-plated lead 
Krugerrand. 

True, Model I TRSDOS' disketti s< 1 1 redd on a Model 
111. But first they must he converted and re-tecotded lor 
Model 111 operation. 

And you cannot u-rite to a Model 1 TRSDOS 'diskette 
with i Model III You cannot add a file. Delete a file. Or 

in any way modify a Model I TRSDOS diskette with a Model 

III computer. 

furthermore, your converted TRSDOS diskettes cannot 
be convened back for Model 1 operation. 

TRSDOS is a one-way street. And there's no retreating. 
A point to consider before switching the company's payroll 
ID s > ii ir neu Mndel HI. 

Real software compatibility should allow the direct, iwi 
mediate interchangcahihty of Model 1 and Model III disket- 
tes. No read-only limitations, no conversion/re-recording 
steps and no chance to be left high and dry with Model Hi 
diskettes that can't be mn on a Model I. 

What's the answer? The answer is Percom's OS-80® 

family of TRS-80 disk operating systems. 
OS-80 programs allow fai . i immediate interchangeability 

Of Model 1 and Model 111 d.skettes. 

You can run Model 1 single-density diskettes on a Model 
111; install Percom's plug-in DOUBLER** adapter in vour 
Model I. and you can run double-density Model 111 diskettes 

On .i Model I 

There's no conversion) no re-recording. 

Slip an OS-80 diskette out ol vour Model 1 and insert it 
directly in a Model III. 

And vice -versa. 

Just have the correct OS-80 disk operating system 
i 6 80 OS-80D or OS-80/lll — in each computet 

Moreover, with OS-80 Systems, you can add, delete, and 
update tiles. You can read and untie diskettes regardless oi the 
system pi origin, 

05-80 is rhe original Percom TRS-80 DOS for BASIC 
proerammers. 

i OS-80 utilities are written in BASIC. 

OS-80 is the Percom system about which a user wrote, in 
Creative Computing magazine, " . the best I30.0C •• i 
will ever spend. "t 

Requiring only seven Kbytes of memon o*- 80 disk i| ei 
Bring systems reside o mpletel) "> RAM. There's no need to 
dedicate a drive ex< lusivel) fi i system diskette. 

And, unlike TRSDOS, you can work ai the track seen - 

level, defining and controlling data formats — in BASIC — 
to create simple or complex «lata structures that execute 
more quickly than TRSDOS tiles. 

The Percom OS-80 DOG ■> ; single-density < i 
tion of the Model I computet price is $29. 95; rjie( >S-80D 
supports double-density operation of Model I computers 
equipped with a DOUBLER or DOUBLER II. and. OS-tH> 
111 — lor the Model 111 of course — supports both single- and 
douhlc-densirv operation OS-80D and OS-SuVlTl each 

sell for $49.95. ^429 
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Computerization of the 110 
Workplace 

by Chris Brown 

Despite the promises of true believers, the 
rebirth of the American workplace for the 
better has yet to arrive. In fact, things may 
have gotten worse. 



Digital Delivery 112 

by Bert Latamore 

For a long time, friendly neighborhood post- 
men have been tempting morsels for the 
Fidos of this world, but soon man's best 
friend may be confronted with a mailman 
that bytes back. 



Paper Mountain byTheron Wierenga 118 

No need for nuts, ropes, carabiners and crampons for traversing 
this peak— just a Model II and 64K of memory. 

Investment Property Analysis by Leslie e. sparks 1 44 

Before the big bucks begin to roll in, investing in real estate can 
be a tedious grind, unless you make your computer your calcu- 
lating partner. 



The Ups and Downs 176 

of Graphs 

by Richard Foley 

A picture is always worth a thousand num- 
bers, even if it's only a line drawing. 

Users Groups 272 

compiled by Michael Nadeau 

Some grassroots data on groups that have 
taken root across the nation. 
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$0 REMARKS 



by Wayne Green 



"... nothing like this is simple. 

Involved was. . . another unit 

which had been zapped by lightning. . . " 



Bum Rap for Lynx 

[ he modem review in the September 
issue ("Spanning the Electronic Na- 
tion," page 134) came down hard on the 
Lynx people, who responded with cries of 
anguish and foul play. After looking into 
their product I'm inclined to agree that 
they got a shafting this time. 

Of course, nothing like this is simple. In- 
volved was an old prototype system which 
had been kicking around our offices for 
months, plus another unit which had been 
totally zapped by a lightning strike nearby 
while it was in use. Add to that some 
severe phone company problems in mere- 
ly getting the signals to the modem in 
useful shape. 

On the positive side for Lynx, I don't re- 
call any complaints from readers about 
the unit, and since I encourage this type of 
communication, I generally get quick 
feedback when there are product prob- 
lems. And it has not escaped my notice 
that the Lynx unit has been used in most 
of the service net demonstrations at 
shows. 

The Lynx people are moving rapidly in 
their development of the modem technol- 
ogy, working towards 9,600 baud commu- 
nications. I visited their plant and 
watched some new products run through 
their paces. We may soon have an article 
on their new model, which is due soon and 
carries automation of the modem busi- 
ness much further. 

I was not dismayed to discover two of 
their top people are hams. Most micro- 
computer firms seem to have hams in- 
volved, so I wasn't really surprised. 

Their current model uses state-of-the- 
art design and construction and worked 
like a charm despite anything I could do to 
screw it up.B 



The Office Revolution 

\A#ill the day come when we really 
' ■ don't need secretaries any more? 

I'm convinced it will and I think I see the 

way it will come about. 
The first step is the normal executive 



desire to have the latest in gadgets. This 
will bring the computer to the elbow of the 
executive (as soon as some furniture firm 
wakes up to the need for an executive 
desk placing the computer where it is 
handy to use). 

The computer will begin by providing in- 
stant interoffice communications, access 
to data for decision-making, E-Z Calc 
worksheet planning and so forth. The 
word processor will encourage sending 
notes in answer to business letters, get- 
ting us into a much less formal correspon- 
dence style. Once we can live with a 
business letter which does not have to re- 
assure the recipient of his name and ad- 
dress, much of the secretarial role will 
have faded away. 



Will the day come 

when we really 

don't need 

secretaries 

anymore?" 



Our computers will be able to remember 
addresses, file correspondence copies, 
and all those lovely things the secretary 
used to do. 

Considering the problem of finding 
good secretaries, the path of least re- 
sistance for executives will be to de- 
pend more and more on that computer by 
their side. 

Speaking of which, it's been some time 
since I've written about the need for 
smaller computers or terminals which are 
connected to the office computer system 
via a radio link instead of the usual um- 
bilical cord. We have radio telephones 
now, so separating the computer from the 
system by a radio link is not a big step. 

We're remote-controlling our televis- 
ion sets and lights, so why not our 
computers? My concept of the coming of- 



fice computer is one that will be much 
like a hard bound book, with an LCD 
display inside the cover which can be 
read when you lift the lid. The keyboard 
will be like those on the hand-held com- 
puter systems, though in typewriter key- 
board format. 

With a portable terminal like this you 
would be able to use it as a computer by 
itself, or, if you were around a host 
system, you could dump letters for print- 
ing, access data, and communicate with 
others via it and the phone lines. 

Recent calculator-sized television sets 
have an LCD screen which seems easily 
adaptable to our needs. Other than mak- 
ing things a bit smaller, there isn't a lot 
more to invent before we have this new 
type of micro-micro computer. ■ 



TRS Typesetting? 

\A/ell, yes, to some degree it is coming 
¥W to that. 

More and more of the larger typesetting 
systems are able to accept material over 
phone lines. Instead of tying up machines 
costing $15,000 or so while setting manu- 
scripts in type, it is possible to use the 
TRS with a good word processor program 
and dump the copy directly into the type- 
setting system. 

Once you have a communications inter- 
face for a typesetting system, material 
can be accepted over the phone lines from 
authors, or run from disks or cassettes in- 
to a TRS and sent to the typesetter. I think 
we will be seeing more microcomputers 
used to write material for publication and 
to edit it. 

We're nearly ready to handle columns 
and even articles submitted on disk or 
cassette. We'll edit them on a TRS and 
and then send the material to our type- 
setting system. There an operator will 
add the typesetting instructions. Since 
this takes a fraction of the time required to 
type the article, the flow of material 
through this end of the publishing cycle 
will be speeded up and costs cut substan- 

Continued on page 48 
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"It will be satisfactory 

for virtually all personal 

computer communications." 



Lynx Modem 
Reconsidered 



September's review of modems (Span- 
ning the Electronic Nation, page 134) drew 
loud cries of "foul" from Emtrol Systems, 
manufacturers of the Lynx modem (and 
from Lynx owners who wrote and called 
by the dozen to defend their machines). 
Yes, there were some problems with the 
review, and in fairness to Emtrol, I would 
like to explain briefly the events leading to 
the review and expand some comments 
about the modem. But first, two correc- 
tions: the Lynx board was manufactured 
on Mil. Spec. FR-4 epoxy glass, not pheno- 
lic material as I stated. Also, the current 
price is $299, not $249. 

I spoke with John Bickel of Emtrol Sys- 
tems, who took a great deal of time ex- 
plaining Emtrol's philosophy, and in help- 
ing me track down exactly the unit I had 
used for review. He discovered that the 
Lynx machine I obtained through 80 Mi- 
crocomputing was a prototype intended 
for product news, not a production unit in- 
tended for review. Therefore, the terminal 
program and documentation were prelimi- 
nary, and some of my conclusions about 
the unit's operation were consequently in- 
valid. The current documentation provid- 
ed by Emtrol is a 12-page, typeset booklet 
printed on heavy paper. Likewise, Mr. 
Bickel informs me that the dumb terminal 
program currently being shipped with the 
Lynx is reliable and exhibits no fragility. 

Let me try to add some perspective to 
why I would put this prototype up against 
production units. The review process was 
begun over 15 months ago. Articles, espe- 
cially long ones with photos or diagrams, 
go through an extensive in-house prepara- 
tion process; this review was submitted at 
the end of 1980. During the interim, I made 
a few changes to the article, but my con- 
clusions about the Lynx remained the 
same. Why no changes to the Lynx com- 
ments? Because, ironically, the two Lynx 
production machines I saw during that 
preparation period performed even less 
adequately than the copy I reviewed. This, 



Mr. Bickel tells me, is simply unlucky hap- 
penstance. One modem is Emtrol's "clas- 
sic service problem," and not at all repre- 
sentative of their product. Furthermore, 
the present Lynx model is the third gener- 
ation in production; I saw a mere proto- 
type of the first generation. 

I accept that information. I was not 
aware that I had a preliminary machine in 
my hands, nor were other 80 staff mem- 
bers. A prototype cannot be expected to 
perform with the finesse of a final prod- 
uct; in support of Mr. Bickel's contention, I 
understand software giants Lance Mick- 
lus and Scott Adams both endorse the 
Lynx, as does Charlie Butler of The Alter- 
nate Source, and it is used by many com- 
panies for demonstrations at computer 
expositions. 

Mr. Bickel has also questioned my 
presentation of the Lynx's use of ports 
232-235 (the same ones used by Radio 
Shack, and disallowing the use of the 
Shack's RS-232 board) as a deficiency in 
the unit. In fact, he says, Emtrol's design 
objective was to make the Lynx perform 
with the entire body of standard Radio 
Shack and independent communications 
software. This software is all written for 
the 232 area, thereby making the Lynx the 
most widely useful and compatible mod- 
em available. I do not withdraw my objec- 
tion to this philosophy, because I must 
use my RS-232 board for computer-to- 
computer communications without using 
a modem. But I do agree with Mr. Bickel's 
observation that the majority of TRS-80 
users will probably invest in only one com- 
munications device. In light of this, the 
Lynx unit is in fact easier to get up and 
running than the RS-232 board/acoustic 
modem combination provided by Radio 
Shack, and will be preferred by many 
TRS-80 owners. Very few users, Mr. Bickel 
suggests, will face the conflict I present- 
ed. Therefore, though the Lynx would not 
suffice for me, it will be satisfactory for vir- 
tually all personal computer communica- 
tion applications. Furthermore, the Model 
III version (because of differences in the 
Model III port hardware) does not conflict 
with any internal communications devic- 



es inside the computer. 

I mentioned that the Lynx's parts layout 
was not compact, and suggested that this 
might contribute to noise problems within 
the Lynx. Mr. Bickel disagrees, and sug- 
gests that any minor problems with the 
preliminary unit were unrelated to layout. 
Yet the electronic production industry has 
for some time suggested that compact- 
ness is in fact a very important considera- 
tion in digital circuitry (Electronic Packag- 
ing and Production, December 1980 and 
August 1981. As an aside, recent analysis 
shows that even flat PC board traces are 
more subject to noise than rounded ones!) 
Mr. Bickel points out that the Lynx board 
was professionally designed, and con- 
cludes that his vendors did not violate 
any standard design parameters. On this 
point, our theoretical disagreement stands. 

The Lynx also has a few advantages I 
failed to point out: unlike the Microcon- 
nection, its power supply plugs in rather 
than needing attachment with a screw- 
driver. And no additional cable is needed 
to hook the unit up to the telephone lines 
(since a double jack is a part of the Lynx 
unit), whereas an additional hookup is not 
provided with the Microconnection. That 
makes the Lynx the only unit of the three 
"complete as shipped." 

There was no intention on my part to (as 
one correspondent called it) "cold shoul- 
der" the Lynx, but only to review the units 
in comparison with each other. In fact, I 
felt that my negative comments about the 
Lynx were quite mild, because I am not so 
naive as to believe manufacturers will not 
improve their product if they discover any 
limitations. Therefore, for the factual er- 
rors pointed out in the first paragraph 
above, I apologize to Emtrol and Lynx 
users. I look forward to receiving a new 
Lynx unit for review, and will report to 
readers as soon as possible. In the mean- 
time, let me reiterate that the Lynx has 
been well received over the past year, and 
deserves the serious consideration of any 
reader about to enter the world of com- 
puter communication. 

Dennis Bathory Kitsz 
Roxbury, VT 
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META TECHNOLOGIES 

26111 Brush Avenue, Euclid Ohio 44132 
CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



THINGS TO 



PERSONAL COMPUTER 

BY MARK SAWUSCH 



$7.95 



333 pages, written in simple terms, of 
"what-to-do" and "how-to- do- it". Suitable 
not only for microcomputers, but for pro- 
grammable calculators as well. Includes 
program listings, formulas, a glossary of 
computer terms and more! Definitely a 
MUST BUY! 

A PARTIAL LIST OF APPLICATIONS 

Real Estate Evaluation Test Your Typing Speed 



Astrology 
Income Tai 
Speed Reading 
Personality Test 
Statistical Analysis 
Logic Circuit Analysis 
Carpenter and Mechanic's Helper 
General Purpose Clock Timer 



Finances & Investments 

Biorythm 

Energy Efficiency 

Antenna Design 

Letter Writir^ 

Recipe Index; Calculator 



"OTHER MYSTERIES" 
VOLUME III 

by Dennis Kitsz 

Call now and place your order for this new 
book. "THE CUSTOM TRS-80™ & OTHER 
MYSTERIES", from IJG, Inc. More than 
300 pages, with over 60 photographs, of 
projects for the hardware hobbyist. In- 
cludes schematics. PC layouts, software 
driver code. etc. for such do-it-yourself 
undertakings as high resolution graphics, 
reverse video, real-time clock/calender, 
music synthesis. ROM/RAM additions and 
more! 

THE CUSTOM TRS-80™ $29.00 

CALL FOR AVAILABILITY 



MICROPA RA PHERNALIA 

NEWDOS by APPARAT 

NEWDOS/80byApparat S139.95 

NEWDOSUPGRADE .. CALL 

NEWDOS + with ALL UTILITIES 

35-track $69 95 

40-track $79 95 

BOOKS 

TRS 80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $24.95 



META NOTATIONS. . . 

MTC introduces its FREE computer "bulletin 
board" service. Set up your terminal or ter- 
minal software for 300 baud, parity disabled. 
8-bit word length, and 1 stop bit. Dial (216) 
289-8689. After the connection is established, 
type LOGIN META. When asked for a valida- 
tion code, type META. Have fun! 

In a couple of months MTC will introduce the 
successor to AIOS-III/CALCS. It is called 
AIDS/P- and is based on MTC's PRIMAL- 
(Practical Relational Information Manage- 
ment Applications Library), a powerful 
system for PRIME minicomputers. AIDS/P 
features the best of the critically acclaimed 
AIDS III CALCS but is probably an order of 
magnitude beyond it in power. It will be first 
made available to AIDS lll'CALCS owners (for 
an upgrade charge), then to the general 
public. Price will be in the S200S300 range. 

Effective September 1. 1981, Metatronics Cor- 
poration became a subsidiary of MTC. 
Metatronics will carry the complete MTC 
product line in addition to its own. Order pro- 
cessing and fulfillment departments have 
been combined to improve service response 
levels. MTC's superior software and supplies 
marketing, and Metatronics exceptional 
peripheral offerings should prove to be a 
fomidable combination. (Sorry guys, if you 
can't beat us, join us . . .) 

MTC now offers a more complete selection of 
diskette products (ad deadlines prevented in- 
clusion in anything but this column). New 
manufacturers are MAXELL and 3M. Definite- 
ly call for specific Information. For example. 
MAXELL Brand 5V. " diskettes in a PLASTIC 
LIBRARY CASE are only $34.95 for a box of 
10! SCOTCH Brand diskettes are comparably 
value-priced. MTC is also introducing its own 
PARAGON"" Brand media products. The in- 
tent is to offer a super-high quality product at 
a very competitive price. For example, a box 
of 10 single-sided, soft-sectored, double- 
density. 100% certified diskettes with HUB 
RINGS is only $24.96! A full line of products 
(including HEAD CLEANING KITS, etc.) will 
be offered. The PLAIN JANE"- (almost 200,000 
units sold) diskette line will become part of 
the PARAGON-" MAGNETICS operation (but 
don't quote us verbatim). 



Let your TRS-80™ Test Itself With 

THE FLOPPY DOCTOR & 
MEMORY DIAGNOSTIC 

by David Stambaugh 

A complete checkup for your MODEL I or 
MODEL III. THE FLOPPY DOCTORVersion 3 
completely checks every sector of single or 
double density 35-. 40-, 77-, or 80-track disk 
drives. Tests motor speed, head positioning, 
controller functions, status bits and provides 
complete error logging. THE MEMORY 
DIAGNOSTIC checks for proper write/read, 
refresh, executability and exclusivity of all ad- 
dress locations. Includes both diagnostics and 
complete instruction manual. 

SYSTEM DIAGNOSTICS $24.95 
For MODEL III $29.95 



Single Sided, Soft-Sectored 5 1 .-inch, 
(for TRS-80™) Mini-floppy 

DISKETTES 



$19 



95 



box of 10 



PLAIN JANE™ 

These are factory fresh, absolutely first 
quality (no seconds!) mini-floppies. They are 
complete with envelopes, labels and write- 
protect tabs in a shrink-wrapped box. 

PLAIN JANE™ Diskettes $19.95 



PLAIN JANE™ 



9M 



Introducing MTC's premium generic 
diskette. Single-Sided. Soft-Sectored. 
DOUBLE-DENSITY. 5V'4-inch diskettes with 
reinforcing HUB-RINGS. Individually 100% 
ERROR-FREE certified. Invest in GOLD! 

PLAIN JANE™ '//«/«/ $24.95 

VERBATIMS PREMIUM DISKETTES 

DATALIFE" 

Seven data-shielding improvements mean 
greater durability and longer data life. 
These individually, 100% error-free cer- 
tified diskettes feature thicker oxide 
coating, longer-lasting lubricant, improved 
liner, superior polishing and more! Meets 
or exceeds IBM, Shugart. ANSI, ECMA 
and ISO standards 

VERBATIM DATALIFE™ DISKETTES 

5'/4-inch (box of 10) 

MD525-01 $26.95 

10 boxes of 10 (each box)$25.95 

8-inch FLOPPIES 

Double Density. FD34 8000 . $43.95 



'RINGS' & 
THINGS 

HUB RING KIT for 5V4" disks $10.95 

HUB RING KIT for 8" disks $12.95 

REFILLS (50 Hub Rings) $ 5.95 

CLEANING KIT for 5V»" drives $24.95 

5'/4-inch diskette case $3.50 

8-inch diskette case $3.95 

5 Va -Inch File Box for 

50 diskettes $24.95 

8-inch File Box for 

50diskettes $29.95 



TRS-80 is a trademark of the 

Radio Shack Division of Tandy 

Corporation DATALIFE is a 

trademark ol VERBATIM. PLAIN 

JANE. AIDS I. AIDS III. CALCS III. 

CALCS-IV, MERGE-III art 

trademarks ol MTC. 
1981 by Metatechnologies 
Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 
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Maxi Micro Manager 

I wish to thank your magazine and 
Wynne Keller, the author, for the fair and 
impartial review that our program, "Maxi 
Micro Manager" received in your recent 
article, "Choosing a Data Base" (August 
1981). Such an article has been long 
awaited and needed by the buying public 
to help in determining which of the many 
data base programs are best suited to in- 
dividual needs. 

However, as is the case in most re- 
views, errors and omissions occur. I would 
like to take this opportunity to correct the 
most obvious and set the record straight. 
First and foremost, the program reviewed 
by Mrs. Keller was one of our earlier re- 
leases. Both the name and the software 
has changed. The name was changed in 
January 1981 due to a conflict with 
another software package; the new name 
is Maxi Manager System. I hope that your 
readers take note so as not to purchase 
the same program twice. 

I am pleased to say that we have just re- 
written the MMS documentation and now 
include several simple, easy to follow ex- 
amples covering all aspects of the pro- 
gram's functions. The new manual (over 
120 pages) is now distributed in a three- 
ring binder to facilitate the addition of 
new pages as new features are added. 
Several sections of the previous manual 
have been retained but are now relegated 
to the technical reference section. 

One of the major enhancements of the 
new A. 3 version of MMS involves the ini- 
tialization of a new data base. As stated in 
your review, "this takes time; go have a 
cup of coffee or lunch if you have several 
drives." With the A.3 version, the entire 
process takes less than two minutes. 
While the article mentions that MMS 
limits the length of any single field to a 
maximum of 40 characters, it doesn't 
mention that MMS allows a single record 
to contain a total of 800 characters, unlike 
both CCA and ADISIII, which limit record 
size to a maximum of 255 characters. 

The article goes on to say that MMS 
rarely allows the user to exit from a 
routine once started. This is not true. 
Video screen prompts usually provide 
safe exits back to the main menu of the 
program. Input is also said to be slow due 
to the use of a flashing cursor. While it is 
true that MMS does use a high speed ma- 
chine language INKEY$ routine, its speed 
of character acceptance (on Model 1 ver- 
sions) is variable and can be set by the 
user to correct for Model I key bounce pro- 
blems. Perhaps Mrs. Keller set the Key De- 
bounce Factor to its slowest setting. 

The Select features of MMS have also 



changed. A sixth search criteria, 'NOT IN- 
STRING' has been added, logical And/Or 
relationships may now be establised be- 
tween fields as well as within fields, the 
masked search feature has been cor- 
rected and now properly works with nu- 
meric fields. The most useful new feature 
of all is Maxi Manager's ability to locate 
records regardless of the upper/lower- 
case spelling of the selection criteria or 
data contained within the data base. 

Mrs. Keller also fails to mention the 
Search and Delete feature, handy when 
maintaining subscription lists. While it is 
true that "MMS allows paging back or for- 
ward to the next record in the file," the 
software also allows paging forward to 
the next record in the search. 

Perhaps the most welcome new feature 
of all is the Multi-Level Sort. We have to 
agree with Mrs. Keller when she states 
that if a data base cannot sort at least two 
fields at once, it is seriously flawed. 
Copies of the program that are delivered 
after August 15 will include this new fea- 
ture. Also, registered owners will be noti- 
fied and offered the upgrade. 

Last but not least, we have listened to 
our user's problems regarding our sophis- 
ticated print module. The A.3 version of 
MMS includes a new utility entitled Docu- 
file. This utility enables the most inexper- 
ienced MMS user to easily create the re- 
quired print documents (labels, reports, 
letters, etc.). 

We also see the need for different data 
base software for varied applications. In 
this regard, we share Mrs. Keller's senti- 
ments regarding the AIDSIII package and 
now include a utility that allows AIDSIII 
files to be merged into MMS files. This op- 
tion allows small data files to be created 
with AIDSIII; then when the files grow and 
become unmanageable, one simply 
merges them into MMS. This feature indi- 
rectly gives AIDSIII the ability to hand- 
shake with a word processor. 

Dale Kubler 
Exador, Inc. 
Roswell, GA 



Improved Version 



I was unable to examine the new ver- 
sion of the Maxi Manager database pro- 
gram (formerly called Maxi Micro Man- 
ager, from Adventure International) in 
time to include comments on it in "Choos- 
ing a Data Base" (August 1981). 

Since then I have used it extensively 
and have noticed considerable improve- 
ment over the earlier version reviewed in 
the article. A new printing utility program 
greatly simplifies the printout process. It 



is no longer necessary to use a word pro- 
cessor to create a file of report com- 
mands. The printing utility program may 
be requested instead. This utility allows 
all margin, paging, column and row op- 
tions to be set by answering simple ques- 
tions. I would now rate Maxi Manager 
easier to use than CCA for generating 
reports. A word processor such as Scrip- 
sit or Electric Pencil must still be used for 
form letter applications or for reports 
which need explanatory text. 

Wynne Keller 
Solon, ME 

CCA Data Manager 

As co-author of the program CCA Data 
Manager, sold by Personal Software, I 
was pleased to see it reviewed in the 
August issue of 80 Microcomputing. The 
reviewer, Wynne Keller, did a fine job 
pointing out the strengths and differences 
of the three products. 

There are two errors in the review re- 
garding the CCA Data Manager, however. 
The arithmetic capabilities actually do 
provide exponentiation, including roots. 
Also, the report writer does allow a sorted 
file to be processed without exiting the 
program and re-naming with TRSDOS. 
Refer to the numbered message explana- 
tions at the back of the manual for instruc- 
tions on these features. 

Chet Floyd 
Manhattan Beach, CA 

Profile Left Out 

I am an avid fan of 80 Microcomputing 
and have been since its inception. I have 
noticed, though, that most of your authors 
tend to downgrade anything to do with 
Radio Shack. One article in particular con- 
cerned me enough to make me sit down 
with my super homebrew letter-writer for 
the Model III and write you this note. 

The article by Wynne Keller, "Choosing 
a Data Base," spoke of three data base 
programs. The article was well written and 
did describe the three programs fairly well 
(I have two of the three), but the author 
omitted Radio Shack's Profile for two 
weak reasons: It can only sort one field at 
a time; and it cannot perform calcula- 
tions. The author excused MMS for the 
same faults. 

Now to Profile. Currently, we use two 
Mod Ills and one Mod I to adjunct our 
main edp effort. Many of the programs we 
use are either on Profile or are homebrew. 
We use no other canned programs, be- 
cause most business programs are either 
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MTCAIDS- 



TM 



MODEL I . . $69.95 MODEL II . . $99.95 

Introducing the latest addition to MTC's family of data management systems. AIDS III. NO 
PROGRAMMING, easy to use COMPLETE PACKAGE including demonstration application, 
documentation and MAPS III (see below) 

• Up to 20 USER DEFINED FIELDS of either numeric or character type. 

• CHARACTER type fields may be any length (total: up to 254 characters). 

• NUMERIC-type fields feature automatic formatting, rounding, decimal alignment and 
validation 

• Full feature EDITING when adding or changing records: 

ENTER FIELD ican't type-m more characters than specified* 
BACKSPACE (delete last character typed) RIGHT JUSTIFY FIELD contents 

DELETE FIELD contents SKIP FIELD (to next or previous field). 

RESTORE FIELD contents - SKIP RECORD (to next or previous record) 

• SORTING of records is MACHINE CODE assisted, 

200 RECORDS (40 characters) in about 5 SECONDS 

- ANY COMBINATION of fields (including numerics) with each field in ascending or 

descending order. 

• SELECTION of records for Loading, Updating, Deleting. Printing and Saving is 
MACHINE CODE assisted 

Specify up to 4 CRITERIA, each using one of 6 RELATIONAL COMPARISONS. 
LOAD or SAVE selected records using MULTIPLE FILES 

- Example. Select records representing those people who live in the state of Col 

orado, but not in the city of Denver, whose last names begin with "F" 
and whose incomes exceed $9000. 00. 
Example Select records representing those sales made to XYZ COMPANY that 
exceed S25 00, between the dates 03/15 and 04/10. 

MAPS Ml (MTC AIDS PRINT SUBSYSTEM), included at no charge, has the following features 

• Full AIDS III SELECTION capabilities. 

• Prints user-specified fields DOWN THE PAGE 

• Prints user-specified fields in titled, columnar REPORT FORMAT, automatically 
generating column headings, paging and (optionally) indentation 

• Can create a single report from MULTIPLE FILES. 

• Prints user-defined formats for CUSTOM LABELS, custom forms, etc. 

BELOW ARE TESTIMONIALS from owners of AIDS systems These are absolutely authentic 
statements and are typical of the comments we receive. 

"This program will do more for my business than all the other programs I 
have, combined " 

David Wareham. Vice President (EDP). National Hospital and Health Care Services Inc. 

"We have 32 different Data Base Management packages for the TRS-80. AIDS-III is easily 

the best. It also makes it easier for us to step up to our Model II since the package is 

available for both computers." . n . . n . an .. ? 

Jack Bihnski, President, 80 Microcomputer Services 

Your AIDS program is far and away the finest information management system that I've 
ever seen. I am currently using it to maintain a clear picture of the demographic data on all 
the kids in our residential treatment program and it is working for me superbly." 

Frank Boehm, Director, Front Door Residential Treatment Program 



MTC AIDS CALCULATION SUBSYSTEM- 

MODEL I . . .$24.95 MODEL II . . .$39.95 

MTC's most popular AIDS subsystem. Use 
for report generation involving basic 
manipulation of numeric data. Features are: 

• User-specified page title 

• Columnar Headings 

• Optional Indentation 

• Jse for accounting, inventory, financial 
and other numeric- based information 
systems. 

Compare AIDS-llf"/CALCS-llf M with any other data management package under $100! 
REQUIRES THE PURCHASE OF AIDS 



Columnar subtotals generated when 
there is a change in a user-specified 
column. 

User-specified Columnar Totals 
Columnar values computed using con- 
stants and 'or column values 
Balance forward calculations (Ex: Gross 
sales equals previous gross sales + sale 
amount + sales tax). 



CALCS-I 



AIDS OWNERS! 

WE HAVE WHAT 

YOU'VE BEEN 

WAITING IV. . . 

MTC CALCS-IV™, that is. 

• More Computations 

• Save Report Formats on Disk 

• Faster, and more! 

MTC CALCS-IV™ $39.95 

For Model II $59.95 



MTC AIDS MERGE-III™ 

[This subsystem will combine up to 14 AIDS- 
I created data files into a single, large file. An op- 
tional purge capability removes duplicate entries 
while performing the merge operation (can even 
be used to eliminate duplicates in a single file). 
Machine-code assisted for high-speed perfor 
mance, MERGE-IIITM properly handles files sorted 
by any combination of fields, including numerics, 
with each field in ascending or descending order. 

MTC AIDS MERGE-III™ S19.95 

For Model II $29.95 



THE COMPLETE 

MTCAIDS- 111 ™ 

PACKAGE 



Includes MTC AIDS-III™ 
CALCS-I 1 1™ and MERGE-III™ 

A comprehensive system 
at a competitive price! 

MODELI&III $99.95 

MODELII $149.95 

Add S25 for CALCS-IV™ 






MORE 

PRODUCTS 



v 
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poor and don't really fit, or are so com- 
plicated that you must hire a programmer 
to operate the thing. Profile makes better 
use of disk space than any other data 
base program. It will accept up to four disk 
drives for one record. True, you wait 
awhile for the files to be formatted, and 
the sort is very slow, but the amount of 
files per disk is fantastic. 

With MMS, you must call up another 
program in order to perform calculations. 
With Profile, you can write a basic pro- 
gram to call up Profile data direct from the 
disk and accomplish the same thing — 
automatically, if you want. I can even sort 
with a separate machine-language module, 
put Profile data on Visicalc, and hand- 
shake with Scripsit. 

Profile is disk-based at all times. You 
will never lose the data during a power 
failure, except for the entry you didn't 
have time to save. Incidentally, the com- 
parative number of files per disk (drive 
with DOS), say of a file whose length is 132 
characters including 16 spaces for print- 
out, is AIDS = 187, MMS = 437, PRO- 
FILE =1340. 

A. R. Pedrick 
Kissimmee, FL 



Modifying Tiny Pascal 

When Lt. Harrel's "Modifying Tiny 
Pascal for Disk" first appeared (July 1981) 
I didn't have disk drives. I received them 
late last month and one of the first things I 
did was code his PAS32K<PASMOD> fix. 
After several attempts I succeeded in get- 
ting the compiler on disk. I then entered 
the Filesave and Fileload programs on 
disk and saved them to disk. Using the 
short programs provided with Tiny Pascal 
I tested the new disk modification and 
was very pleased. 

The real test came when I coded his ver- 
sion of Breakout using the Tiny Pascal 
tape. I attempted to save it as he had in- 
structed and nine tenths of the way 
through, I got an overflow error in line 10. 

Lo and behold, this program was ap- 
proximately 3432 bytes (1991 codes). It 
began loading at &H73FO (29680) and 
continued through decimal 33112. As 
soon as AD = &H8000 (32768) an error is 
generated. 

I found that by adding the lines below 
you will be able to continue to read 
beyond &H7FFF: 

• Increase each line number by ten. 

• Now J = PEEK (AD) is line 100. 

• Insert: 106 If AD = 32767 then GOTO 170 
160 FD = AD-65535:AD=FD: GOTO 100 
170 A$ = A$ + CHR$(J): GOTO 160 

Now when J = PEEK (32767) it will 



branch to 170, store the byte found there 
and return to 160 in order to convert to the 
negative numbers (-32767 through -1) 
in a 32 or 48K machine. 

I thoroughly enjoyed hisZ-Bug program 
and was successful in getting it up-high 
and on disk. However, in module 4, page 
160 he defines the catalog and copy mes- 
sages as MS and calls them as MSG1, 
MSG2, etc . . . could be a typo. 

The Basic disassembler (August 1981) 
was a godsend. However, it won't PEEK 
beyond 7FFF and I tried a similar fix but to 
no avail. Any and all assistance would be 
greatly appreciated. 

Lee Swaringen 
Thomasville, GA 

Symbolic Dump Printout 

After I saw an article in the July issue of 
80 Microcomputing concerning patching 
RSM to allow it to make system tapes for 
Model III, I wrote patches to get RSM to 
print a symbolic dump out to my line 
printer. 

The patches are as follows: 



ADDRESS 


FROM 


TO 


7070: 


F5 


C3 


7071: 


F1 


81 


7072: 


E1 


7F 


7F81: 


00 


D3 


7F82: 


00 


FB 


7F83: 


00 


F5 


7FS4: 


00 


F1 


7F85: 


00 


E1 


7F86: 


00 


C9 


7F87: 


00 


F1 


7F88: 


00 


F5 


7F89: 


00 


C3 


7F8A: 


00 


76 


7F8B: 


00 


70 



These changes are for the 16K version 
of RSM-2. For a 32K version the addresses 
are 4000 (hex) larger, and begin with the 
prefix A. For a 48K version they begin 
with E. 

Lester Beasley, Jr. 
Dallas, TX 



More RSM-2 Changes 

In the July issue you published a short 
note from me giving patches to RSM2 or 
RSM2-D to allow it to read or write tapes 
for the TRS-80 Model III. This note gives 
further information that will allow RSM-2 
to start and stop the tapes: 

ADDRESS CHANGE FROM TO 

6CDE 04 02 

SCDF FF EC 

6EC5 FF EC 



If you have a disk system, the RSM-2 or 
RSM-2D tape can be loaded by the system 
program Tape and the changes can be 
made with Patch. 

Maynard B. Neher 
Columbus, OH 



WORD Update 



Thank you for the excellent review on 
Word (August 1981, page 234). Mr. Cook 
had the program quite a long time ago. 
Here are the updates: 

• WORD-4 has a compiled program in- 
cluded free of charge. The compiled ver- 
sion will print as fast as your printer. Many 
minor enhancements are also included. 

• WORD-5 ($79) has also been available 
for almost a year. It can merge the data 
file maintained by our data base 
managers (IDM-4,5) and our mailing lists 
(MAIL-5). All versions are also available in 
Model-3. 

Also, Program Listing 1 can be simpli- 
fied by taking out the following lines: 

10 XL 65 
20 PL 50 
80 Fl 

Instead, use default values. Also delete: 
200 .EN. It's automatic in 95 percent of the 
cases. 

Tony Pow 

Micro Architect Inc. 

Arlington, MA 

NEWDOS Messages 

Owners of NEWDOS 80 V.2 who do not 
like the "NEWDOS 80 is ready" message 
can use Superzap to change that to some- 
thing of equal or less length, such as "By 
your comand." Display sector 164, enter 
MOD C9 and input the hex code (see 
tables in the back of Lll manual) for the let- 
ters of your preferred prompt. 

You can likewise replace the three-line 
NEWDOS 80 banner with DOS instruc- 
tions for your users, reminders, notes or 
whatever. Display sector 17. Enter MOD 
C4. Bytes C4 (which contains BF) through 
FE (which contains 2E) can be changed to 
modify the first line. (That is 59 bytes. Do 
not type over the "OA" linefeed at byte FF.) 

The second line is tricky. The first char- 
acter of the second line is byte 00 of sec- 
tor 18. The rest of line two is in bytes 05 
through 3D (57 bytes). Typing over bytes 
01 through 04 will keep your disk from 
booting. Line 3 is bytes 3F through 75. 

Nelson Ford 
Houston, TX 
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META TECHNOLOGIES 

26111 Brush Avenue. Euclid Ohio 44132 

CALL TOLL FREE 1-800-321-3552 TO ORDER 

IN OHIO, call (216) 289-7500 (COLLECT) 



Let your TRS-80™ Teach You 

ASSEMBLY 
LANGUAGE 

REMSOFTs unique package. 'INTRODUCTION 
TO TRS-80" ASSEMBLY PROGRAMMING" in- 
cludes ten 45 -minute lessons on audio cassettes, a 
display program for each lesson providing illustra 
tion & reinforcement, and a text book on TRS-80" 
Assembly Language Programming Includes use- 
ful routines to access keyboard, video, printer and 
ROM Requires 16K Level II. Model I. 

REMASSEM-1 $69.95 

FOR DISK SYSTEMS $74.95 



Let Your TRS-80 v Teach You 

ASSEMBLY LANGUAGE 
DISK I/O TECHNIQUES 

REMSOFT does it again! REMDISK-1 is a concise, 
capsulated supplement to REMASSEM-1. Package 
consists of two 45 minute lessons on audio casset- 
tes, and display programs providing illustration 
and reinforcement. Provides specific track and 
sector I'O techniques, and sequential and random 
file access methods and routines. 

REMDISK-1 $29.95 



MICROPARAPHERNALIA 

DISKETTES (box of ten) 

5'/4 M PLAIN JANE™ $19.95 

5 l /4" PLAIN JANE™ %aM $24.95 

%W DATALIFE™ MD 525 01 . . $26.95 
8' DATALIFE™ FD34-8000 ... $43.95 

NEWDOS by APPARAT 

NEWDOS/80byApparat $139.95 

NEWDOS UPGRADE CALL 

NEWDOS + with ALL UTILITIES 

35-tracK $69.95 

40-track $79.95 

BOOKS 

TRS-80™ DISK 

AND OTHER MYSTERIES . . $19.95 
MICROSOFT™ BASIC DECODED $24.95 
1001 THINGS TO DO WITH YOUR 

PERSONAL COMPUTER ... $ 7.95 



N EW DOS/80 Version 2.0 



$139 



SPECIAL 
95 INTRODUCTORY 
PRICE 



Apparat's long awaited successor to NEWDOS + is here! This is not an enhanced ver- 
sion ol NEWDOS, but a completely new product. Simplified DOS commands can be in- 
stantly executed from BASIC, even within a program, without disturbing the resident 
code. System options, such as password protection, number and type of disk drives, 
BREAK key enable/disable and lowercase modification recognition, can be quickly and 
easily changed. Five new random-access file types allow record lengths of up to 4096 
bytes, and no FIELDing! A powerful CHAIN facility allows keyboard INPUTs to be read 
from a disk file. An improved RENUMBER facility permits groups of statements to be 
relocated within program code. Diskettes may even be designated as RUN ONLY! 
Features all NEWDOS + utilities (SUPERZAP 3.0, etc.) and much more! One MTC 
technical staff member said having NEWDOS/80 is "better than sex' (you'll have to 
judge for yourself!). 

MODEL III VERSION 

Has all the features of the Model I version plus enhancements. Allows any mix of 
single- or dual-sided 40- or 80-track disk drives. Most BASIC and many machine 
code programs written for the Model I will run without modification. Includes a 
utility for converting Model I single density to Model III double density. 



NEWDOS/80# SPECIAL* 

CALL REGARDING OUR UPGRADE PRICING 



.$ 139.95 



Michael Shrayer's 

ELECTRIC PENCIL 
VERSION II 

for 

Model I and Model III 

An expanded version of the critically ac- 
claimed original word processing system! 
Includes all features of Version I plus many 
new extensions. Runs under most disk 
operating systems, has improved video 
text handling, loads any ASCII file for 
editing (including BASIC files), single sheet 
mode for printing on letterhead and more! 
Simple to use, features 2-key commands. 
An incredible package at an incredible 
price! 

SPECIFY MODEL I OR III 

Disk Version $79.95 

Tape Version $69.95 

CALL FOR AVAILABILITY 



Complete for Model I with all utilities 
Plus exclusive MTC QUE card! 

NEWDOS + 
t£Q 95 

*P VJ «7 by Apparat 



Includes REF. RENUM. SUPERZAP, 
EDITORASSEM., DISASSEM., DIRCHECK, and 
more! This is the original NEWDOS with all of 
Apparat's utility programs. Includes exclusive 
MTC QUE (Quick User Education) card. 

40-Track Version $79.95 

MTC QUE Card only $ 150 



TRS-80 is a trademark o' the 

Radio Shack Division ol Tandy 

Corporation, DATALIFE is a 

trademark o( VERBATIM PLAIN 

JANE. AIDS-I AIDS III CALCS III. 

CALCS-IV. MERGE-lll are 

trademarks of MTC 
1981 by Metatechnok>|ies 
Corporation. Inc 



MOST ORDERS 

SHIPPED WITHIN 

ONE BUSINESS DAY 

Products damaged in 
transit will be exchanged. 



PRICES IN EFFECT 
Nov. 1. 1981 THRU 
November 30, 1981, 
Prices, Specifications, 
and Offerings subject to 
change without notice 

8111 



WE ACCEPT 

• VISA 

• MASTER CHARGE 

• CHECKS 

• MONEY ORDERS 

• COD 



•Add S3 00 for shipping 

& handling 
•53 00 EXTRA for COD 
• Oho residents add 5"'% 

sates tax. 



SO INPUT 



Hex Conversion 



If you have a color computer with Ex- 
tended Basic or a Model I or III and Disk 
Basic, you may not be aware of a capabili- 
ty you have. (This also applies to Micro- 
soft's Level III Basic). 

The two functions & and &H are used to 
convert an octal or Hex constant to 
decimal. This is a convenient feature, but 
if you want to use this function on a vari- 
able within a program, you will be irritated 
to find that it won't work! It is designed to 
work only with a constant. 

Because the information following 
these statements is treated as a string 
constant without quotation marks the var- 
iable following these statements will be 
treated the same (eg: &HA$) and give you 
garbage. 

The key to fooling the interpreter is the 
VAL function. Assuming that A$ = "FF", 
use this statement to convert A$ to a deci- 
mal number. 

A = Val("&H" + A$) 
After this statement is executed the vari- 
able A will equal 255. Use of the octal func- 
tion is identical except you substitute & or 
&0 for $H. Assuming A$ = "7777" 

A = Val("&" + AS) 
After the above statement the variable A 
will equal 4095. 

Bill Dickson 

Computer Division Supervisor 

Offshore Navigation Inc. 

New Orleans, LA 



Oddities 



I've had my TRS-80 Model I for three 
years now and have never found an error 
in documentation or in hardware without 
reading about it first in the pages of 80. 
Now all of a sudden these oddities are 
jumping out at me faster than I can take it! 

• It is possible that we disk spinners 
are getting more for less. While formatting 
new disks, I answered the "Indicate the 
number of tracks on the disk" question 
with 41. Surprisingly, NEWDOS 80 format- 
ted 41 working tracks! I own two Percom 
40 track drives. A friend who owns the 
same equipment also formatted 41 valid 
tracks. 

• On page 14 of the Daisy Wheel II 
manual a chart of control codes is printed. 
A top of form code is not listed. I 
LPRINTED CHR$(12) which was not listed 
in the chart. Instantly the printer went to 
the top of the next form. CHR$(11) or 
CHR$(12) will cause a TOF function. This 
is contrary to the paragraph above the 
chart which clearly states: "The Daisy 



Wheel recognizes the following control 
codes and ignores any others." 

Faithful readers of 80 will remember 
Datagen in the August issue. Use Datagen 
to change your Z80 code into Basic data 
statements and use your terminal soft- 
ware's "Send Basic Program" function to 
send your buddy a copy. 

Scott Kantner 
Shoemakersville, PA 



Graphics for LPVil 

If you have purchased a TRS-80 Line 
Printer VII and have had difficulty in gen- 
erating graphics this may help. 

Since the line printer does not hand- 
shake in the dot graphics mode the pro- 
gram must allow the print head to return 
home before the next print command. A 
fixed delay would work, but reduce the 
overall throughput since the head return 
time is short for a short displacement and 
any delay used would have to be long 
enough to accommodate a full-scale dis- 
placement. To get around this problem I 
use a delay which is a function of the dis- 
placement as shown in line 220 of the pro- 
gram. The function was determined exper- 
imentally and might benefit through some 
fine tuning of the coefficients. 

The magnitude of the displacement is 
also used to set the high (h) and low (I) 
field specifiers as required, line 160 (see 
note on page 11 of the manual). 

Finally, a modulo-7 counter is used to 
suppress the line feed and generate the 
required graphics character, which pro- 
vides an effective "line feed" or in this 
case a "row advance". After the current 
band is completed a full printer line feed is 
allowed in line 210 (if P = 6). 

Henry E. Santana 
Loveland, CO 



Calculate Color 
Graphics Codes 



The codes for the very low resolution 
color computer graphics may be calculat- 
ed about as fast as they can be looked up. 
Consider the block: 



8 


4 


2 


1 



For green, to light up 1 use 128 plus 1, for 
yellow 144 plus 1, for blue 160 plus 1. and 
so on. For green, to light the top two use 
128 plus 8 plus 4 equals 140. for yellow 144 
plus 8 plus 4 equals 156, and so on. Take 
the characteristic color code for unlighted 
pixels (128, 144, 160, 176, 192, 208, 224 and 
240) and add to it the color number plus 
the number of each of the pixels you wish 
to light. Use CHR$(X) for rapid execution. 
Note that this is the opposite of Level II 
graphics where the blocks are numbered 



1 


2 


4 


8 


16 


32 



and a constant 128 (all pixels off) is added 
to the sum of the blocks. You can do these 
operations very quickly and save time over 
referring to a graphics chart. (Note: you 
may do it, as for example, CHR$ (128 plus 
8 plus 4) in a program, although it wastes 
memory.) 

Franklyn D. Miller 
Cincinnati, OH 



Program Bugs 



There are a couple of bugs running 
around loose out there in TRS-80 land. The 
first and most grievous is in Super-Utility 
by Kim Watt. Under certain circum- 
stances SU will eat sector five of track 17. 



100 DEFINT X.P.N.H.L.T 

110 LP= 14312 ' LINE PRINTER PORT ADDRESS 

120 POKE LP.18 ■ SET GRAPHICS MODE 

130 PI =3.141593 

140 FOR X = TO 360 

150 N = 200 + 200'(SIN(X' PI/90) + (SIN(X*PI/30)/3) + (SIN(X - PI/18V5)) 

160 IF N > 255 THEN H = 1: L = N - 255 ELSE H =0: L = N 

170 POKE LP.27: POKE LP.16 - SET DOT COLUMN ADDRESS MODE 

180 POKE LP,H: POKE LP.L ' SET POSITION 

190 P = X- 7MNT(X/7) ' MODULO 7 COUNTER 

200 POKE LP, 128 ♦ 2CP ' PRINT GRAPHICS CHARACTER 

210 IF P = 6 THEN POKE LP.10: ELSE POKE LP.26 ' CARRIAGE RETURN 

220 FOR T = TO 200 + 3" N: NEXT T ' DELAY 

230 NEXT X 

240 POKE LP.30 ' RETURN TO CHARACTER MODE 

250 END 



Program Listing 
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Expand your TRS-80® MODEL I with 



EHTEnT-QO 



@> 



FOR 



$99 



95 







DRIVES 4-7 




I 








I 


































EXTENT-80 


PLUG 












INTO ^ 
110 VAC 




















OUTLET 




| 




| 




| 






1 

CONNECT TO 
EXPANSION 
INTERFACE 


DRIVES 0-3 






















CONNECT UP TO 







l 



DRIVES 

Metatronics (a subsidiary of Meta Technologies Corp., as of September 1. 1981) introduces a unique device allowing the connec- 
tion of as many as 8 disk drives to a TRS-80 MODEL I computer. Its integrated design is compatible with application software 
running under VTOS, LDOS, NEWDOS/80 (versions I & II). NEWDOS + and TRSDOS 2.3. Features include a U.L.-approved power 
supply, power-monitor LED. operating environment protection circuitry, high-impact metal case and gold-plated contacts. 
Complete with instructions and patch program diskette for configuring your favorite operating system. 

TRS-80 & TRSDOS are trademarks of the Radio Shack division of Tandy Corp EXTENT-80 is a trademark of Metatronics Corp. LDOS is a tradename of Logical Systems Inc. 
NEWDOS is a tradename of Apparat Inc. 



DISK DRIVE 

EXTENDER 
CABLE 

$9 95 

for VISTA, MICROPOLIS, 

MTI, PERTEC, SHUGART, 

PERCOM & OTHERS 



EPSON 

MX-80, MX-80FT, MX-100 

PRINTERS 

CALL FOR PRICE 



10 FT. RIBBON 

CABLE 

$24 95 

CONNECTS EPSON PRINTER 
& TRS-80 MICROCOMPUTER 



Metatronics 

^^^y CORPORATION 

A Subsidiary of Meta Technologies Corporation 



TO ORDER 

CALL TOLL FREE 

1-800-321-9390 

IN OHIO, call 

(216) 289-1210 (COLLECT) 



OFFICES 

26111 BRUSH AVENUE 

EUCLID. OHIO 44132 

(SEND MAIL ORDERS HEREl 



|v5£?i 



PRICES IN EFFECT 
Nov. 1. 1981 THRU 
November 30. 1981, 
Prices, Specifications, 
and Offerings subject to 
change without notice. 



• Add S3.00 for shipping & handling 
•53.00 EXTRA for CO. D. 

• Ohio residents add 5V4% sales tax. 



wsr 



(C) '981 by Metatronics Corp 



$0 INPUT 



Right there in the middle of the directory 
there appears a great big 256-byte gap of 
nothing. I contacted Mr. Watt about this 
and he verified that two other persons had 
encountered and reported the error, and 
that he finally duplicated it. Apparently 
Mr. Watts' idea of a fix is to offer a proper- 



ly operating version of Super-Utility at an 
exchange price of about $25. He has re- 
written the program and is now marketing 
the new properly operating version. 

The second bug I uncovered is in a fine 
word processing program known as New- 
script. When used with the MX-80 printer, 



SO DEBUg 



High Speed Data Tapes 

The attached listings are submitted 
as required Debugs for the "High 
Speed Data Tapes" article (July, 1981). 

In the final version of the subroutine, 
sufficient time was not allowed when 
writing the tape for strings longer than 
63 bytes to be moved from the input 
buffer to the string storage location. 
Before the subroutine returns to the 
tape reading routines, the next string 
has already started to be input and the 
computer gets out of synchronization 
with the tape, causing the dreaded 
lock-up condition. 

The changes submitted will calcu- 
late extra string move time needed for 



strings longer than 63 bytes and will 
delay the writing of the next string long 
enough for each string to be properly 
moved before the next string is input. 
The delay, although substantial in 
computer time, is not noticeable. 

My thanks to Carl Jaquett for in- 
forming me about this problem. Any 
person who would like to use this sub- 
routine in conjunction with Racet's 
GSF subroutines can send me a SASE 
and I will return a listing of the changes 
necessary for use of the subroutine as 
GSF-routine #39. 



Jim Glosser 

1425 Eden Road 

York, PA 17402 



00200 




ORG 


ENDMEM - 527 13 .START OF THIS PROGRAM 


00201 






.SET MEMORY SIZE TO 32227 = 16K 


00202 






48611=32K 


00203 






64995 = 48K 


03211 




LD 


A.(IX| :<3) BYTES IN STRING 


03212 




SUB 


64 .(21 63 DON'T REQ DELAY 


03213 




JR 


C.NODEL :(2) SKIP DELAY IF < 64 


03214 




INC 


A ,(1>ADDFOR64-63 = 1 


03215 




LD 


B.A ;(1)DELAY CYCLES REQ'D 


03216 


DELAY 


JR 


DELCON (2) 12 T STATES 


03217 


DELCON 


DJNZ 


DELAY :(2) 13 T STATES 


03218 




.21 T STATES PER BYTE REQUIRED FOR BYTES OVER 


03219 




;63 TO COMPENSATE FOR LDDR TIME IN LINE 2670 


03220 


NODEL 


DEC 


DE ;SUB 1 ELEMENTS TO WRITE 








Listing 1. 


100 


CLEAR 3500:DEFINT A Z DIM T$(26) 


110 


REM DISK USERS MUST EXECUTE DEFUSR IN LINE 120 AS FOLLOWS 






16K = 


DEFUSR &H7DEE 






32K = 


DEFUSR SHBDEE 






48K = 


DEFUSR &HFDEE 


180 


FOR X = 1 


7T026 T$(x) = STRING$(255,X + 64):NEXT 


540 


REM IN LINE 550 


POKE VALUE AS FOLLOWS 






16K = 


POKE 32227.0 






32K = 


POKE - 16925.0 






48K = 


POKE -541.0 

Listing 2. 



each time an underline is done the page 
creeps about 1/72nd of an inch. If much 
underlining is done your text can walk way 
up the page. This problem has now been 
fixed, and the newer versions do not have 
it. I would suggest holders of older ver- 
sions of Newscript contact Prosoft and 
ask them about an update. 

Finally, there's an error in NEWDOS 80, 
version 1.0. You can't assign a variable a 
name beginning with an A, D, or E with a 
second character (a numeric) without en- 
countering a Syntax Error while in the 
command mode. Well, it is still there, but 
NEWDOS 80 version 2.0 has corrected the 
problem. I just got version 2.0 yesterday 
and checked it out. It looks great. Version 
1.0 owners had better trade it in on the 
new one now. 

Jerry L. Latham 
Midwest City, OK 



Screen Printing 
for the MX-80 

Here are a couple of zaps for NEWDOS 
PLUS and NEWDOS 80 to change the 
screen print routines for Epson MX-80 
owners. These zaps allow screen printing 
of graphics characters using the JKL op- 
tion. Both zaps work with the MX-80 set up 
in the standard mode (Dip switch 2-4 is 
off). This allows use of all print and char- 
acter options with graphics characters 
which is not normally possible with either 
operating system. NEWDOS 80 does have 
a graphics capability, but without a 
change to the operating system, the 
printer must be in the TRS-80 mode which 
restricts print and character options. After 
applying the zaps to NEWDOS 80, the sys- 
tem option AK = N will give graphics capa- 
bility with the printer in the standard 
mode. These two byte changes are easily 
made using the superzap utility. 

First, run Superzap. Second, display 
NEWDOS PLUS— Track 0, relative sector 
6 and NEWDOS 80— Track 0, relative sec- 
tor 7. Third, change relative bytes 
NEWDOS PLUS— 7F and 80 from 3E.2E to 
06,20 and NEWDOS 80— B9 and BA from 
3E.2E to 06,20. 

The replaced code is in the screen print 
routine after the data is sorted for the nor- 
mal ASCII character range. The original 
code changes all graphics codes to per- 
iods. The new code adds 20H to the 
graphics code to match the MX-80 stan- 
dard coding table. 

Herbert S. DuBois 
New York, NY 
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HANNON 
RGNCTIC& 



To Order: 

Toll Free 1-800-525-7958 

1650 South Laredo Court • Aurora, Colorado 80017 



MICRO COMPUTER DISKETTES 

5'/4" Double Densitv Single Sided. Mini Disks. Shrink wrapped boxes of 10 with Jackets i abeis and 'abs 



REGULAR 

RETAIL 

PRICE 



SPECIAL 
FALL 
SALE 

$22.95 



WE ARE NATIONALLY INTRODUCING OUR HIGH QUALITY MINI-DISKS 
DIRECT TO THE END-USER AT A SPECIAL PRICE FOR A LIMITED TIME. 



THESE DISKETES ARE FULLY GUARANTEED FOR ONE YEAR AGAINST DEFECTS. 
RETURN ANY DISKETTE GOOD, BAD OR OTHERWISE AND WE WILL 
REPLACE IT FREE WITH NO QUESTIONS ASKED. YES • WE MEAN IT! 

FREE SHIPPING 

WE OFFER ATTRACTIVE DISCOUNTS TO DEALERS IN SMALL QUANITIES 



The Newest NEWDOS/80 Version 2.0 
For Model I And Model III 



THE HOTTEST DISK OPERATING SYSTEM FOR THE 
TRS-8CT COMPUTER IS NOW READY FOR THE MODEL 
III AND VERSION 2.0 IS READY FOR THE MODEL I. 
MANY ENHANCEMENTS AND ADDED FEATURES 
SUCH AS NEW COMMANDS MAKE YOUR COMPUTER 
MORE POWERFUL! 




$149.00 



SHIPPING FREE 
(303) 773-6665 



• DOUBLE DENSITY ON MODEL I 

• SINGLE DENSITY ON MODEL III 

• EXPANDED DIRECTORIES 

• DYNAMICALLY MERGE IN BASIC 

• SELECTIVE VARIABLE CLEARING 

• PAGE SCROLLING IN BASIC 

• REPEAT FUNCTIONS 

• ROUTING FOR DEVICE HANDLING 

• DISASSEMBLER OUTPUT TO DISK 

• CHAINING ENHANCEMENTS 

• SUPERZAP 

We offer Dealer Discounts for purchases 
of one or more. 



Data Resources Corp. 



MASTER CHARGE 
AND VISA 

WELCOME 



Send your card numoer and 
expiration date with your order 



Business & Professional Center 
8000 East Quincy Ave. 
Denver. Colorado 80237 



MTC is a Registered Trademark ot Meta Technology Corp 
TRS-80 is a Registered Trademark of Tandy Corp 

1961 Data Resources Corporation 
Products distributed ay Data Resources Corp 



'See List oi Advertisers on page 402 
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T-Bug Tip 



This letter is a response to Jonathan 
Yarden's plea for help in converting 
T-Bug for use on a Model III (80 Micro- 
computing, August, 1981). 

Replacing the tape I/O subroutines 
with calls to the ROM is fairly straight- 
forward, and requires changing about 
20 bytes. However, since the Model III 
routines abort tape I/O when the break 
key is pressed, control will then be 
returned to Basic instead of T-Bug 
command level. To avoid this unpleas- 
antness, the modifications must be 
more elaborate. 

Load T-Bug into your Model III and 
use the M command to change the fol- 
lowing bytes: 



Start address 


Change to: 






4643 


21 03 42 


36 C3 23 


36 62 




23 36 47 


CD 96 02 


00 


46DD 


CD 87 02 






46EB 


C3 FB 46 






4762 


CD F8 01 


C3 A5 43 




4782 


C3 35 01 






478C 


C3 64 02 






47C5 


C3 F8 01 







Then use the M command to set the 
desired baud rate, and write your 
Model III T-Bug tape (P 4380 4980 43A0 
TBUG). Happy T-Bugging! 

Herb Robinson 

3814 Skyline Rd. 

Carlsbad, CA 92008 



Game Confusion Cleared 

I have a solution for Dennis Banik's 
problem of reading data from different 
blocks within a Basic program ("Game 
Confusion" 80 Aid, August 1981). Dup- 
licate this routine, in each block which 
requires reading data, ahead of any 
Read statement and after any Clear 
statement. 

W= PEEK(16627) POKE 16640, 

PEEK(16628) + (W>239) : POKE 16639.W 

If any Restore's are required in a par- 
ticular block, make this a subroutine 
which the program skips over. 



30010 REM BLOCK SIX 
30020 GOTO 30040 

30030 Q = PEEK(16627) : POKE 16640, 
PEEKi.16628) + (07239) : POKE 
16639, Q : RETURN 

30040 CLEAR 5000 : REM 'CLEAR' SETS DATA 
POINTER TO BEGINNING OF BASIC PROGRAM 

30160 GOSUB 30030 : REM ESTABLISHES DATA 
POINTER IN BLOCK SIX 

30480 GOSUB 30030 : REM RESTORES DATA 
POINTER TO BEGINNING OF BLOCK SIX 

The first block does not need this routine and can 
use Restore. In addition, this routine must be con- 
tiguous and on the same program line. 

Vernon B. Hester 

42403 Old Bridge Road 

Canton, Ml 48188 



Software Problem? 

I am truly delighted with our two 
disk, 48K Model III. TRSDOS 1.3 is 
more than I expected. Perhaps the 
neatest command in the system is 
CMD 0; it sorts 300 records of 100 byte 
length so quickly I am not sure how 
long it takes. The logic, versatility and 
documentation of the Model III ex- 
ceeded my expectations. 

But I still want more. I want a fast 
search program. With a disk file of 300 
records, I want to be able to flash any 
one of the records onto the screen as 
soon as I get the record number. How- 
ever, if I do an alphabetical search us- 
ing "INSTR" it takes from 30-60 sec- 
onds. Is this too long? Do I have a soft- 
ware problem? To speed things up 
should I make a short file containing 
only the names and the record num- 
bers, translate the name to a number 
and then get the number? 

B. Jim Smith 
St. John's High School 
Shrewsbury, MA 01545 



Missing Person 

In response to Mr. Pfingstag's letter 
in the August 1981 issue I would like to 



apologize to any readers who might 
have been unable to contact me about 
my article "Selectric Hard Copy" 
(September 1980). I moved shortly after 
this article was published but I am in- 
deed alive, well and living at the ad- 
dress below. I have discussed this pro- 
ject with hundreds of readers and 
would be more than happy to corre- 
spond with anyone interested in inter- 
facing the Selectric. Avid readers of 80 
Microcomputing might have noticed 
that the missing parts list, other cor- 
rections, my new adress and tele- 
phone number have already been pub- 
lished. Where, you might ask? In the 
November 1980 issue of 80 Microcom- 
puting, where else? It is heartening to 
know that the editors of the best 
TRS-80 journal are too busy putting to- 
gether another excellent issue to sit 
around all day reading old columns. 

Michael W. Bickerton 

248 Barren Hill Road 

Conshhocken, PA 19428 

215-825-7556 



ROM RND Hangup 

For some time, I have been dabbling 
in machine language programming on 
my Level II 16K Model 1. 1 have run into 
difficulties, however, trying to access 
the ROM RND function for a genera- 
tion of pseudo-random integers within 
a given range (RND(X)). James Farvour, 
in Microsoft Basic Decoded, suggests: 



LD.2 




LO (40AFH),A 


; set type (lag to integer 


LDA.50 


; range of random no. 1-60 


LD(4121H),A 


; put range into WRA1 


CALL 14C9H 


; get a random no. between 1 




and 50 


LD HL,(4121H) 


; load random no. from WRA1 


LDL (RVAL). HL 


; fo HL, and move to local 




area 



This routine crashes my system. I 
get an illegal function call (FC), which 
indicates, perhaps, the attempt to use 
a negative value for the argument. 
Looking at the code for 14C9H, the 
RND subroutine, it appears that the 
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/&& DATA RESOURCES M& 

QUALITY SOFTWARE FOR YOUR TRS-80® DISK SYSTEM „- 
TO ORDER CALL TOLL FREE 800-525-7958 



Data Resources is pleased to continue its commitment to professional quality TRS-80 
software by introducing The Silver Edition Software Series. This collection of programs 
represents the best contributions from the most talented and popular authors available 
These systems have been written by inventive creators like Bob Fiorelli of Meta 
Technologies, Pete Roberts of B.T. Enterprises, and Dave Stambaugh of the Micro Clinic 
These people have provided much of the software that has made the TRS-80 the most 
widely used data processing machine in the world. We do not include games or other 
entertainment programming and the selection of our series is made carefully to insure you 
nothing but the best. 

We are so confident of this series we will guarantee satisfaction by accepting a return for 
credit or refund of any package you purchase from us. If you wish to examine our 
packages at your local computer store and they do not have them in stock, have them 
contact us and we will make copies available to them for your evaluation. Interested 
computer retailers who do not carry our software at this time should contact us 
concerning our discounts in minimum quantities and the availability of evaluation copies. 



BIONIC BASIC 

By Glynn Owen 
The BIONIC BASIC routines implement a number 
of uselul commands and functions that are not 
available in regular BASIC BIONIC BASIC appends 
these routines to the BASIC/CMD file so that they 
load automatically every time Disk BASIC is 
entered The BIONIC BASIC modules will not 
require reserved memory, they are resident in 
memory whenever Disk BASIC is being used 
Model I $49.95 



DATA RESOURCES 

NOW EXPRESS 

SERVICE 

We will guarantee to have any software order placed 
before noon M ST delivered the next business day 
Air freight charges are collect We promise service 
and we deliver - over night if necessary or the order 
is yours FREE. 



VERBATIM DISKETTES 
5V DOUBLE DENSITY 
40 TRACK DATALIFE . . $26.95 

FLIPSORT 

FILE BOX STORAGE 

5V," $19.95 

1 BOX VERBATIM 5V«" DISKS 
WITH FLIPSORT $43.95 



B.T. ENTERPRISES 
UNITERM/80 

By Pete Roberts 
This is the state of the art in communications 
software It configures itself for either Model I or 
Model III and can be used with any standard 
modem, both RS-232 and Bus-Decoding. 
Especially designed to use the extended commands 
m NEWDOS/80. but fully compatible with all major 
DOS systems. 
For Model I and III $89.00 



THE FLOPPY DOCTOR 

By Dave Stambaugh 
FLOPPY DISK/MEMORY DIAGNOSTIC 
Computer professionals have long known the 
importance of regular use of diagnostic software in 
verifying the integrity of computer hardware The 
TRS-80 is no exception, good diagnostics are a 
must The MICRO CLINIC offers two programs 
designed to thoroughly check out the two most 
trouble prone sections of the TRS-80. the disk 
system (controller and drives) and the memory 
arrays 

MODEL I $24.95 MODEL III $29.95 



PAPER 
MICH TRACTOR FEED WHITE 

3300 SHEETS $29.95 

14V.X11 TRACTOR FEED 
GREEN BAR 
3300 SHEETS $39.95 

PAPER SHIPPED BY TRUCK 
FREIGHT CHARGES COLLECT 



MODEL I 
DOUBLE DENSITY PACKAGE 
NEWDOS/80 Version 2.0 and controller. 
Everything you need to convert your TRS-80 
Model I to run double density Complete 
with software, hardware, and instructions - 
installs in minutes with NO SOLDERING, 
WIRING OR CUTTING $229.95 



AIDS SYSTEMS 

BY METS TECHNOLIGIES 

MTC AIDS III 

This easy to use system allows even a novice 
TRS-80 user to create data files custom 
configured for many applications from lists 
for mailing and cataloging to financial 
reporting and time scheduling It requires NO 
PROGRAMMING and is complete with 
features for adding, deleting, sorting 
updating and printing 
MODEL I $69.95 MODEL II $99.95 

MTC CALCS III 

Performs numeric calculations of data 

contained in AIDS files Ideal for financial 

applications 

MODEL I $24.95 MODEL II $39.95 

MTC CALCS IV 

The same features as CALCS III with more 
powerful formulas and the ability to store 
report formats 
MODEL I $39.95 MODEL II $59.95 

SPECIAL 

AIDS III SUPER SYSTEMS 

AIDS III & CALCS III & MERGE III 

MODEL I $99.95 

AIDS III & CALCS IV & MERGE III 
MODEL I $109.95 

DATA RESOURCES 

NEW SUBSYSTEMS FOR AIDS III 

AIDS DISK SORT 

Designed for files that are too large to sort "in 
memory" with AIDS or for when you don't 
want to wait while AIDS loads the records. 
Records are physically rearranged on disk 

MODEL I $24.95 

AIDS FILE EDITOR 
Allows you to update and edit records in AIDS 
data files without loading the file into memory. 
Now you can change a single record in a 
mailing list quickly and easily with random 
access selection. 
MODEL I $24.95 

AIDS DATA ENTRY MODULE 

Designed for inputting data directly into AIDS 
files Fields may be fixed to repeat the same 
data The key-in routines are improved in 
speed — no more over keying. Data can be 
added to the end of an existing file or a new file 
can be created Files are automatically opened 
and closed so even if the computer is turned 
off in the middle of work, no more than 255 
keystrokes can be lost 
MODEL I $24.95 
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MASTERCARD M 
AND VISA _ 
WELCOME 
We also accept 
COD • CHECKS 
MONEY ORDERS 



_Data Resources Corporation. 



ALL SOFTWARE SUPPLIED ON DISKETTE. 
ORDERS IN USA SHIPPED U.P.S FREE. 
Colorado residents add 8%% sales tax. 

ATTN: DEALERS - We offer attractive pricing and terms to small 
computer retailers. Write for information on our dealer program and 
discounts in small quantities. 



Business & Professional Center 8000 East Quincy Ave. 
Denver, Colorado 80237 (303) 773-6665 



1981 DATA RESOURCES CORP 
TRS-80" IS A TRADEMARK OF TANDY CORP 
Prices m effect Oct 1 1981 to Oct 30. 1981 and subiect to changes 
AIDS III ' CALCS III.' MERGE III/ ARE TRADEMARKS OF METATECHNOLOGIES 
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The Software Dilemma 

Recently I purchased Trakcess by Rox- 
ton Baker through Alpha Byte Stores. I am 
very impressed. Trakcess has lived up to 
my original expectations and much more. 
However, what really surprised me was 
that Mr. Baker actually encouraged peo- 



$?A1D 



routine does not access WRA1 for the 
argument, but HL instead: 

14C94 C ALL 0A7FH. test lot integer flag 

LD.H 
OR 

JP n,iE4AH; Illegal FC it negative 
ORL 

JP Z, 147FOH; it parameter O, com- 
pute RNO(o). 

14FOH ;compute RND (o). 

I have tried putting a parameter, or 
O, into HL directly, prior to calling 
14C9H. The program does not crash, 
but the output in WRA1 (4121 H) is not 
limited to the desired range. Does any- 
one know the answer to my problem? 
Any help will be appreciated. 

Thomas ft Jones 
235 East 73rd Street 
New York, NY 10021 



Network Help 



Is there anyone out there who can 
show me how to build a switching net- 
work (or point me in the direction of 
commercially available hardware) to 
interconnect my Model I, Model II, 
Daisy Wheel II and Line Printer V? 

My problem is the risk of damage to 
circuit board and connector plugs (not 
to mention the time that it takes) from 
continually plugging and unplugging 
printers when I need letter quality or 
high-speed printing as output from an 
application running on one computer 
or the other. 



Peter C. Bennett 

7139 Scott Road 

Homer, NY 13077 



pie to share the cost of the program and 
use or make copies of it jointly. 

As a full-time student with a part-time 
job, this is like a dream come true. Not 
everyone has money to shell out like can- 
dy for programs they do not even know if 
they can use or enjoy. If more people 
would follow this fine example, they 
would see increased sales as they would 
be opening their programs to a larger 
market. 

Another point that Mr. Baker brought up 
is protected disks. Having written soft- 
ware myself, I think that the author has a 
right to be concerned about his software. 
However, this should not be at the con- 
sumer's expense. The consumer should 
be able to make as many backups of a pro- 
gram as he or she wishes. It is not fair to 
pay $100 for a program and then have to 
pay $10 plus shipping if the thing crashes. 

David A. Roch 
El Paso, TX 



On The Right Track 

I just got my NEWDOS 80 to run on my 
80-track drive and it turned out to be quite 
an undertaking. I had to use the MAKE 80 
on the original NEWDOS 80 disk to make it 
readable to my 80-track drive. Then I re- 
ceived my LN Doubter. I tried to make Dou- 
blezap II work, but had no luck. It appar- 
ently needed more tracks. Then I decided 
to play with it and converted a NEWDOS 
copy to 40-track using the PDRIVE and 
changing the Gat table to eliminate all ref- 
erence to tracks 40 to 79. 1 applied Double- 
zap II and it worked. 

I also put it up with an expanded direc- 
tory. When the run was completed, I had 
to use PDRIVE to get 80 tracks again and 
change the Gat table again. TR 17 SEC 
byte 46 to byte 8DH got zapped to FCH 
and byte CCH to CFH became 8EH 50H 
96H 42H. (See Table 1.) This is now an 
80-track system disk with the free show- 
ing * 80 trks 114FDES 220 grans * on a 
side with sample 01/BAS removed and the 
Doublezap II utilities installed. It was real- 
ly great to figure it all out. 

John H. Fields II 
Venice, FL 



Stock Market Crash 

I recently bought Color Space Traders 
from Spectral Associates. It involves buy- 
ing stocks in hypothetical companies and 



trying to increase their market value. After 
playing the game a few times, and losing 
miserably each time, I began to wonder if 
all my work as a business undergraduate 
and weekend programmer had been in 
vain. 

Then, much to the delight of my ego, I 
discovered a flaw in the game. When a 
stocks' value exceeds $3000, it splits two 
for one. The price is split in half, and the 
number of shares held by each player 
should be doubled. A For . . . Next loop is 
set up in line 3190 to do this, but a pro- 
gramming oversight left out the Next so 
that only player number 1 has his or her 
quantity of shares doubled, even though 
its value had been divided by two. Editing 
the program as I've done here makes it run 
correctly: 

3190 FORI1 = 1TOP1 StTl.M| = 2-S|T1.l1):NEXTI1 
GOSUB50000 RETURN 

Ken Teagan 
Glendale, CA 
Tom Rosenbaum of Spectral Associ- 
ates tells us they've found the error, and 
have corrected it.— Eds. 



Variance 

C. Brian Honess' article "Vital Statis- 
tics" in the August issue contained one 
significant error. The mathematical form 
of the variance is generally taken to be: 



o^x-X)' 
(n-1) 



This differs from Mr. Honess' equation in 
that the denominator contains an n - 1 
term instead of just n. In calculations in- 
volving a large number of data points 
(large n) the difference is insignificant. 
However, in smaller samplings it can be 
quite large. 

The reason for the N - 1 term instead of 
n is somewhat complex but it stems from 
the fact that each of the data points are 
first used to calculate the mean value of 
the sample (X in the formula) and the data 
points and the average are then used to 
calculate the variance. This two-step 
calculation is said to reduce the degrees 
of freedom of the system from n to n - 1. 
Refer to any elementary statistics book 
for a thorough explanation. 

Albert Stiegman 

Department of Chemistry 

Columbia University 

New York, NY 
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November 

• The University of California, Berke- 
ley, will sponsor a two-day course titled 
"Comparison of Recent Microcom- 
puter Architectures" for design en- 
gineers, programmers and technical 
managers at the San Francisco Airport 
Hilton, Nov. 9-10. Fee is $400. Infor- 
mation and registration is available 
through the office of Continuing Edu- 
cation in Engineering, University of 
California Extension, 2223 Fulton St., 
Berkeley, CA 94720. 

• The New Mexico Computer Society 
will host the third annual New Mexico 
Computer Fair Nov. 14 at the Albuquer- 
que Civic Auditorium. Admission is 
free. Information is available from Ron 
Benninghoff, c/o New Mexico Com- 
puter Society, 515 Wyoming NE No. 2, 
Albuquerque, NM 87108 



• Ken Orr and Associates, Inc., 715 E. 
8th St., Topeka, KS 66607, will sponsor 
several courses and conferences in 
November. Subjects are: Nov. 3-6 
Structured Requirements Definition, 
San Antonio, TX; Nov. 3-6, Structured 
Program Design, Boston, MA; Nov. 10, 
Management Overview of Data Struc- 
tured Systems Development, Denver, 
CO; Nov. 11, Management Overview of 
Data Structured Systems Develop- 
ment, Portland, OR; Nov. 13, Manage- 
ment Overview of Data Structured Sys- 
tems Development, Seattle, WA; Nov. 
9-13, Structured Systems Design/ 
Structured Program Design Combined 
Course, St. Louis, MO; Nov. 10-13, 
Structured Requirements Definition, 
Los Angeles, CA; Nov. 16-20, Struc- 
tured Systems Design/Structured Pro- 
gram Design Combined Course, Wash- 
ington, DC. 



Coming 
Next Month 



In December, 80 Microcomputing 
looks at the TRS-80 used in hob- 
bies. Topics will include micro 
games, sports forecasting and col- 
lection filing systems. 
Athletic Technical Editor Michael 
Vose will share his Runner's Log pro- 
gram. Dust off those sneakers and 
find your sweatsuit! 
Review Editor Michael Nadeau has 
compiled a Buyer's Guide to peri- 
pherals and small electronics. 
News Editor John Mello gets the 
scoop on Arcnet, the Model II network. 
News Editor Bert Latamore has 
tracked down a model railroad club 
that uses a homemade micro. 
Freelancer Robert Lloyd writes about 
the program he wrote to catalog his 
coin collection. 




^See List ot Advertisers or page 402 
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CORVUS 

TRS-80 MOD 1,11 

Controller, Case'P S , Operating System, A&T 

5 Megabytes 3245.00 

10 Megabytes 4645.00 

20 Megabytes 5545 00 

MIRROR BACK-UP 725 00 



SPECIALS 

SPECIAL NO. 1 

TRS-80 DISK AND OTHER MYSTERIES, BOX OF 

VERBATIM DISKS. PLASTIC LIBRARY CASE . 44 50 

SPECIAL NO. 3 

NEWDOS/80 2.0. BOX OF VERBATIM DISKS, PLASTIC 
LIBRARY CASE 149.00 

SPECIAL NO. 4 

MICROSOFT BASIC COMPILER. BOX OF VERBATIM 

DISKS, PLASTIC LIBRARY CASE 190 00 

SPECIAL NO.5 

MICROSOFT BASIC DECODER AND OTHER 
MYSTERIES, BOX OF VERBATIM DISKS. PLASTIC 
LIBRARY CASE 49 95 

SPECIAL NO. 6 

DOUBLE DENSITY SPECIAL NEWDOS/80, BOX OF 
VERBATIM DISKS, PLASTIC LIBRARY CASE . 279 00 

COMMUNICATION SPECIAL MOD I ft III 
NOVATION MODEM. OMNITERM TERMINAL 
SOFTWARE. RS 232 CABLE 

ACOUSTIC SPECIAL 239 00 

DIRECT CONNECT SPECIAL 259 00 

DISK LIBRARY SPECIAL 

RACET DISK-CAT CATALOGING PROGRAM. FLIP 
SORT (50 DISK CAPACITY). 50 STICK-ON DISK 
LABELS 59 95 



TWO NEW 'OTHER MYSTERIES' 
BOOKS 



THE CUSTOM TRS 80 24.95 

MICROSOFT BASIC FASTER AND BETTER . 24.95 



TRS-80 GAMES 



TEMPLE OF APSHAI 34.95 

HELLFIRE WARRIOR 34.96 

STAR WARRIOR 34.95 

RESCUE AT RIGEL 24.96 

CRUSH, CRUMBLE & CHOMP 24.96 

INVADERS FROM SPACE 17.95 

PINBALL 17 95 

STAR TREK 3.5 17 96 

MISSILE ATTACK 18.95 

STAR FIGHTER 24.95 

Z-CHESS III 2495 

ADVENTURE NO 1.2 & 3 34 96 

ADVENTURE NO 4,5 & 6 34 95 

ADVENTURE NO 7,8 4 9 34.95 

DUELN DROIDS 17.95 

STARFLEET ORION 21 96 

INVASION ORION 21.95 

OLYMPIC DECATHLON 24.96 

ZORK 34.95 

MONTY PLAYS MONOPOLY , 31.96 

SARGONII 31.95 

BLACKJACK MASTER 27 95 

ROBOT ATTACK 17.95 

GALAXY INVASION 17.96 

SUPER NOVA 17.96 

TUESDAY MORNING QUATERBACK 26.96 

LUNAR LANDER 18.96 

THE MEAN CHECKER MACHINE 21.95 

GAMMON CHALLANGER 18.95 

SPACE ROCKS 18.95 

PIGSKIN 17.96 

ZOSSED IN SPACE 18.95 

ARCADE-80 21.96 

COMBAT 18.95 

SPACE INTRUDERS 17.96 

SILVER FLASH 17.95 

MORTON'S FORK 26.95 

PROJECT OMEGA 21.95 



TRS-80 MODEL III HARDWARE FROM MTI 



INTERNAL DISK DRIVE KIT 

A new low cost internal disk kit is available to expand your 16K Model III computer to a 
full 48K disk system 40 or 80 Track drives are available. 40 Track drives store 175K and 
80 Track drives store 350K. Up to four drives may be added, including two external 
drives. Using four 80 Track drives provides a total disk storage of 1.4 megabytes. 



695.00 



DRIVE NO. 1 - 40 TRACK SYSTEM 

INCLUDES: Controller, power supply, cables, mounting hardware. 32K of RAM 
& installation instructions. 

DRIVE NO. 2 • 40 TRACK SYSTEM 279.00 

80 TRACK INTERNAL DISK SYSTEM 

DRIVE NO. 1 789.00 

DRIVE NO 2 399.00 

EXTERNAL EXPANSION DRIVES 

Add up to two external drives to any two drive Model III system. 

40 TRACK EXTERNAL DRIVES 

DRIVE NO. 3 379 00 

DRIVE NO 4 359.00 

80 TRACK EXTERNAL DRIVES 

DRIVE NO. 3 519.00 

DRIVE NO. 4 499.00 

DOS PLUS OPERATING SYSTEM FOR MOD III 

40 Track 99.00 

80 Track 1 19 00 

Expanded DOSPLUS 3.3.8 runs 40 and 80 Track 149.00 

MOD III Cooling System 49.00 

Reduce failures due to heat buildup, this kit insures proper air circulation for 
trouble free performance. 

RS-232 Serial Interface 99.00 

Direct connect Modem 199.00 



We built a reputation on our prices and your satisfaction. 




We guarantee everything we sell lor 30 days II anything is 
wrong. iust return the item and we'll make it right And. ol 
course, we'll pay the shipping charges 

We accept Visa and Master Card on an orders COD orders 
accepted up to $300 00 

Please add $2 00 lor standard UPS shipping and handling 
on orders under 50 pounds delivered in the continental U S 
Call us lor shipping charges on items thai weigh more than 50 
pounds Foreign. FP0 and APO orders please add 15% for 
shipping California residents add 6% sales tax 

the pnces quoled are only valid lor slock on hand and all 
pnces are subject to change without notice 



(213)7060333 



CP/M is a registered trademark ol Digital Research 



31245 LA BAYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 



Our incredible 
low prices just 
2% lower. 

Have a merry 
computer and a 
happy software. 




Take an additional 2% off our listed prices, until December 24. 



PRINTERS 

ANADEXDP95O0 1295 00 

ANADEXDP9501 1295.00 

CENTRONICS 739 765.00 

C-ITOH 25 CPS PARALLEL 1440 00 

C-ITOH 25 CPS SERIAL .1495.00 

C-ITOH 45 CPS PARALLEL 1770 00 

C-ITOH 40 CPS SERIAL 1870.00 

C-ITOH TRACTOR OPTION 195 00 

EPSON MX-80 SCALL 

EPSON MX-80 FH - JCALL 

EPSON MX-1O0 GRAPHIC SCALL 

EPSON GRAPHICS ROM 90 00 

IDS 445G PAPER TIGER 779 00 

IDS 460G PAPER TIGER 945.00 

IDS-560G PAPER TIGER 1195.00 

MALIBU 200 DUAL MODE 2695.00 

NEC SPINWRITER 3510 SERIAL RO 2195.00 



2195 00 

. 2645 00 

.2645 00 

.2795 00 

.2295 00 

399 00 

569 00 

799 00 

OKIDATA MlCROLINE 84 . . . .1 199.00 



NEC SPINWRITER 3530 PARALLEL RO 
NEC SPINWRITER 7710SERIAL RO 
NEC SPINWRITER 7730 PARALLEL RO . 
NEC SPINWRITER 7700 D SELLUM OPTION 
NEC SPINWRITER 3500 SELLUM OPTION 

OKIDATA MlCROLINE 80 

OKIDATA MlCROLINE 82A 
OKIDATA MlCROLINE 83A 



DISKETTES 

ALPHA DISKS' 21.95 

SINGLE SIDED. CERTIFIED DOUBLE DENSITY 
40 TRACKS, WITH HUB RING BOX OF 10 
GUARANTEED ONE FULL YEAR 



VERBATIM 

MD 52501.10.16 26 50 

MD 550-01.10.16 44.50 

MD 577-01 10.16 3480 

FD 32 OR 34-9000 ....................... 3600 

FD 32 OR 34 8000 45 60 

FD 34-4001 48 60 

DYSAN 

5V4.SS/DD. BOX OF 5 24 50 



CP/IVr SOFTWARE FOR MOD II 

MICROSOFT 



MICROSOFT BASIC 80 
MICROSOFT BASIC COMPILER 
MICROSOFT FORTRAN-80 
COBOL 80 ...... 



299 OO 

31900 
399 00 
599 00 



MICRO PRO 

WORDSTAR 

MAILMERGE (REQUIRES WORDSTAR) 
SPELLSTAR (REQUIRES WORDSTAR) 

SUPERSORT 

DATASTAR 

PEACHTREE 



325 00 

110 00 
199.00 
.195.00 
.245.00 



16K RAM SPECIAL 



$13.95 



SET OF 8 NEC 4116 200 ns WITH INSTRUCTIONS 
GUARANTEED ONE FULL YEAR 

MODEL I, III SOFTWARE 



LAZY WRITER MOD I 119 00 

LAZY WRITER MOD III 169 00 

MICROPROOF SPELLING CHECK 84 95 

PROSOFTNEWSCRIPTMODI.nl 99.00 

PROSOFT MAILING LABELS 29.95 

PROSOFT NEWSCRIPT ' LABELS 115.00 

SPECIALDELIVERYMODI.III 119.00 

X TRA SPECIAL DELIVERY MOD I, III 179.00 

TRACKCESSMODI 2495 

OMNITERMSMARTTERMINALMODI.III 89 95 

MAXI MANAGER 89 95 

DOS PLUS 3 3 89 00 

LDOS '39 00 



• See List Ot Advertisers on page 402 



DISKETTE STORAGE 

5V PLASTIC LIBRARY CASE 2 50 

8 PLASTIC LIBRARY CASE 3.50 

PLASTIC STORAGE BINDER WITH INSERTS . 9.95 

PROTECTORS'* 2i 95 

PROTECTOR 8 24.95 



TRS-80 MOD I HARDWARE 

PERCOM DATA SEPARATOR .27 00 

PERCOMDOUBLERII 159 00 

TANDON 80 TRACK DISK DRIVE 429 00 

TANDON 40 TRACK DISK DRIVE 299 00 

LNWDOUBLERWITHDOSPLUS3.3D 159 00 

TRS-80 MOD I 32K EXPANSION INTERFACE 355 00 



MODEMS 

NOVATION CAT ACOUSTIC 145 00 

NOVATION D-CAT DIRECT CONNECT 155.00 

NOVATION AUTO-CAT AUTO ANSWER 219.00 

UDS 103 LP DIRECT CONNECT 175.00 

DC HAYES STACK Smarl Modem (RS-232I .249.00 

LEXICON LX-11 109.00 



GENERAL LEDGER 
ACCT RECEIVABLE 
ACCT PAYABLE 
PAYROLL 
INVENTORY 



.595 00 
.595 00 
.595 00 
595 00 
.595 00 



PROPERTY MGMT 799 00 

CPA CLIENT WRITE-UP 799 00 

MAGIC WAND .299 00 

OTHER CP/M" SOFTWARE 

SPELLGUARD 239.00 

SUPERCALC 229.00 

COMMX TERMINAL SOFTWARE 75.00 

dBASEII 599.00 

PICKLES AND TROUT CP/M* MOD II TRS-80 .175.00 



SUPPLIES 

AVERY TABULABLES 

1 000 3 V, X 15/16 8.49 

3.000 3 Vt X 15/16 14.95 

5.000 3V, X 15/16 19.95 

FAN FOLD PAPER <?*»• f .o.b. s.p ., 



9Vi X 11 181b while 3000 cl 
14 7/8 X11 1816 white 3O00ct 



29.00 
39 00 
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$0 REVIEWS 

edited by Michael E. Nadeau 



"For getting correspondence 
out quickly, this mini word processor 

is simplicity itself." 



Speed Letter 

12-Column Ledger 

Three-Across Mailing Labels 

AutoDialer and Toll Charge Monitor 

Blechman Enterprises 

Canuga Park, CA 

$10 each 

$25 for the package 

by Dave Smith 



Anyone who has ever operated a small 
business out of his home under- 
stands the difficulty of maintaining a 
ledger, handling letters, mailing lists, and 
keeping records of telephone usage and 
expenses. In response to these needs, nu- 
merous computer programs have been de- 
signed, which are often too extensive and 
complicated, not to mention costly. Fred 
Blechman, of Blechman Enterprises, has 
developed a package of programs for the 
home-based businessman which is char- 
acterized by effectiveness, simplicity 
and low price. 

Designed for the Model I with 16K and 
an 80-column printer, the programs do not 
require disk drives, and are compatible 
with the Model III following a few simple 
line adjustments. The instructions for the 
Model III program changes are available 
at no charge from the author. 

Speed Letter 

For getting correspondence out quick- 
ly, this mini word processor is simplicity 
itself. Handling upper and lowercase, the 
word processing system is directed by a 
total of 10 single-letter commands. Speed 
letter can pack 150 lines of text into 16K of 
memory. 

The program operates on lines of text 
rather than on individual words or charac- 
ters, but within this single constraint, 
allows text review, line correction, 
replacement, insertion and deletion. Text 
is saved to, and read from cassette, or Ex- 
atron's Stringy-Floppy wafer. The left 
margin and the page length are defined 
just prior to printing, allowing the user 
great formatting flexibility. Printed output 
is also line selectable but vertical spacing 




can be achieved only by the inclusion of 
blank lines in the text. 

This program's best feature is that it ap- 
pears to be crashproof, eliminating the 
worry of lost text through entering an er- 
roneous command. This is a real blessing 
to the writer who formerly became so in- 
volved in the content of his text that he 
forgot the complicated command struc- 
ture of his word processor and bombed 
his text. 

12-Column Ledger 

Using column one for the dollar 
amount, and allowing the user to assign 
the remaining 11 column headings, 
12-Column Ledger maintains and prints 
financial records for income tax and other 
purposes. All column headings are on dis- 
play during data entry. The user simply 
types in date, check number, amount, reci- 
pient, purpose and column assignment, 
and the program prints out all column 



headings with page, month and grand 
totals. Characterized once again by ease 
of operation, this software performs ail 
necessary arithmetic and produces a 
clear, easy-to-read printout. 

Three-Across Mailing List 

This program accepts up to 220 names 
and addresses (in 16K), sorts data accord- 
ing to user preference, and prints address- 
es on standard adhesive-backed label 
stock, laid out in three-column format. 
Each label contains four lines of 24 
characters maximum length. While the 
Mailing List program is excellent for the 
small business, it should also be attrac- 
tive to any organization, church, fraternal 
order or social group which issues a 
newsletter or other mailings to its 
membership. 

Auto-Dialer 

Auto-Dialer uses a $3 telephone inter- 
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WHY 

TALKING 

ROBOT 

ATTACK 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 



A: Sofware support like this: 




ALL GAMES 



16KLevel2, Mod 1 + Mod 3 Cassette $15 95 
32k Level 2. Mod 1 + Mod 3 Diskette S19 95 
10% discount tor 2 games, 15% for 3 or more 
Games may be played with or without |oystick. 




SCARFMAN 




TALKING 
ROBOT ATTACK 

INCREDIBLE! This amazing game actually TALKS 
without a speech synthesizer, through the cassette 
AUXplug. 

You are armed with just a hand held laser In a 
remote section ol the space station you encounter 
armed robots, some march towards you. some wait 
around corners Watch out , the walls are electrified 
Zap as many robots as you dare before escaping 
into a new section where more robots await you 
The struggle continues. With Joystick action and 
VOICE OUTPUT, this game will amaze you 

SCARFMAN 

THE LATEST ARCADE CRAZE now runs on your 

TRS-80 

It's eat or be eaten You control Scartman around 

the maze, gobbing up everything in your path You 

attempt to eat it all before the monsters devour you 

Difficulty increases as game progresses. Excellent 

high speed machine language action game. From 

The Cornsoft Group With sound. 

CAUTION: Played with the Alpha Joystick, Scarfman 

may become addictive. 





SUPER NOVA 



Asteioids float ominously arounfl the 
screen you must Destroy trie asteroids 
Deloie they destroy you" (Big asteroids 
Ureal MO hitie ones i Voui snip will 
respond to tbiusl rotate hyperspace 
and tire Watch out lor that saucer with 
tne laser 1 As reviewed in May 1081 Byte 
.•mi! 



GALAXY INVASION 



The souno of the klaxon is calling you' 
Invaders have Men spotted warping 
toward Earth You shilt right and left as 
you fire your lasers A few creak form- 
ation and fly straight at you 1 You place 
your finger on the lire Pulton knowing 
mat this shot must connect! With sound 
effects! 



ATTACK FORCE 



As your snip appears on the Dollom of 
the maze, eight alien ships apMa' on the 
top III traveling directly at you 1 You 
move loward them and fire missiles But 
the more aliens you destroy, the faster 
the remaining ones Mcome it you get 
loo good you must enaure the Flag 
ship ' With sound effects' 



COSMIC FIGHTER - 



Your ship comes out ol tiyperspace 
under a convoy ol aliens You destroy 
every one. Bu! another set appears 
Inese seem more intelligent You 
e'iminate them, too Your fuel supply is 
cimnishing You must destroy two more 
sets oetore you can dock The space 
station is now on your scanner With 
i i, . 



METEOR MISSION II 3 



As you look down on you' view 
astronauts cry out for rescue You must I 
maneuver through the asteroids S 
meteors (Can you get back to the space 
station?) Fire lasers to destroy the 
asteroids but watch out there couic oe 
an alien FLAGSHIP lurking incudes 
sound elfecis' 



THE ALPHA JOYSTICK: 
REAL ARCADE ACTION 




■Features the famous ATARI JOYSTICK 
■Works with any Level II or disk system Model I 
■Plugs directly into KB or E/l (next to printer port) 
■Compatible with any other TRS-80 accessories 
■Saves your keyboard 

■Fun to experiment in BASIC Simply use A = INP(O) 
to read the joystick 
■ Fully assembled ready to plug in and use. 

Price includes Atari Joystick + Alpha interface + 
instructions + demo program The Alpha Joystick 
is backed by an unconditional money back 
guarantee It you are not delighted with it. return it 
within 14 days tor a prompt and courteous refund 




Toll 
Order Line 

(800) 
221-0916 



ADO tl.SO PER ORDER FOR SHIPPING AND HANOLING 

ALL ORDERS SMIPPEO FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS MO. 

COO AOOS? 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE "j 

N Y RESIDENTS AOU SALES TAX H 




ALPHA Products 
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85-71 79th Street. Woodhaven NY 11421 



(212)296 5916 
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face relay to dial the number of any 500 
names held in memory, upon keyboard en- 
try of that name. The user enters each 
name and phone number one time. Subse- 
quently, the program lists the names on 
the screen. The program matches the cor- 
rect number to the name entered, and 
dials the number by toggling the cassette 
output from the computer. This signal is 
then processed by the interface relay and 
transmitted to the phone company's 
switching equipment. 

The purchase price of the program in- 
cludes a schematic diagram for assem- 
bling the interface relay and connection to 
the telephone line. The five relay compo- 
nents are listed with their Radio Shack 
part numbers for easy acquisition. As- 
sembly of the interface relay should be a 
simple matter for most anyone. 

This program will be of benefit to any- 
one whose business requires a lot of tele- 
phoning, especially when the user needs 
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to know the cost of the calls. Once the 
user has entered the current schedule of 
telephone charges (obtainable from the 
initial pages of the phone book or from the 
phone company's business office), the 
program will time each call and calculate 



its cost. The duration and charges for the 
call are continuously displayed while the 
call is in progress. 

An adjunct to the Auto-Dialer is the 
Phone Toll Charge program, which is in- 
cluded in the package. Very similar to the 
Auto-Dialer time and charge monitor, this 
program is intended for use with one-time, 
long distance calls. 

Each of the four programs is available 
separately, but the combined price of one 
package makes it an exceptional buy. The 
accompanying documentation, while not 
super slick in format, is more than ade- 
quate in content, and all programs are 
self-documenting on the screen. All are 
simple to use. 

For the small businessman, the person 
merchandising out of his or her home, 
the club secretary or any person required 
to do a lot of telephoning, this set of pro- 
grams must be regarded as packaged 
convenience at a very low price.! 



Crash Course in Microcomputers 

Louis E. Frenzel, Jr. 

Howard W. Sams & Co., Inc. 

Indianapolis, IN 

Softcover, 264 pp. 

$17.50 

by Debra Marshall 

80 Microcomputing staff 

This book is a self-teaching course in 
the basics of microcomputers. It is de- 
signed to provide the newcomer with a 
solid basic knowledge about the con- 
struction, internal circuitry, and operation 
of micros so that the reader may proceed 
painlessly to more complicated and less 
generalized material. 

The chapters are fairly short. Each 
chapter covers a very specific part of the 
microprocessor, such as memories, bi- 
nary data, I/O operations, peripheral 
equipment and programming. Each topic 
is covered in a set of short explanatory 
sections, which are further divided into 
single concepts which are eventually as- 
similated into the whole picture of the top- 
ic at hand. Every paragraph is followed by 
a question designed to reinforce the key 
word or concept presented in the para- 
graph, and each chapter ends with a short 
quiz which again covers the concepts and 
vocabulary presented. 

The chapters are built on one another; 
in other words, the concepts in previous 
chapters must first be fully assimilated in 
order to appreciate the information in 
subsequent chapters. I found this pro- 



gressive method to be very effective; while 
new information is constantly presented, 
the old information is concurrently rein- 
forced. 

Although the questions asked as rein- 
forcement following each chapter section 
often seem painfully obvious, the method 
does seem to work. By simply reading the 
chapter on binary data, I learned more 
about microcomputer number systems 
than I ever hoped to know. In fact, I 
learned enough to believe Dennis Kitsz 
when he says that machine language is a 
piece of cake. 



"Although the questions 

asked as reinforcement 

. . . often seem 

painfully obvious, 

the method does 

seem to work. " 



The book assumes you have literally no 
prior knowledge of microcomputers. The 
first chapter explains what a microcom- 
puter is, what it does, what it is made of, 
and presents basic terms such as micro- 



processor, data, memory, digital timer, 
and monitor. Explanations are accom- 
panied by nicely executed illustrations 
and photos. 

You do not need an electronics, math or 
technical background to use and appreci- 
ate this book. At the same time, it was 
aimed at an audience which would in- 
clude professionals who wish to learn 
about the microcomputer field, and so the 
tone of the book is businesslike, to the 
point, and highly readable. Its physical 
make-up is also nicely presented: Type is 
well set, it is nicely laid out, and has been 
carefully edited. Figures are simple and 
well-documented. 

In spite of its simplicity, the book 
speaks to readers who intend to pursue 
microcomputers further. The last three 
chapters cover the basics of machine lan- 
guage and Basic programming. Two ap- 
pendices, covering the 8085 instruction 
set and the ASCII code, are also included. 

The book meets its goal: Anyone who 
reads it has to come away with at least a 
working knowledge of the microcomputer, 
and one that will leave the reader well- 
versed in the lingo of the trade. This book 
would be an incredible boon to any busi- 
ness office which has just had one of 
those totally mysterious and incompre- 
hensible machines foisted on it, as well as 
to anyone who wants to demystify the ma- 
chine which is steadily making inroads in- 
to the most common areas of society. The 
book is well worth its price, and well worth 
the time it takes to read it.B 
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THE ALPHA 
I/O SYSTEM 

a complete failure? 

THE INSIDE STORY 



'i Happened 3 years ago. when our President made a decision At the lime we specialised 
in custom analog and digital circuit design The decision was to attempt to develop a line ol 
standard interlace hardware for the emerging microcomputers At the time 0977) we had to 
decide which ol the new machines could become the industry standard ' ot the low cost 
micros 

Despite a lew aggravating but minor deficiencies. Ihe TRS-80 seemed tohave the most 
chance ot success and it had the besi pnce/perioimance ralio Also wit* some imagination 
their large sales organization could become the largest service network in the world, a reassur 
ing ihroughi tor the many novices in this new field 

It became clear that the TRS-80 could be used (with our then hypothetical system) lo solve 
problems in many fields where computers were not yet used, mostly because ol their high cost 

The IOEA was simple 1 ALPHA PRODUCT would supply the missing link between ihe TRS 
80 and the ' outside world " (more about this outside world' later) 

Early Survival 

DANGER! If Radio-Shack entered the same market, we probably would nol have survived but 
ihe expectation was that they would be too busy developing their basic line (drives, printers. 
modem etc ) Thanks to our more specialized products, we would not be competing with Ihem 
IAD START! We began with a failure Our lirst product was supposed lo be a simple, low cost 
general purpose device It would allow Ihe TRS-80 lo accept inputs other than the keyboard 
Many kinds of external devices (the "outside world' menlioned before) like photocells 
sensors, thermostats, switches, contacts, etc could be connected easily In addition there 
were two relays to control (on or off) external loads such as motors, lamps, appliances, 
heaters, etc etc In other words, ii would allow the computer to interact or interface with 
external devices We called it the INTERFACER 2 Whai a mistake 1 II sounded too much like 
expansion interface " Many enthusiastic TRS-80 users called Ihinking that our INTER- 
FACER 2" was a low cost Expansion interlace lat $85 that would have been a real bargain 1 1 
We wanted to change the confusing name Thai meant reprinting the manual, changing Ihe ad. 
scrapping the flyers, discarding the silk screened cases Well INTERFACER 2 " it would 
slay 

TROUBLE' We also lound thai the majority ol TRS-80 users were AFRAIO ol Ihe hardware They 
could be very comfortable with lancy programming but thoughl you had to be a compuier 
specialist or technically inclined to put the INTERFACER 2 lo work In Irulh some IMAGINA- 
TION and a SCREWDRIVER is all you really need Anyone able lo wre a swilch could use this 
device 

WORSE! There was also the fear of plugging a foreign device into the precious computer 
This notion has an but disappeared as there are now so many quality products designed lor ihe 
TRS-80 thai plugging in a non Radio Shack device has become common 

Our ad in Creative Computing (80-Microcomputinq did nol yei exist) hardly paid lor itsell 




We had a decision to make Were we wrong or |ust too early? Our hrsl INTERFACER 2 was sold 
lo someone who wanted lo and succeeded in controlling his lancy model railroad with his 
TRS-80 Interesting, but what made us stick with ihe concept was that some of our INTER 
FACERS began finding use in applications with fascinating possibilities Space is lacking to 
describe ihem but the most exciting was the successful use of the system n assisting a handi 
capped young boy We were pleased lo hear ol such a meamngtui applicalion 

Today 

Three years later as you can see in our ads Ihe INTERFACER 2 is alive and wen Tne 
price went up a bit. and despite the introduction ol the more powerful INTERFACER 80 the 
sales nave been steady 

Then came the least understood product 1 the ANALOG 80 This $139 nicely designed 
module is an Analog to Digital converter with 8 input channels Used wiih your TRS-80 it 
provides a powerful data acquisition system' This iargon simply means that you can 
monitor, measure and record 8 independani varying voltages Very lew people realized i's real 
power Such a system would have cosl over ten thousand dollars |ust a lew years ago 

The possibilities in scientific and engineering environments are endless This system 
could replace chart recorders digital data recorders, programmable calculators data analyzers 
and many other specialized and expensive pieces ol equipment Furthermore up lo 8 ANALOG 
80 s could be used simultaneously lor a total ol 64 channels ot analog input 1 They simply plug 
into the TRS-80 using our X series of bus extenders iEXPANOABUS) 



The idea was simple. We would supply the 
missing link between the TRS-80 and the 
"outside world" 



Our next product was to be a second generation, input/Output interface, with more 
flexibility than the INTERFACER 2 Careful design and refinement yielded the INTERFACER 80. 
Ihe most powerful real world interface on the market today It has 8 inputs, each optically- 
isolated and 8 outputs, each with a relay contact The INTERFACER 80 is fully compatible with 
our ANALOG 80. allowing these to be used together in order to create systems that control 
external devices based on "sensed input under control of Ihe TRS-80 
A FAILURE! in spite of our extensive advertising, very tew are aware of the existence ot the 
powerful ALPHA I/O SYSTEM 

The Facts Are: 

-the ALPHA SYSTEM/TRS 80 combination forms an incredibly versatile and powerlul tool lor 
acquisition /processing/control 

-In spue ol its moderate cost the system is sophisticated and reliable 
-The entire system can be easily programmed in BASIC using iNP(Xiand OUT X Y commands 
The modular approach and our EXPANDABUS allow lor instant expansion as requirements 
demand 

The following pages contain more information about the devices menlioned here We invite 
you to call or write to discuss your particular application 

Device descriptions; NEXT PAGE 



TIMEDATE 80 



<& 




Neat. Compact Design 
3 Years Battery Life 



Slips Inside E/l 
(Y Option Shown) 



Real Time Without 
Expansion Interface 



•Complete, self contained true real time clock/calendar. TIMEDATE 80 continues lo keep 

accuiaie lime and date when the computer is turned oil or experiences a power failure 

•TIMEDATE 10 only needs lo be set once, and it s two replaceable AAA batteries (nol 

included) keep TIMEOATE 80 running in excess ol 3 years Costly Ni-Cad batteries and 

charging circuits are eliminated 

•The instant power is applied to the TRS-80. 1IMEDATE 80 provides MO/DATE/YR. DAY 

ol WEEK. HRMIN SEC and AM/PM inlormalion with quartz accuracy 

•TIMEOATE 80 replaces the computer's internal clock Extremely useful for aulomalic 

operation ol remote systems with no operator in attendance M the power lails and then is 



WHY LOSE PRECIOUS TIME ? 

restored, only TIMEDATE 80 will update the system with current TIME and DATE information 
an impossibility with the computer s internal clock 

•TIMEDATE 80 is quartz crystal based with INTELLIGENT CALENDAR, including provisions 
lor leap year' TIME display may be by 12 hour AM/PM or by 24 hour military and Eruopean 
lormal 

•TIMEDATE 80 plugs directly into Ihe rear ol the TRS 80 keyboard and gives ihe times 
function even without an Expansion interlace For those with a disk system it plugs into the 
letl side panel of the Expansion interface An optional Y" connector can provide lor further 
expansion 

•TIMEDATE SO'i small size keeps the compuier table uncluttered II you have an Expansion 
Interface. TIMEOATE 80 literally "DISAPPEARS" by slipping into the empiy space in the 
bottom ot the interlace 

• Two sets of software, on cassette, come with TIMEDATE 80— TIMESET and TIMES 
TIMESET is a step by step sei ot simple instructions lor setting TIMEDATE 80 TIMES 
is a set of poke routines which patch DOS and Level n TIMES to read TIMEDATE 80 and is 
easily incorporated into any user sotlware TIMES will always print the lime and dale 
when LISTING a program— great tor Keeping track of revisions' 

•Other valuable uses for TIMEOATE 80 are accurate date and time intormation tor business 
reports like payroll records financial reports, etc or lo various I/O devices requiring 24 
hour clock input, such as laboratory instrumentation and lo communication systems 
needing Log in/Log Out data (bulletin boards) 

•TIMEDATE 80, fully assembled and tested 90 day warranty complete with instructions 
and software on casseite. $95 00 Y option add $12 00 



NEW: Computer to Computer ordering:(212) 441-3755 (24 hr. data line) 



CALL 




ALPHA 



(212) 296 5916 
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Structured Basic and Beyond 
Wayne Amesbury 
Computer Science Press Inc. 
Soft cover, 310 pp. 
$10.95 

by John W. Liskey 

How many times have program writ- 
ers—novice and experienced 
alike— been admonished to design a pro- 
gram before committing a single state- 
ment or instruction to paper? In spite of 
this, how many succumb to that urge to 
reach for the coding form and gleefully 
write code off the top of their heads? And 
how often does this lead to gibberish, 
requiring hours of toil to debug? 

In the early days (a couple of years ago), 
it may have been practical to make a pro- 
gram an individual work of art. Devoted 
hobbyists could afford to spend hours 
getting a tortured jumble of statements to 
execute properly. This is no longer a lux- 
ury business can afford; nor does it make 
any sense with the development of the 
structured approach to program design. 

In Structured Basic and Beyond, Dr. 
Wayne Amesbury presents an approach 
making it possible for students to grasp 
the concept of designing a program be- 
fore going anywhere near a keyboard. Pro- 
fessionals will find this book a new way of 
life if they have never seriously looked into 
structured design before. 

Dr. Amesbury presents pseudo-code as 
the primary designing aid. At no time is 
the discussion bound by any one version 
of Basic. The underlying principle of the 
book is to avoid imposing a particular ver- 
sion on the student. For this reason, there 
is a philosophical basis throughout the 
book completely independent of any lan- 
guage. From this book, anyone can pro- 
gress to an understanding of Cobol, For- 
tran, PL/1, Pascal or Algol without difficul- 
ty. This book is not written only for the per- 
son who wants to understand the logic 
and process of a program. It causes one 
to understand structured design by simp- 
ly following and trying the beautifully 
clear explanations. If any point is empha- 
sized, it is the desirability of designing 
programs that are portable from one sys- 
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tern and language to another. 

While the theme of this book is struc- 
tured design, you should not jump to the 
conclusion it might be vague on the prac- 
tical applications of Basic. Dr. Amesbury 
follows each pseudo-code demonstration 
with examples showing the relationship 
between pseudo-code and Basic state- 
ments. He has also gone to great lengths 
to point out differences between the many 



mini-era. Some programmers will view this 
with sadness, for they have traditionally 
winged it, writing line after program line, 
trying to figure out their program after try- 
ing to run it. The person emerging today in 
professional program design and develop- 
ment is one who never goes near a com- 
puter until his or her program has been 
completely designed and walked through; 
one who makes certain anyone else can 



"... if you want to write 
professional programs, (this book) 
will open your eyes to a philosophy, 
of incalculable value." 



versions of Basic, often illustrating how 
the same problem may be solved in differ- 
ent versions. The key element to solving 
these problems is understanding the log- 
ic, so when a different version is encoun- 
tered, you can easily make the conversion 
and be on your way. 
Today we are seeing the passing of a 



follow his or her program design; one who 
is sold on the structured design concept. 
If you enjoy debugging a convoluted 
program, this book could ruin your life. 
But if you want to write professional pro- 
grams, it will open your eyes to a philoso- 
phy and approach of incalculable value 
and benefit.! 



Introduction to PASCAL 

Including UCSD PASCAL 

Rodney Zaks 

Sybex Inc. 

Sof tcover, 422 pp. 

$8.95 

by Dennis Thurlow 

While relaxing at the local inn I 
chanced to hear two fellow stu- 
dents speaking. One explained to the oth- 
er the simplicity of learning programming 
with the help of Pascal. Being quick wit- 
ted, and knowing the pay scale in the com- 
puter field, I decided to find out who this 
Pascal was. 

I bought a copy of Introduction to Pas- 
cal by Rodney Zaks, a "tutorial and refer- 
ence text," according to the author. By 
confining myself to a comfortable chair 
and following the advice given in "How to 
Read This Book," I was able to complete 
the introductory chapter with ease. The 
exercises seemed simple enough, so I 
continued, with only occasional help from 



a dictionary, through chapter six. 

My understanding of computers, pro- 
gramming, Pascal, and the potential of 
the field were sufficient, at this point, 
for me to keep on reading without any 
problem. 

Further excursions into the book taught 
me about data types, files, arrays, and 
sets. (I still keep the book close by, as the 
appendices, syntax charts, and examples 
make it an excellent reference manual.) 

Before completing my studies I learned 
of a new, interactive version of my old 
friend, called UCSD Pascal. I could now 
talk directly through a keyboard and get 
my answers immediately! The book was 
again helpful, with separate discussions 
in each chapter on implementing the 
material in the UCSD version, and an ap- 
pendix on handling UCSD interactive files. 

Sample answers to the programming 
exercises are given, the publisher is 
dedicated to updating any errors, the 
book is well indexed, and though the cover 
may only shine like silver, the contents 
glitter like gold. ■ 
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NOW MODEL I AIMO MODEL III I 



Now Model III users can take advantage of the ALPHA I/O system too. Our new 
MOD III/I BUS CONVERTER allows most port based Model I accessories (such as 
our ANALOG-80, INTERFACER 2 and INTERFACER-80) to connect to the Model III 
bus. MOD III/I BUS CONVERTER, complete with all connectors, only $39.95. 



Printers' 



ir.3 



PRINTSWITCH 

Have 2 printers on line at all times and select printer 1 or 
2 oy means of a conveniently located switch End the problem 
ot constantly plugging anfl unplugging pnnter cables PRINT- 
SWITCH is a compact module that plugs onto the pareHel printer 
port ol your TRS-80 and provides an edge connector tor each 
ot your two printers, it works with any two types ot printers 
dot matrix, daisy wheel, plotters TRS-80 converted seieclncs 
etc Assembled, tested, ready to use with connector and m 
I structions For Model lor III (please specity). ONLY S59 00 
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SUPERIOR QUALITY REPLACEMENT * EXTENSION CABLES 
Highest quality cable and high force, gold plated contacts 

ensure Ihe utmost in connection reliability 

KEYBOARD TO EXPANSION INTERFACE $21 

© DISK DRIVE CABLE FOR 1 OR 2 ORIVES . S32 

© DISK DRIVE CABLE FOR 3 OR 4 DRIVES $45 

© DISK DRIVE CABLE EXTENDER $22 

• PRINTER CABLE EXTENDER $24 

• 40 PIN BUS EXTENDER -2 ft . $22 4 it. $24 
Custom cable configurations are also available Call us 




YOU ASKED FOR IT EXPANDABUS XI X? X3 AND X4 

CONNECT ALL YOUR TRS-80 DEVICES SIMULTANEOUSLY 
on the 40 pin TRS-80 bus Any device thai normally plugs 
mto the keyboard edge connector w«l also plug into trie 
EXPANDABUS The X4 is Shown with protective 
covers (included) Ihe TRS-80 keyboard contains the bus 
drivers I74LS367) lor up lo 20 devices more than you Mil 
ever need Using me E/l it plugs either between KB and £/i 
or m the Screen Printer port Prolessionai Quality goio 
sated contacts Computer grade 40 conductor ribbon cable 
X2 $29 X3 $44 X4 $59 X5 $74 

Custom configurations are also available callus 




ANALOG 80 A WORLD OF NEW APPLICATIONS POSSIBLE 
A DttlTAI Mi T METERS PlUGCEO INTO vrjufl TRS 80'" 
Measure Temperature Voltage Cur-t-r Light Pressu'e etc 
Very easy lo use lor example ie! s reac -Bui cianne #4 io 
OUT 4 Selects input »4 and also std-ts the conversion 20 
A = iNP(O) Puis the rcsuii m vanao'e A votia 1 
Specifications input range 0-SV to 0-SOOV Each channel 
can be set to a different scale 

Resolution 20mV(on5V range) Accuracy 8 bits I 5%i Port 
Address lumper seleciabie Plugs into keyboard bus or E/l 
(screen printer port) Assemoied and tested 90 day warranty 
^Complete with powei supply, connector manual $139 
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I DISK DRIVE EXTENDER CABLE. FREE YOUR MINI-DRIVES 

End the daisy-chain mess once and for all Fits all mini- 
Idrives Percom Aerocomp Shugart. Micropolis. MTl, Vista 
IPertec, Siemens BASF. East to install just remove Ihe drive 
■cover plug m the EXTENDER CABLE and replace tne cover 

Now you can change and move your drives withoul dis 
pssembly Keep the cover on and Ihe dust out. High reliability 
gold plated contacts computer grade 34 conductor cable 
[Tested and guaranteed 

Gel one for each drive . . ONLY . . . . $8 95 







TOTRS-80 



INTERFACER 2: LOW COST INPUT/OUTPUT MODULE 
Still Ihe best va'ue M sense'contiol oe.ices Jse ■! 'or 
energy control, burglar alarm, darkroom, seiectric drive 
model trams, robots. Skinner Dok 
-8 latched TIL outputs 2 relays SPOT 2A 125V contacts 
-8 TTL/CMOS inputs Inpul and 1 are optically isolated 
—Neat and compact design, very easy to use 
tO A = INP(O) Reads me 8 inputs (it A = all inputs at 
tow) 20 OUT O.X Controls the outputs and the relays 
Assemoied & tested. 90 day warranty Price includes power 
supply cable to KB or E/l, superb user s manual, free 
j)hone dialer p rogram $95. Manual only $5. 

powe^elay^jnde? 
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INTERFACER-80 Ihe most powetui Sense 'Control module 

•8 industrial grade relays smgie psie oouoe throw isolated 
contacts 2 Amp rff. i25Voils TTL latched outputs are also 
accessible to drive external solid stale relays 

•8 convenient LEDs constantly display the relay slates 
Simple • OUT commands I in basic l contra me 8 relays 

• 8 optically isolated inputs tor easy direct interlacing to 
external switcnes photocells keypads sensors elc 
Simple INP ' commands read ihe status ol ine B inputs 
Selectable port address Clean compact enclosed design 
Assembled, tested 90 days warranty Price includes power 

^supply cable connector . superb user s manual $ 1 59 



GREEN SCREEN 

WARNING 

IBM and an the biggies are using green screen monitors 

lis advantages are now widely advertised We feel that every 

'RS-80 user should enioy the benefits it provides But 

WARNING all Creen Screens are not created equal Here is 

what we found 

•Several are |ust a fiat piece of siandaro colored Lucie. Tne 

green lint was not made lor this purpose and is pidged by 

manv io be too dark increasing the brightness control win 

result m a fuzzy display 

•Some are simply a piece of mm piasiic fnm taped onto a 

cardboard frame The color is satisfactory but the wobbly film 

gives it a poor appearance 

•One ' optical tiller ' is in fact plain acrylic sheeting 

•False claim A lew pretend to reduce glare in fact meir 

flat and shiny surlaces Ibolh lilm and Luote type) ADO their 

own reflections lo the screen 

•A tew laughs One ad claims to "reduce screen contrast' 

Sorry gemieman but it's |ust me opposite One of me LVeen 

Screen's mamr benefits is lo increase me contrast between 

the text and me background 

[•Drawbacks Most are using adhesive strips lo fasten then 
screen to me monitor. This method makes >t awkward lo 
remove lot necessary periodical cleaning An (except ours) 
are flat Light pens win not work reliably because ol the big 
gap between me screen and Ihe tube 
Many companies have been manufacturing video tillers lor 
years We are nol thelirsl (somelhink m»y atei hut we nave 
done our homework and we think we manufacture the sest 
Green Screen Here >s why 

I »it fits right onto ihe picture tube like a sk.n because it is me 
only CURVEO screen MOLDED exactly lo the piclure tube 
curvature It is Cut precisely to cover the exposed area of me 
picture lube The tit is sucn thai the sialic eieciucity is 
sufficient to keep it in place 1 We also include some invisible 
reusable tape for a more secure fastening 
•The filler material that we use is iust ngni. not too dark nor 
too light The result is a really eye pleasing display 
We are so sure that you win never take your Green screen off 
that we oiler an unconditional money-back guaranty try our 
Green Screen lor 1 4 days if tor any reason you are not 
delighted with il return it lor a prompt relund 
A last word We think that companies like ours who are 
selling mainly by mail should «iist their sireel address»have a 
phone number (tor questions and orders wccept CODs. not 

I every one likes to send checks to a PO bo»»ofler ihe 

I convenience of charging their purchase lo maior credit cards 
How come we are me only green screen people doing if 
C'der your ALPHA GREEN SCREEN today $12 50 



Ml ALPHA Products 



85-71 79 St.WOODHAVEN N.Y. 11421 



AOD S2 50 PER OROER FOR SHIPPING ANO HANOLING 

ALL ORDERS SHIPPFt) FIRST CLASS MAIL 

WE ACCEPT VISA MASTFR CHARGE CHECKS MO 

COD ADO 57 00 EXTRA 

OUANTITY DISCOUNTS AVAILABLE 

N Y RESIDENTS AOD SALES TAX 



S Info and order: (212)296*5916 
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New Uses for the Home Computer 

In the Stock Market 

Thomas V. Lenz 

Spring Creek 

Elko, Nevada 89801 

Sof tcover, 254 pp. 

$19.95 

by Dave Smith 

Are you looking to improve your score 
in the stock market? Would you like 
to have an edge over the experts on Wall 
Street? Thomas Lenz has provided the 
means for you to do so in this fascinating 
collection of 34 Level I programs for the 
TRS-80. 

Possessing a degree in business ad- 
ministration and more than 20 years ex- 
perience as a securities broker, the author 
has developed these programs over the 
course of seven years, borrowing from the 
field of physics the methodology of hybrid 
analysis and applying it to the field of 
stock market timing. 

The Truth Behind Myths 

The book explores the analysis of both 
short (seasonal) and long-term cycles in 
the market, using data which has been 
collected over the course of 96 years and 
which are available to everyone. Using the 
personal computer as a sophisticated 
tool, Lenz demonstrates the truth behind 
numerous market myths and shows you 
how to quantify business cycles that are 
unknown to many expert market analysts. 

The book presents the 34 programs 
with a textual explanation of each. The 
programs are progressive, with each suc- 
ceeding unit built upon previous ones. 
Typical programs run average, percent- 
age series, statistical oscillograph, strong 
cycle test, random trading test, upper 
limit of earnings, statistical resonator (for 
locating cycles), statistical wave filter and 
extensive statistical analysis. The text ac- 
companying each program is clear and 
well presented. Lenz details the creation, 
function and significance of each pro- 
gram as it is presented. A glossary pro- 
vides clarification of unfamiliar market 
and mathematical terms. 

The programs which are central to the 
purpose of the book let you create, edit 



and duplicate data files. Computer 
sophisticates will deplore the use of the 
lowly cassette tape as the data file stor- 
age medium, but Lenz makes no apologies 
for its use. Since all programs are design- 
ed to operate within 16K of memory (and 
most within 4K), the use of a cassette is 
appropriate. 

From Level I to Level II 

The programs are printed in large, easy- 
to-read type, making them easier to type 
in. Two problems arise, however, concern- 
ing the format of the programs them- 
selves. The first is that they are all written 
in Level I Basic. The best estimate I can 
find says that only between three and five 
percent of the TRS-80s sold operate on 
Level I. That leaves several hundred thou- 
sand potential users of these programs 
who will be required to translate the pro- 
grams into Level II. 

The author in response to this problem 
included in the book, a Level I to Level II 
translation guide which is where the sec- 



ond problem arises. The guide is seriously 
deficient in dealing with Level II array defi- 
nitions (no mention of the DIM statement 
requirement) and does not comment on 
the translation of logical operators at all. 
Only those benighted individuals who, like 
me, moved to Level II after mastering 
Level I will recall that in Level I "*" and 
" + " are the equivalent Level II operators 
And and Or. Level II users who are not pro- 
grammers are likely to be severely disap- 
pointed to find, after translating and en- 
tering some of the more extensive pro- 
grams, that the programs either do not 
work or worse, that they provide erroneous 
analysis. 

Translation problems notwithstanding, 
Lenz has certainly provided in this book all 
the justification needed for purchasing a 
personal computer. Whether you are a 
stock market amateur seeking to broaden 
your knowledge or a daily trader on Wall 
Street, you can only enlarge your under- 
standing of business cycle analysis 
through reading and applying this book.B 



Date File Programming in Basic 

LeRoy Finkel and Jerald R. Brown 

John Wiley & Sons 

New York, NY 

Sof tcover, 338 pp. 

$9.95 

by Hal Knippenberg 

Have you ever wished someone would 
write a book about Basic offering 
more than a simple introduction to the 
language— a book for those of you 
already writing simple programs that 
would teach you more advanced program- 
ming tricks? 

Two well-known educational consul- 
tants on computers, LeRoy Finkel and 
Jerald R. Brown, have done just that. Their 
new book, Data File Programming in 
Basic, is a self-teaching guide for using 
data files with your microcomputer. This 
book explains data files used in TRS-80 
Microsoft and Northstar Basic. And the 
explanations are simple enough to be ap- 
plied to other versions of Basic with little 
effort. 

Although not written for the novice, this 
publication begins with a review of key 
Basic programming statements. Because 
the authors believe programs should be 
readable by computers and people, they 
show several ways to use "prettyprint" to 
improve program clarity. They believe in 
organizing programs from top to bottom 
and using many remark statements to ex- 



plain program logic and make it into 
modules. Their review of Basic state- 
ments is notable because it concentrates 
on string and substring statements. 
Strings are seldom covered thoroughly in 
introductory books on the subject, but are 
essential to the effective use of files. 

After their excellent Basic review. 
Finkel and Brown focus on writing data 
file programs. They show how to build 
data entry and error-checking routines — 
especially helpful information consider- 
ing most program errors occur at data en- 
try time. 



"Sequential files 

are ideal 
for cassettes." 



Once error-free data entry is mastered, 
the authors show how to create and read 
back sequential data files. From this point 
on, you can write programs using more 
data than your computer has memory. 
Your disks or cassettes become a working 
extension of your computer, not just a 
means for storing programs. 

The skills mastered working with se- 
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quential files are used to help you build 
utility programs. You learn how to write 
programs for copying files and for adding, 
changing or deleting file data. You even 
learn to combine data from more than one 
file. 

Many of you do not have disks, but are 
able to put data on cassettes. Sequential 
files are ideal for cassettes, and chapter 
six is devoted entirely to cassette data 
files. 

The book completes your data file edu- 



cation with a thorough discussion of ran- 
dom access files. You learn how to create, 
verify, copy and change random access 
disk data files. You also learn to write pro- 
grams that will convert sequential files to 
random access files. 

The final chapter, "Random Access File 
Applications," shows several ways to use 
your new-found skills. One very useful 
technique utilizes sequential pointer data 
files to index large random access files. 
By the time you master this technique, 



you will be writing quite sophisticated 
data file programs. 

This is the first book I have read that 
shows how to write effective data file pro- 
grams. After studying this publication, 
you should be able to write these pro- 
grams with ease, modify any commercial 
programs, and adapt data file programs 
found in computing magazines. In short, I 
think Data File Programming in Basic is 
an excellent book and well worth your 
study. ■ 



The Small Computer in Small Business 

A Guide to Selection and Use 

Brian R. Smith 

Hardcover, 144 pp. 

The Stephen Green Press 

Brattleboro, VT 

$12.50 

by Bert Latamore 

80 Microcomputing staff 

Author Brian Smith promises that his 
book, "requires no prior understand- 
ing of computers or computer terminolo- 
gy. It is written for those who want to 
know how a small computer can help 
them run a business successfully." 

Smith fulfills this promise and has writ- 
ten a book belongs on every small 
businessperson's reading list. 

Smith focuses completely on the issue 
at hand. Except for one excursion into a 
brief explanation of computer electronics, 
he avoids talking about technical subjects 
that are not directly involved in the use of 
computers in small businesses. When he 
does use a technical term it is one that 
cannot be avoided and he carefully ex- 
plains its meaning and significance to 
business. 

He educates the reader to all those 
computer issues and terms needed so 
that the business person can talk with 
computer store personnel on an equal 
footing. Smith also provides a glossary of 
technical terms in the back of the book for 
handy reference. 

All of this is relayed in a solid journal- 
istic writing style which is unfortunately 
rare in computer literature. As a result, the 
book is extremely easy to read. 

Definitions 

Smith starts his book logically with a 
discussion of what a computer is and 
what it is not. He points out at the start 
that the computer "is nothing more than a 
very fast, very dumb, adding machine." 



He also points out that the computer 
almost never makes a mistake, that the 
mistakes are almost always made by the 
programmers and operators. This point il- 
lustrates one of the basic issues he takes 
up later in the book; the businessperson 
has to know exactly what he wants to ac- 
complish with a computer. 

Smith spends his second chapter giv- 
ing the reader a look at how the computer 
works. He explains base 2 math and why it 
is used in computers, and he discusses 
OR, AND, NOR and NAND gates, half add 
ers and the like. 

This is the one place where Smith really 
does get more technical than he probably 
needs to be. The more technical aspects 
of this chapter, particularly the wiring dis- 
cussion, would probably have been better 
placed in an appendix or left out alto- 
gether. However, since he never refers to 
the circuitry again in his book, the reader 
does not really have to understand this bit 
of wiring technology he discusses. 

Do not skip the whole chapter, however. 
He does explain what a central process- 
ing unit is, how the size of its main memo- 
ry is measured and what that means to the 
business user. He discusses input and 
output devices, floppy and hard disks, 
tape storage and the usefulness of each. 

Once through these basics, Smith de- 
fines data processing and discusses how 
this is accomplished with the computer. 
He works with the simple example of a 
payroll clerk equipped with a calculator 
and typewriter and discusses exactly 
what data the clerk will need and how to 
calculate it to determine employees' pay. 
Smith then diagrams the steps in a simple 
flowchart. He gives a chart showing ex- 
actly how the computer would handle the 
same task from the reading of time-card 
data to the printing out of the checks. 

Machine Capacity 

Smith then introduces one of the im- 
portant themes in his book: machine ca- 



pacity, which he returns to several times 
throughout. He states that one of the 
most common errors is to underestimate 
a small business' computer needs. He 
strongly advises the businessperson first 
study the business carefully to determine 
exactly how much data the machine 
needs to handle. Then Smith advises him 
to buy a machine that has at least twice 
that capacity or one which can be easily 
expanded to allow for growth of the 
business. 

He points out that a computer will 
represent a large up-front expense for a 
small business and it will only pay for 
itself over time. If the business outgrows a 
machine in a year, that machine has not 
paid its way. 

Software 

In chapter 3 Smith starts with the 
basics— what software is and why it is 
needed. Smith again avoids confusing the 
beginner by presuming the reader has no 
knowledge of a microcomputer and its 
operation. 

Smith goes on to discuss operating sys- 
tems, particularly CP/M, compilers and in- 
terpreters. He also briefly discusses For- 
tran, Basic, Cobol, Pascal, PL/1 and C. 
These discussions are extremely brief- 
he devotes one paragraph to each of the 
last three. He makes no attempt at teach- 
ing the reader to program. He points out 
that there are many good books on the 
subject already available. Beyond that, he 
recommends that the businessperson 
avoid learning to program, and he warns 
that a businessperson who spends his 
days figuring more elegant ways to have 
his machine perform mathematical calcu- 
lations is not spending his time on the 
computers doing what he should be do- 
ing—running his business. The computer 
can become an expensive and very 
distracting toy. 

Chapter 4, "The Coming of the Com- 
puter in Small Business," is a summary, 
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and represents a study done by Bob 
Vitelli, a former student of Smith's at 
Franklin Pierce College in Rindge, NH. 
The chapter presents the rational for the 
book which, Smith says, was inspired by 
Vitalli's survey of the attitudes of small 
business owners towards computers. 

"The entire Vitelli study pointed out the 
need for knowledge and information. In 
many cases, either the information that 
business owners had about computers 
was insufficient, was misleading, or both. 
This book was written to dispel some of 
the myths that the study found business 
owners have about computers, and to pro- 
vide some basic knowledge so that intelli- 
gent questions could be posed by busi- 
ness owners before a decision on a com- 
puter is made," Smith wrote. 

In chapter 5, "Applications," Smith dis- 
cusses which application programs are 
available and what to do if you need one 
that is not. 

Smith starts by pointing out that while 
too often the businessman interested in 
computerization buys a computer, then 
buys software, and finally tries "to shoe- 
horn both the hardware and the software 
to fit the business," the sequence of 
events should be just the opposite. 

Smith says the first step should be to 
"define what it is within the business that 
needs automating." Then find software 
that will handle the jobs you have and 
finally find a machine that the software 
will run on. 

Therefore, Smith starts the chapter on 
software with a discussion of those areas 
of business that are susceptible to com- 
puterization. He concentrates on the 
basic financial areas of receipts and dis- 
bursements, accounts receivable and bill- 
ing, accounts payable, inventory control, 
budgeting, customer mailing lists and 
payroll. 

Smith goes on to explain exactly how to 
discover how large a file each will need, 
using the simple example of an employee 
file for a firm with 15 employees. This is 
very important since the software and 
machine the company buys must be able 
to handle various size files. 

He then defines the four sources of 
software: turnkey systems, packaged pro- 
grams, learning-by-doing with kits, and 
custom written material. He explains the 
importance of error messages, warranties 
and program maintenance contracts. 

Having examined the relative merits of 
all these approaches, Smith proceeds to a 
detailed analysis of the basic business 
functions. He explains the correct proce- 
dures involved for each using flowcharts 
and sample ledger pages, and examines 
the ways that the computer approaches 



each job. He explains what the effect of 
computerization will have on the account- 
ant's work load and gives some idea of 
what amounts of money the average busi- 
ness can expect to save on each task 
because of computerization. 

Chapter 6, "Justifying a Computer for 
Your Business," was my one major disap- 
pointment in an otherwise excellent book. 
I had hoped for a cogent discussion of the 
various financial issues involved in deter- 
mining the cost effectiveness of a small 
business computer. 

While each business is different, and no 
hard rules can be made to cover all of 
them, I am sure there are good methods 
for analyzing just how much a computer 
will save in terms of time and money in 
various applications of business. And I 
am sure there are good rules of thumb 
concerning how large a small business 
should be before it considers computeriz- 
ing. Of course these are usually esti- 
mates, but they are important guides in 
making the decision on whether to com- 
puterize. 

Instead of discussing these in a mean- 
ingful way, Smith took the attitude at the 
beginning of the chapter that he had never 
seen a feasibility study that was not 
biased in favor of buying a computer. 
Therefore, he said, in essence, that the 
Lusinessman will base his decision to 
computerize on his feelings even if he has 
hard data to go by, and any study will 
automatically be designed to do nothing 
more than justify those feelings. 

My contention with this chapter is that, 
if I were a business person I would want to 
know exactly what I could expect in costs 
versus savings before I put a penny down. 



Summary 

I strongly recommend this book to busi- 
nesspersons, computer technicians and 
students. If you do not have a computer 
you stand to learn a great deal about how 
they may help you if you are in business. 
Those with machines may well learn how 
to better utilize them. Computer techni- 
cians in general, and especially computer 
salespeople and programmers working 
for the business market, can also learn 
from this book because it explains basic 
business issues using the computer as 
an aid. 

Finally, it can be a good book for the 
person interested in a home computer but 
not necessarily interested in computers 
as a hobby. Although the book discusses 
business issues, much of its material is 
directly applicable to the home on a 
smaller scale.! 
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Quality Percom products are available 
from the following authorized Percom 
retailers. If a retailer is not listed for your 
area, call Percom toll free at 1-800-527- 
1222 for the address of a nearby retailer. 
or to order directly from Percom. 

ARKANSAS 
MICROCOMPUTER SYSTEMS. INC Hoi Spnngs (501)623 5209 

ARIZONA 
S1MUTEK Tucson (6021886 5880 

CAUFORNIA 
Al PHA BYTE STORES Calabasas 1213)883 8594 

BERKELEY MICRO COMPUTERS Berkeley (415)848 71?? 

COMPUTER INFORMATION FXCHANGE 

San Luis Rev (714)757 4849 
COMPUTER SERVICE CENTER Hollywood (21318513434 

DESMAR ELECTRONICS Santa Clara (4081 988.2208 

HOBBYWORLD Northndge 1213)886 9200 

WHOLESALE TECHNOLOGY SanlaAna (714)9791700 

COLORADO 
MICROCOMPUTER APP1 ICATIONS 

IVnver 13031 922 6410 

DISTRICT OF COLUMBIA 
THE PROGRAM STORE Washington (202)337 4691 

FLORIDA 
rNTRONINC Largo (813)586 5012 

MICROCOMPUTER CONSU1 TANTS 

Ormond Beach (904)673 5787 
MICROSYSTEMS SOFTWARE INC 

Hollywood (3051 983 3390 

GEORGIA 
DAVIS SYSTEMS INC Atlanta (4041 634 2300 

HAWAII 
COMPUTER CENTER Honolulu (808) 4RR 2171 

IDAHO 
OFFICE MAGIC COMPUTERS Boo* 1208)376 4613 

ILLINOIS 
GARCIA & ASSOCIATES Chicaqr, (312) 7»? 97V) 

KANSAS 
BESCO ELECTRONICS Shawnee (913)268 7633 

CARDENS INC Hulthinjon (316)669 8261 

KENTUCKY 
COMPUTER MAGIC Louisville (502)893 9334 

MASSACHUSETTS 
OMNITEK Tewksbury (6171851 4580 

MARYLAND 
DAMASCUS RADIO SHACK Damascus (301)253 2101 

MICHIGAN 
ALTERNATE SOURCE l-snsmg (517)487 3358 

MINNESOTA 
THE CODE ROOM EdenPrame (612)934 1826 

MISSOURI 
LEMBERGER CO Vienna (314) 422 3353 

SOFTWARE CENTER Florissant (314) 838 7755 

NEBRASKA 
COLUMBUS TV Columbus (4021564-5531 

CURTRONICS Lincoln (4021423 7771 

NEW HAMPSHIRE 
HARDSIDE MiHord 1800)258 1790 

NEW JERSEY 
CHANNEL 1 RADIO SHACK Medlord (609) 654 7454 

NEW MEXICO 
AUTFL ELECTRONICS Albuquerque (505)255 6451 

NEVADA 
PCS COMPUTER Las Vegas (702)870 4138 

NF.W YORK 
H & E COMPUTRONICS Spnng Valley (914) 425 1535 

80 MICRO COMPUTER SERVICES Conors (518)2359007 

MICRO 80 SYSTEMS Brooklyn (212)748 3236 

STONY CLOVE New York City (212)391-8337 

OHIO 
F ELDMAN ENTERPRISES Akron (21 6) 724-5583 

JERRY'S COMPUTER Cleveland (216)6416719 

PENNSYLVANIA 
ADVANCED MECHANIZATION rvytand (215)672 9000 

COMPUTER ANALYSTS NewBnghlon (412)846 9323 

SUNRISE ELECTRONICS Cbambersburg (717)264-8214 

TENNESSEE 

COMPUTER WORLD INC Nashville (6151 255 8330 

TEXAS 
ACCESS UNLIMITED Richardson (800) 527-3475 

(2141690 020b 
COMPUTEX Webster (713)488 8022 

QUALITY SOFTWARE Dallas (214)484 2976 

TEXAS COMPUTER SYSTEMS Brady (915)577 2931 

UTAH 
MICRO MNEMONICS Sunset (801 1 298 6809 

WASHINGTON 
COMPUTER SERVICES Kennewick (509) 582 97.V) 

WISCONSIN 

BYTE SHOP MILWAUKEE Greenfield (414)281 7004 

HNAMORES Marshheld (715)384 9610 

FOREIGN DEALERS 

AUSTRALIA 

DICK SMITH ELECTRONICS P O Box 321 North Tyde NSW 21 13 

CANADA 
VALERIOTE AND ASSOC GuelphOntario 1519)824 7041 

DVR ELECTRONICS Surrey BC (604)576 1045 

MEXICO 
CIBERMATIC S A Mexico (905) 592 3433 

COMPUTADORAS V ASF.SORAMIFNTO 

Rx>Pam*ol4 MexxroSDF 
DOMINICAN REPUBLIC 
RADIO SHACK Sanio Domingo (8091565 9121 




Disk Storage: It's No Place to Compromise. 



A dependable disk system 
means everything to the high- 
performance operation of your 
computer. At Percom, we know 
this. And we do something 
about it. 

For example, the connectors 
on our TFD drive systems are 
gold plated. 

Why? Because solder-plated 
contacts oxidize, forming an in- 
sidious insulation that can 
cause erratic operation. And 
then total failure. 

Gold-plated connectors are 
just one way we make better 
drive systems than the competi- 
tion. 

Now #1 for the Model III 

Quality Percom TFD drives provide more 
features, cost less. Add-on drives start at 
only $439.00. Complete First-Drive Sys- 
tems start at only $749.95. Features: 
"Flippy" Capability — Record your 



To order products, or for the name of your 
authorized Percom retailer, call toll free: 

1-800-527-1222 




PERCOM DATA COMPANY, INC. 

1 1?20 PAGEMILL RD. DALLAS. TX 75243 
(?14) 340-/081 

" Iiddemdrk ol Percom Data Company. Inc 

' trademark ol Tandy Radio Shack Corporation which has no i 



programs and data on either side of a dis- 
kette. Greater Storage Capacity — 

Store 180 Kbytes — formatted — on one 
side of a 40-track TFD drive. Store over 
twice as much on a TFD 80-track drive. 
Think Megabytes — Your TFD drive 
controller will handle up to four drives. 
You can access almost 1.5 million bytes 
of on-line program and data files. Either 
Add-in or Add-On — Your TFD First 
Drive System can be either internal 
(add-in) or external (add-on). In either 
case, you get a complete system in- 
cluding the disk controller, drive, power 
supplies and disk-operating software. 
BASIC-Language DOS — Included on 
diskette with each First Drive System is 
Percom's OS-80/IU'". This easy-to-use 
disk-operating system loads into 7 Kbytes 
of RAM and then frees the drive for other 
use. With OS-80 1 " programs, you can 
have full, read-write interchangeability 
between Model 1 and Model III diskettes. 
Or Model III TRSDOS* — TFD 40 
track drives work with Tandy's Model III 
TRSDOS, without modification. For 80- 
track operation, TRSDOS can be easily 
modified with diskette patches supplied. 

Still #1 for the Model I 

Besides greater storage capacities, more 
quality control measures and lower pri- 
ces, all Percom Model I drives are rated 
for double-density operation. 

Plug a DOUBLER™ in your Expansion 
Interface and enjoy the same double- 
density disk storge capacity as Model III 
owners. Included with each DOUBLER is 
a TRSDOS compatible double-density 
disk-operating system. DOUBLEZAP 
programs are available for upgrading oth- 
er popular DOSs for DOUBLER opera- 



tion. And our double-density version of 
OS-80 ,u costs just $49.95. 

Of course you don't have to upgrade 
your Model I for double-density opera- 
tion to use Percom disk drives. But it's 
nice to know you can. 

Percom TFD drives for the TRS-80* 
Model I are available in 40-. 77- and 80- 
track versions, in 1-, 2- and 3-drive con- 
figurations. Prices start at $399.00. 

System requirements: Model 111 TFD drives work 
with a 16-Kbyte system (min) and Model 111 BASIC. 
The initial drive must be a first-drive system An op- 
tional interconnecting cable is available for expand- 
ing with external drives #3 and #4. Model I TFD 
drives work with a 16-Kbyte system (min) equipped 
with an Expansion Interface. Level II BASIC and 
DOS software, and an interconnecting cable. Two- 
and four-drive interconnecting cables are available 
from Percom. 
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Mors* Coda, Baudot and ASCII Radio 
Talatypa Programming tor tha TRS-80 
Modal I and Modal III Microcomputers 
Richcraft Engineering Ltd. 
Chautauqua, NY 
Sol tcover, 276 pp. 
$18 

by Dr. William M. Laird 

Here is a book that will turn the hair 
white of firms selling Morse code 
and radio teletype Assembly programs for 
the past few years for $149 and up. 

As only a modestly experienced Assem- 
bly programmer, I found the expanded 
commentary in each chapter, plus the ob- 
ject code and source code printouts with 
comments for each program extremely 
helpful in understanding the programs' 
logic and flow. These programs are defi- 
nitely not for the beginning Assembly pro- 
grammer, who must learn the difference 
between a JR and JP instruction, but they 
are easy to follow if you have read this 
publisher's self-programmed learning 
series of books. (Disassembled Handbook 
for TRS-80, Volumes I, II and III. This book 
is actually Volume IV of the series.) 

The authors have simplified following 
the program flow by using a minimum of 
jumps. The logic is straightforward for 
each program. The programs have been 
designed so that once loaded from cas- 
sette or disk, the average radio amateur 
can master their operation with minimal 
practice. 



Cooks 
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Chapters l-IV tell you how to generate 
perfectly timed Morse-code, something 
seldom heard on amateur bands. For 
transmission speed, one inputs the words 
per minute desired. For reception speed, 
the operator is asked to input two num- 
bers corresponding to dot length and typi- 
cal space length. This may sound difficult, 
but it is quite easy to master. The two in- 
puts allow the reception program to ac- 
commodate swing fisters — amateurs 
sending less than perfectly timed Morse. 

After about 30 minutes practice, I could 
not find a station whose Morse the pro- 
gram could not copy. The merged pro- 
grams use the cassette-in line to copy 



2,000-cycle audio from the station re- 
ceiver, the cassette-out line to drive a 
2N2222 transistor. That device keys the 
station's transmitter key jack with TTL 
logic, and the cassette motor control relay 
(through a buffer relay) to control the sta- 
tions transmitter/receiver and antenna re- 
lay, when switching from transmit to re- 
ceive with the Clear key. 

Chapters V-VII are worth five times the 
price of the entire book. Having been a 
radio teletype buff for many years, I've fin- 
ally found a home. Gone are the whirring 
and clanking machines of past times. All 
the operator does is tell the program the 
equivalent Baudot speed desired and 
nearly everything else is automatic. The 
clear key is the T/R switch. 

The book includes 22 prepared mes- 
sages may be called from the menu by 
pressing shift and the up arrow in the 
transmit mode. If you do not wish to look 
at the menu, then just press the up arrow 
and the letter for the message desired, 
transmit mode. If you do not wish to look 
at the Menu, then just press the up arrow 
and the letter for the message desired. 

Chapters Vlll-X are similar to programs 
found in Chapters V-VII, except for 
110-Baud, eight-bit ASCII code instead of 
five-bit Baudot code. If you study and enter 
the programs in Chapters l-X, you should 
have earned your master's degree in code 
conversion, as you will have mastered a 
number of difficult subjects. 



Further Notes 

None of the programs in this volume re- 
quire the RS-232C interface unit for the 
Model I or the Model III, since they gener- 
ate their own serial to parallel and parallel 
to serial conversion. 

For the programs in chapters V-X, a 
digital port interface (such as the Design 
Solution AN-511, Telesis VAR/80 or Alpha 
Product Interfacer 2), is required. All work 
with or without the expansion interface on 
the Model I, and with the adaptor on the 
Model III. 

Nearly all available memory is grabbed 
by EDTASM. This program details an inter- 
esting approach to writing a mini-program 
in low memory, so your printer prints out 
64 characters or spaces per line. 

The book covers using an adaptor, al- 
lowing the use of almost any Model I ancil- 
lary port operated device (40-pin connec- 
tor) with the Model III (50-pin connector). 
Only one active TTL chip is necessary to 
switch the I/O bus from output to input, 
plus the 40- and 50-pin connectors. 

Ever wish you could start printing an 
editor/assembler program being assem- 
bled at any line without starting at the 



'None of the programs 

require the RS-232C 

interface." 



beginning? A simple 39-cent modification 
described in the book may be installed in 
about 10 minutes and does the job very ef- 
ficiently. 

A demonstration program allows you to 
generate the 2125-cycle radio teletype 
mark tones and 2295-cycle space tones 
with software rather than a terminal unit. 
It uses only a single chip transducer from 
Alpha Product Company. The program 
outputs the radio teletype test signal 
RYRYRYRY from the transducer at an 
equivalent speed of 60 words per minute. 

A fascinating, yet short, program prints 
out the speed in equivalent words per min- 
ute of any Baudot radio teletype signal be- 
ing received— 60, 66, 75 or 100 speed. It 
also tests for 110 or 300 Baud ASCII RTTY. 



Summary 

This is a teaching text and a book full of 
functional, working programs for the radio 
amateur and computer buff who would 
like to use his TRS-80 to communicate 
with the fascinating world of ham radio. 
All programs are divided into individual 
transmit, receive and combined chapters 
to allow the reader the opportunity to as- 
similate the concepts being presented in 
reasonably sized bites, rather than chok- 
ing to death with too big a mouthful. The 
programs may be used as is by inserting 
only your call letters, name and address in 
the appropriate prepared message loca- 
tions with the Radio Shack Edi- 
tor/Assembler. 

All three transmit/receive programs are 
available on two 35-track disks, though 
this book is also required for operating in- 
structions. On special order, Richcraft will 
insert your call letters, name and address 
in the proper locations of all three trans- 
mission and reception programs for 
Morse, Baudot and ASCII RTTY. 

The appendices are extremely useful 
and could have been the subject of 
another volume. 

Volume IV deserves an excellent rating 
and should be invaluable to any micro- 
computerist who wishes to understand 
the concepts of code conversion and use 
the TRS-80 in telecommunications.! 
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The 12 Scott Adams' Adventures are presented m our Limited Gold Edition. Each tape and disk is in- 
dividually numbered, and guaranteed until July 10th. 2001. Each package contains a certificate of 
authenticity, a registration card and an autographed, (rather interesting) photo of the author. 
The 12 Adventures normally retail for $239.40 individually on tape and $159.80 for 4 triple-pack disks 

The Limited Gold Edition is yours forever 

for $100.00 tape or disk, value for value. 
To Order: The Limited Gold Edition is available 
-ery limited quantity, from interested Soft- 
ware Retailers. Ask your local dealer. If he does 
Limited Gold Edition . . . Then call 
-800-421-5770. In California 
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will direct you to a dealer who do 
Limited Gold Edition. Supply Is Limited! 
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The Limited 
Gold Edition 
is available in 
the following 
-Iferent 
^figurations. 

• Apple 2 Disk 
with TRS-80 
Disk in same 
package 

• Ayr Tap_ 

• Atari Disk 

• TRS-80 Tape 

$100.00 Each 
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8295 SO. LA CIENEGA BLVD • INGLEWOOD, CA 90301 
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The Creator 

Complete Business Systems, Inc. 

Chicago, IL 

$295 

by Mary S. Gasiorowski 

Have you ever invested time and ener- 
gy in a data management program 
only to find it did not fit your needs? 

Now's your chance, without knowing a 
bit of Basic, to create your own personal- 
ized data management program. Called 
"the programmer on a disk, for non-pro- 
grammers and small systems house use," 
the Creator is a disk-based TRS-80 pro- 
gram which writes Basic programs to col- 
lect and manage data. Further, the creat- 
ed programs are modular, well-document- 
ed, compact, well-designed and easily 
modified by the user without knowing the 
techniques of developing such programs. 

Is the Creator really for non-program- 
mers? Well, yes, though for the documen- 
tation you may need an interpreter. Here 
is another example of a good program 
made difficult by weak documentation. 
The documentation seems to still be in a 
rough-draft stage. Page 50, for example, 
talks about showing the relationship of re- 
cord size to the number of records on a 
disk in a table "on the next page"— the 
table is actually on page 14. 

Also, after exclaiming several times 
that the Creator is not technical, the docu- 
mentation goes into several somewhat 
technical and vague discussions on what 
packed numbers, records and fields are; 
how many records will fit on a system disk 
versus a formatted disk; how to calculate 
(approximately) how many records you 
can fit on a disk and still allow for expan- 
sion; and how to shorten or compress 
your program. 

Data Setup 

The programs created by the Creator 
are ideal for handling a mailing list or an 
inventory of items— any list of informa- 
tion with any combination of numbers and 
letters. 

A handy form is included in the docu- 
mentation to help you determine the 
length of each piece of information (field) 
in the data item (record). For example, in a 
mailing list, one complete address is a 
record, made up of various parts, or fields, 
such as a zip code. You might allow the 
last name field a length of 15, the address 
field 20, the state field only 2, etc. Also us- 
ing the form, you decide the order in which 
you want the data to be entered— such as 
last name first or first name first. 

Another major planning step is to deter- 
mine what checks (the Creator calls them 



edits) you want included in the program to 
make sure the data typed in is the proper 
information. To go back to our mailing list 
example, it is wise to make sure the zip 
code is not omitted, or that it has exactly 
five numbers and no letters. Some of the 
other things that can be checked for are 
numbers or letters within a certain range, 
all numbers or all letters, and inclusion in 
the data of a certain combination of num- 
bers or letters or both. 




You must also indicate the key field, the 
section (field) of data which determines 
where in the entire list of data each record 
should be. In our mailing list, the key field 
would probably be the last name, so that 
the mailing list can be sorted by alphabeti- 
cal order. 

Running the Creator 

Believe it or not, running the Creator is 
as simple as typing Run Creator and an- 
swering some questions about your data. 

Type in a file name for your created pro- 
gram—this is the name you will call up to 
run your program — and a title to appear 
on the screen. 

Then you will be asked for an exit code. 
When your program is running and the us- 
er is typing in information, typing the exit 
code lets the program know to stop what 
it's doing and return. to the menu. A com- 
mon exit code is the word End. 

The next step is to describe the data 
fields. First the length of each field is en- 
tered. The Creator keeps track of how 
much room is left— if you make a mistake, 
you can reenter the length. Next, indicate 
which is to be the key field. The Creator 
will then display information on the types 
of data and checks you can use. 

The Creator will review your outline of 
data fields, reminding you of the length, 
and ask you for a prompting message for 
the user, the kind of data, and the checks 
you want to use on that data. 

In a mailing list, a prompting message 
for the last name of the addressee might 
be: "Type in the addressee's last name." 



The kind of data can be any character: 
numeric, numeric and integer (whole num- 
bers between -32767 and +32767), 
numeric to six significant digits, or numer- 
ic to 16 digits. 

Finally, enter the checks you want on 
the data and any messages you want to 
appear on the screen if the checks fail. For 
example (our mailing list), if you are look- 
ing for a last name, you want to check for 
No Entry (hitting the enter key without typ- 
ing in anything), Not Alpha (any numbers 
instead of letters), and perhaps Length 
>15 (to restrict last names to 15 charac- 
ters). Each check produces its own error 
message; for example, if a last name has 
16 characters (flagging the check Lengt h> 
15), you might have the message, "Please 
shorten the name to 15 characters." 

The Creator will proceed through all of 
your data fields, and then suggest a way 
to end your data collection program. 

In this way, you can set up what kind of 
data you want and what the computer 
should do if the data is incorrect, without 
knowing any Basic programming. Once 
you have run the Creator to create a pro- 
gram, you need only load and run your 
new program. 

The created program is well-designed, 
easy to modify, well-documented by re- 
mark statements, modular and efficient; it 
is easy to use because it is menu driven 
and incorporates error trapping. You can 
update or amend your data files by choos- 
ing that option in the menu. You can 
change one data field without having to 
delete the entire record. 

The Creator is an easy and inexpensive 
alternative to hiring a consultant to devel- 
op data management programs. It is 
worth the effort to work through the docu- 
mentation to create a personalized and 
useful program. 

The Reporter 

With the Creator came the Reporter, a 
program which generates programs to 
write reports. You can set the title, column 
headings, tabs, column and field relation- 
ships (such as column(5) = column(2) + 
column(4)/2), subtotals, totals, pagination 
and whether you want the report sent to 
the screen or the printer. The Reporter is 
very flexible in its handling of data; for ex- 
ample, if you want to exclude data below a 
certain range, you can say, "If Column(3K 
10 Then Skip." Just as in the Creator, use 
of the Reporter requires no knowledge of 
Basic programming to develop a useful, 
personalized program. 

As in the Creator, you must give a file 
name for your report program, as well as a 
title to appear on the screen. You must 
also determine whether you want the re- 
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port on the screen or the printer. Unfortu- 
nately, the Reporter is not capable of 
showing the report on the screen, verify- 
ing it with the user and then sending it to 
the printer. (This is one change I suggest 
the author make for his next version of the 
Reporter.) 

Then type in the name of the data file 
you want used for the report (don't forget 
the extension /DAT if the file was created 
by your data program created by the Cre- 
ator). Specify the record length of your da- 
ta—refer to the data form you used for the 
Creator— then describe the various field 
lengths. 

You can then set the column headings 
for your report. Note that the number of 
columns may be different than the num- 
ber of fields of data, since a column may 
be defined as a combination of fields or as 
just part of a field. For example, two data 
fields may be the number of items in stock 
and price per item. Two columns may ex- 
actly reflect that data, and a third column 
may be the product of those— the value of 
the inventory. 

You need to plan ahead for the tab set- 
tings for the columns. Use a piece of 
graph paper to determine how much 
space to set aside for each column. And 
don't forget to set aside space for left and 
right margins. 

The Reporter will number your pages, if 
you want, as well as putting the title and 
column headings on each page. The docu- 
mentation claims you can have up to 
999,999 pages, if you live that long and are 
that patient, though I only tried five pages. 

Type in the type of data in each of the 
data fields, then describe how the col- 
umns are related to these fields. This is 
similar to setting up the checks or edits in 
the Creator. You can set a column to be 
exactly equal to a specific field, or any al- 
gebraic or trigonometric combination of 
any numeric fields or columns. Character 
(alphabetic) fields can also be manipu- 
lated; fields can be reordered, combined 
or split up to define columns. For exam- 
ple, in a report based on our mailing list, 
where the last name is in data f ield(1), first 
name in field(2), and middle initial in 
field(3), you can define column(1) as fol- 
lows: column(1) = field(2) + field(3) + field 
(1). This would print out the name in cor- 
rect order in column one in the report. A 
column can also be defined as part (left, 
middle or right part) of a character field. 
For example, if field(5) contains area 
codes and telephone numbers (and is de- 
fined as character not numeric), a column 
for the area code can be set up: column(3) 
= left$(field(5)). 

The variable V and combinations of it 



are reserved for saving subtotals and to- 
tals. If you want the total of field(6) for all 
the data, you might define V2 = V2 + field 
(6). You will be allowed to print any totals 
at the end of the report. 

The Reporter is not as well developed 
as the Creator. The screen/printer routine 
should be improved to offer both, and the 
tab setting could be done automatically 
by the program after you specify the col- 
umn headings. The Reporter is not as 
easy to use as the Creator, and it does use 
many more Basic terms and commands, 



and so, requires more from the user. 

The Creator is worth the effort (don't get 
bogged down in the documentation— just 
run the program). The Reporter is unnec- 
essarily difficult and lacking in several 
useful features. By the time you figure out 
the Creator, you may be able to tackle the 
Reporter. The idea behind these programs 
is good. Each is not just a single program, 
but a creator of programs. Perhaps by the 
time you read this, the author will have re- 
vised these programs to make them easier 
to use.B 



Computer Acquire 
Microcomputer Games, Inc. 
Avalon Hill Game Co. 
Baltimore, MD 
$20 

by Mary Gasiorowski 

Have you ever imagined yourself a fi- 
nancial wizard, the head of a vast 
hotel chain involved in power struggles 
and stock mergers? Do you like exciting, 
fast-paced games? Then keep looking — 
this is not the game for you. 

Computer Acquire is the microcom- 
puter version of the board-game Acquire. 
There are three versions on the cassette 
tape: TRS-80 Model I (Level II), Apple II, 
and Commodore Pet 2001— all require 
16K RAM. 

Computer Acquire is a game of high fi- 
nance—a game of strategy and luck, in 
which from zero to six players can partici- 




software 



pate (including playing the computer and 
watching the computer play itself). The 
object is to build and expand hotel chains. 
At the same time, you can buy stock in any 
chain to try to get a majority. Merging two 
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chains will give someone a profit, with a 
bonus going to the majority stockholder. 

The game ends when all the chains are 
merged together or are too large to merge. 
The hotels and stocks are then cashed 
in, and the person with the most money is 
the winner. 

Does it sound complicated? It is. The in- 
structions suggest that the game will take 
two hours to play. It does. 

I played Computer Acquire on the 
TRS-80 Model III (it is compatible) and the 
Apple. It seemed fairly well debugged. If 
you answer a question with an absurd 
number or letter, you are asked to try 
again. 

Why was this board game put on a mi- 
crocomputer? Oh, the game is okay, but 
little attempt was made to take advantage 
of the various features of the microcom- 
puter. 

You can play the computer, or, if you are 
a fanatical game watcher (rather than a 
game player), you can watch the computer 
play itself. 

There are no graphics, no color, no 
sound. The screen is harder to read than 
the playing board included in the original 
(non-computer) version; it is difficult to 
distinguish the numbers of the squares 
from the letters standing for hotel chains 
since there is no spacing between 
squares. If you really want to play this 
game, I suggest you buy the board version 
($6 for the board, $5 for a set of marker 
tiles). 

I hope Avalon Hill finds a new program- 
mer before they convert any more of their 
games for the microcomputer. ■ 
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ACCEL2: Compiler for 
TRS-80 Disk Basic 
Allan Gelder Software 
San Francisco, CA 
$89 

by Bruce Powel Douglass 

Machine code instructions can be 
executed directly by the Z-80. Run- 
time for programs written in machine 
code tend to be very fast. High-level lan- 
guages, such as Basic, make the machine 
more accessible to the user by being eas- 
ier to remember. 

These languages must also be trans- 
lated into the machine code for execution. 
There are two ways to go about this: inter- 
pretation and compilation. 

An interpreter fetches the Basic in- 
structions that tell it what to do, and 
changes them to machine code. This must 
be done every time a statement is execut- 
ed. And, although it can take a lot of time, 
there are benefits. Basic programs can be 
easily edited, changed, and rerun with a 
minimum of user effort. 

A compiler, on the other hand, only 
translates the program once, so the CPU 
can execute the program directly. The run- 
time is shortened since statements are 
pre-digested into byte-sized bits. But if the 
program bombs it's harder to debug. For 
many time-critical applications, however, 
a compiler is the best choice, even though 
they usually require large amounts of 
memory and cost a lot of money. 

ACCEL2 is a compiler which offers a 
unique approach to accelerating execu- 
tion spend of Basic programs for the 
TRS-80. Coupled with its low price, its 
capabilities make it a reasonably good al- 
ternative to other options, such as: writing 
machine language programs, embedding 
machine-executable code in Basic pro- 
grams, or spending a lot of money on big 
compilers. 

ACCEL2 comes on a self-relocatable 
system tape. It loads starting at 18944 and 
occupies 5120 bytes. To save it on disk, 
enter Basic2 from DOS and load the tape. 
Relocate it where you want it to reside, 
and reboot. Now you can save ACCEL2 as 
a core image onto disk. 

One of the nice things about ACCEL2 is 
that 16K tape users can now own and 
operate a compiler that works. Compare 
that with Microsoft's BASCOM, in which 
the run-time system alone is over 14,000 
bytes! 

The lovable aspect of ACCEL2 is that 
you are free to sell programs you compile 
with it without having to pay royalties. 
Microsoft requires nine percent or $195 



per year for programs sold that used their 
compiler. 

To use ACCEL2, you must call it via the 
USR function. When you load it from Level 
II, it automatically loads Its address into 
locations 18526 and 18527, so you may im- 
mediately call it by A = USR(0). ACCEL2 
has the built-in capability to save and load 
programs to and from disk. If you want to 
write a self-contained System tape, you 
must purchase TSAVE for $10. 

ACCEL2 takes the Basic program In 
memory and compiles certain statements 
into REM statements with the embedded, 
compiled code. It leaves the statements 
that it cannot compile for the Basic Inter- 
preter to execute. Thus, it will compile 
almost all Basic programs without any 
revision on your part. 

This allows the Break key to still work. 
This is the only compiler that I know (I 
have three) that has this capability, 
although they may be simulated in the 
others. TRON and TROFF, the Trace func- 
tion, also work, but they only trace the u n- 
compiled sections of the program. 

The run-time system is only 1 K, and yet 
ACCEL2 compiles full floating point for 
elementary operations ( + , -, *, and /), as 
well as single-dimensioned arrays and 
some string functions. 

When you are compiling a program that 
you don't want to type again, be sure to 
save a copy. Compiled programs can't be 
edited. If you enter the edit mode for any 
line of your compiled program, whether 
that line is compiled or not, your system 
will hang up, requiring a reboot or reset, 
which is very inconvenient. If the compiler 
sends you a complle-time error message, 
your program has been destroyed. You 
must type in New and reload your pro- 
gram. 

Error messages are limited, but useful. 
You may receive one of six messages: SN 
(syntax error), OM (out of memory), FC (il- 
legal function), NF (Next without For), LS 
(string too long) or UL (undefined line for 
GOTO or GOSUB). 

The compiler also supports tape or disk 
I/O, whereas BASCOM only allows disk 
I/O. This enables you to keep tape files, 
and use your compiler at the same time. 

The program does contain an error in 
how it reads data statements. After com- 
piling a program that contains data 
statements, the program will run (all other 
things being correct). But If you call the 
same compiled program off disk to run, 
you will receive an OD error. This is not 
much of a problem for me since I only have 
one program with data statements, but it 
would be a real pain for someone who 
dearly loves them. It necessitates recom- 



piling the program every time you use it. 
Compile times are relatively short, ex- 
cept for long programs. A very short pro- 
gram will compile in a few seconds. A 6K 
program takes five to 10 minutes, and a 
long program should be compiled while 
you take your mother out to dinner. 

The Manual 

The manual is mediocre. It Is 1 1 pages 
long and contains useful information, but 
does not go into enough detail. No men- 
tion Is made of the data-statement error. It 
does talk some about pitfalls and about 
speeding up execution. 

ACCEL2 does not compile several 
statements, such as Print, and the 
transcendental functions, such as LOG, 
SQR, and SIN. But it will compile double 
precision for the elementary arithmetic 
operations +,-,*, and /. This makes AC- 
CEL2 very useful for speeding slow 
double-precision arithmetic. You can even 
write approximation routines for double- 
precision transcendental functions and 
compile them. 

How much ACCEL2 will speed your 
Basic programs depends on program 
structure. If your program contains mostly 
non-compiled statements, execution time 
will be similar to Basic's. If the major 
reason for slow execution Is comparing 
and branching, then execution time will be 
significantly faster. 

The manual gives a table for relative 
speeds of execution for a variety of com- 
piled statements. Integer arithmetic oper- 
ations are said to run 47 times faster for 
addition and subtraction, and two to three 
times faster for multiplication and divi- 
sion. Double-precision arithmetic execu- 
tion times are much closer to Basic, rang- 
ing from 1.5 for addition and 1.02 for divi- 
sion. 

The string operations are quicker as 
well. LEN executes 43 times faster, MID$ 
four times faster, LEFT$ three times 
faster, RIGHT$ 2.8 times faster, and CHR$ 
almost five times faster. 

Summary 

In conclusion, ACCEL2 offers an inex- 
pensive, and efficient method for decreas- 
ing run times for general Basic programs. 
Tape and disk I/O are supported, as well 
as double precision. Rewriting is not nec- 
essary, although execution speed may 
often be enhanced by writing more op- 
timal Basic code. Its only real problem is 
in its execution of Read statements when 
executing compiled programs called off 
disk. (If someone does discover the cor- 
rection for this error, please pass it on.)B 
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love life? 
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A little dull around the edges? 

Rout. krtable* Boring 7 Maybe 

all It needs is a little Interlude. Interlude is 

the most stimulating computer game ever conceived. 

It combines a computer interview, an innovative 

programming concept, and a one-of-a-kind manual to 

turn xciting. adventurous, delicious 




Interlude Is: r« tmanti . playful., .outrageous, .a fantasy Interlude is ■ A Bed of Roses (Inter- 
lude #49) ■ The Chase (Interlude #7) ■ Rodeo! (Interlude #71) ■ The King and I 
•0) ■ Some I.nchanted Eveninc [Interlude #84) ■ Caveman Caper [Interlude #82) ■ F'rom Here 
4asy (Interlude No. 30] ■ i Hn Dt earns (Interlude #72). 

More than 100 Interlu i i luded in the program Most are described in detail In the accompanying manual. 

but several surprise Interludes arc buried in the program awaiting that vei 

I !• .a, says you're ready. (When you learn secret 

lude #9° ,'■ >ur love life may never again be the same!) Interlude 
:es you'll never forget. Are you ready for it? 



Interlude 

The Ultimate Experience. 



INTERLUDE. Dept. 80. 10635 Richmond Avenue. Houston. Texas 77042. I'm really reedy. Send my Interlude today. 
Apple II: TRS 80 ,'•■! >K)" Pewter Available for immmtkmte skipneaf. 

r».95) J 20"x 24' reproduction of 

lhisod\Mthoutadcopy Please enclose your check payable to INTERLUDE 

1 W» ■■ - ' ($4 95— tadude* or complcie'ihe charge Information: 

Add $1,751 rppmgand I I shipping charges) 

RD I VISA All char.>i. Sorrier* mutf sign Iwm. ^ 

I xptn Horn MasterCard Bank Coda 
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In Memory Information 3.0 
Tandy/Radio Shack 
Fort Worth, TX 
$19.95 

by Fritz Milhaupt 

Radio Shack has been selling its In 
Memory Information card filing sys- 
tem since the TRS-80's introduction in 
1978. Since then many versions have been 
offered, the most recent being version 3.0 
released last fall for Models I and III. It is a 
fairly good system and lacks nearly all of 
the bugs of the earlier versions. 

The In Memory Information System is 
based on storing information on pages of 
memory referred to as cards. Each card 
may contain up to 14 fields of one line (41 
characters) each definable by the user. 
The card has a maximum length of 256 
bytes which somewhat limits the amount 
of data per field. In some applications it 
may be necessary to break up some en- 
tries into two or more cards. This can pose 
a problem if the cards are sorted later. 

This package consists of three pro- 
grams: the Initialization program, the Sort 
program, and an Update and Retrieval pro- 
gram. All are written in machine-code. 

The Initialization program sets up the 
number and the length of the fields and 
creates the initial data file. During the 
card formatting procedure, the program 
asks whether to justify short entries to the 
left or to the right. Unless left justification 
is specified, leading blanks will have to be 
included in search strings when using the 
Find function later on when using the Up- 
date and Retrieval module. This is not 
mentioned in the manual. 

The Sort module serves three tasks. It 
sorts the file in ascending or descending 
order to user specification, it prints the 
data file on optional 80-column parallel 
printer, and it can also split a long data file 
into two or more sections to avoid over- 
running available memory. 

The Update and Retrieval program is 
the most used of the three in this system. 
With it you can add, delete, or update the 
datacards. Updating can be quite tedious. 
First the card is found (manually or using 
the Find command) and the Update mode 
is entered. The entire card may now be up- 
dated. To skip a line that you do not wish 
to change, hit Enter and the cursor will 
drop one line. To skip more than one line, 
hold down the Enter key until the cursor 
reaches the desired line. Once the last line 
is passed, the Update mode is exited. 
Since there is no global replace or delete, 
updating can get quite tiring. 

Each program allows for the repetition 
of key entries by holding down the proper 



key until the desired number of characters 
has been printed. This is something of a 
mixed blessing since it allows the rapid 
entry of multiple characters. But if you are 
a heavy-fingered typer like myself, it is 
quite an annoying feature, because it acts 
like a badly bouncing keyboard. The only 
real operational bug is that if the amount 
of available memory drops below twice 
the length of a data card (both of which 
are displayed constantly), all of the data in 
memory will be lost because the program 
restarts. 

As a package, In Memory Information 
makes extensive use of tape files. In order 
to pass from one module to another, the 
data must be saved, the desired module 
loaded, and the data reloaded. Tape data 
may be saved at 500 baud on the Model I 
and at 500 or 1500 baud on the Model III. 
The programs themselves are loaded by 
their own special loaders. 

This program is exactly as Radio Shack 
advertises, a computerized card filing 
system. It is possible to save and access 
great amounts of information with it, par- 
ticularly in systems with more than 16K 



memory. It has potential for those who 
wish to keep brief records of customer 
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payment or status in very small business- 
es. For most small businesses though, 
Radio Shack's Versatile, which is a shirt- 
tail cousin of In Memory Information, 
would be better suited as long as disks 
were available. 

In Memory Information is a good data 
base for its price, and for most home and 
hobby applications would probably be 
adequate. Compared to other data bases 
in the same price range it ranks 
favorably.! 



Rats Revenge 

Med Systems Software 

Chapel Hill, NC 

16K Level 2 Models I and II 

$12.95 cassette 

$16.95 32K diskette (Model 

by Darren DeViglli 



What makes Rats Revenge stand out 
from the many maze games already 
on the market? It's interesting. Up until 
now every maze I traversed led to tedium. I 
never found going from one maze to an- 
other very stimulating. 

Apparently the author of Rats Revenge 
felt likewise, as the program is loaded 
with things its predecessors lacked. Sud- 
denly I'm a rat, with the desire to scurry 
around, looking about a maze for a morsel 
of Swiss cheese. I can move one space at 
a time, run down straight hallways, turn in 
place (to get my bearings), and even con- 
sult a Hint Guru as to my relative location 
to the maze's main trail. There is also com- 
petitive scoring, though obviously only 
one person can play at a time. (Try to 
figure out a maze while taking turns.) 

Everything I see is in 'rat' perspective. I 
don't get a top view of the maze until I find 
the cheese or quit. Oh yes, there is one 
other way to leave the maze— on little 



phosphorescent wings. Not that merely 
dying is enough, some twisted mind in- 
cluded the dreaded cheese hallucina- 
tions. 

Besides what you see as a rat, there are 
assorted messages, some good instruc- 
tions, and the mysteriously appearing 
(and somewhat familiar) "hmmmmm." 
Better wait until you see it yourself, no 
reason to tell you everything. The mazes 
are randomly generated before each 
game and take from one to six minutes 
depending on what size maze you choose. 
When you either win, quit or starve, the 
maze is drawn for you and a small dot 
traces the path you took. Small mazes are 
drawn with a double-pixel line, large ones 
with a single-pixel line. Those of you who 
think it isn't all that big should remember 
you're inside the maze rather than over it, 
and you have a limited number of moves 
to find the cheese. 

All of Med's software comes with a two- 
week guarantee. They don't just guaran- 
tee the program will run, they guarantee 
you'll like it. That's something I appreci- 
ate. Who else has the confidence to make 
guarantees like that? Rats Revenge, as 
with all the Med software I've seen, is 
worthwhile. With its well-drawn graphics, 
total rat perspective, variable skill levels, 
humorous touches, and more, is one 
game you won't play once and shelve.! 



40 • 80 Microcomputing, November 1981 



Reader Service tor lacing page v352— 



A beautiful match, the Smartmodem 
and the TRS-80 >©ur TRS-80 can talk with 
other computers, over the telephone lines. 
And with no acoustic losses or distortions 
Access time-sharing systems and infor- 
mation utHities such as the Source: 
CompuServe* and HAcroN^t 
Direct hook-up with no interference noises 
The Smartmodem nooks to the telephone 
line just like a modular telephone, simply 
insert in a wall jack 

Love at first sight your TRS-80 and 
the Smartmodem! 

Brawny - because it does so 
many things. Autodial and auto-answer 
features buitt in With the Smartmodem. 
your TRS-80 can automatic ally dial the 
telephone answer the telephone receive 
and transmit, and hang up the telephone. 
Completely unattended. 
Puise dialing or Touch-Tone ' ' The 
Smartmodem can be connected to any 
telephone system in the U S. because it 
allows pulse-dialing, Touch-lone dialing 
or a combination of the two FCC 
approved. 

Program controllable in any language us- 
ing ASCII character stnngs This is a unique 




Microcomputer Component Systems 

feature of the Hayes Smartmodem. 

Brainy - because it does them 
all so simply. Seven LED indicators on 
the front panel give you visual signals of 
the status of the Smartmodem 
MR - Modem Ready. SD - Send Data 
CD Carrier Detected, etc 
The audio monitor feature lets you listen 
In" on the can being dialed and the con 
nection made. \tou are immediately alerted 
to busy signals, wrong numbers, etc. 
Over 30 different commands can be en- 
tered directly from your TRS-80 keyboard. 
including the unique Set commands 
which allow you to select and change var- 
ious optional parameters such as dialing 
speed escape code character, length of 



time for a dial tone, and number of rings to 
answer. There are 17 Set commands. 
The Smartmodem is completely compat- 
ible with the Beil-103 type modems, Ihe 
type of modem most time-shanng systems 
have. Operation can bein full or half-duplex 
with a transmission speed of 0-300 baud. 

The Smartmodem is ready to 
get-together ' with your TRS-80. 
TRS-80ModelllandTRS-80ColorCom- 
puters have RS 232 serial ports and can 
immediately interface with the Smart- 
modem Expansions that permit use of 
the Smartmodem witn TRS-80 Model I 
and Model II are available through your 
TRS-80 dealer 

Match your TRS-80 with a Hayes 
Smartmodem for a sophisticated, high 
performanced data communication 
system. Available at computer stores 
hi nnwide (except T RS-8 deaif 
call or write for the / W \ 
location nearest I 4 IMciMPQ 
you And don t set KU ■ Kay^O 
tie for anything less thin 
Hayes Microcomputer Products, Inc. 
5835 Peachtree Corners East 
Norcross. Georgia 30092 (404) 449-8791 



%ur TRS-80 computer 
and the Hayes Stack Smartmodem. 
'^eauty, Brains, and B 
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XBE 

Computer Applications Unlimited 

Rye, NY 

$24.95 

by Bruce Powel Douglass 



XBE makes editing Basic programs 
much simpler than any other program 
of its type. I almost never write or edit pro- 
grams without using XBE. 

Some of its capabilities are selective re- 
numbering of a line or a block of lines, 
finding the occurrence of any string of 
characters In the program changing the 
string to any other string of characters, 
block deleting lines, definable macro keys 
for quick entry of Basic commands or oft- 
used words, page the program, scan the 
program a line at a time, or jump to any 
line directly. 

The program comes on tape with a relo- 
cating loader to place the program at the 
top of memory, with 16K, 32K or 48K. Once 
placed into the appropriate memory loca- 
tion, it may be saved on disk as a core im- 
age, or on tape with T-Bug. It occupies 
5,120 bytes. Once loaded and initialized 
(with a System command), it may be in- 
voked by entering the command XEDIT. 

You must have at least one line to in- 
voke the editor. Once invoked, the editor 
clears the screen and reformats it, pre- 
senting the line numbers in columns zero 
through seven, and the Basic commands 
beginning in column nine. No statement 
will be displayed below the twelfth line, 
and at the bottom of the screen an area is 
boxed off. This is for the extended com- 
mands mentioned later. 

You have a blinking cursor with reason- 
ably complete ease of movement and two 
speeds to move the cursor along a line us- 
ing the right arrow. The movement keys 
are repeating. To backspace (non-destruc- 
tive), you press the left arrow key. Shift left 
arrow places the cursor at the beginning 
of the line. To go to the next line, press 
Enter. This is also a repeating key. To go 
to a previous line, press shift up arrow. An 
up arrow without the shift is a recogniz- 
able character, and so it must be accom- 
panied by a shift to move the cursor to the 
previous line. Shift down arrow lists the 
next page of your program on the screen. 

Editing 

When you get to a line you wish to edit, 
you merely type over the offending errors. 
To insert characters, use shift I. This will 
allow you to insert characters until you 
press Enter. The full page remains visible 
and the line wraps around as you insert 
the new characters. To delete, shift D will 



'You have a blinking cursor 

with reasonably complete 

ease of movement. . . " 



do the trick. It is a repeating key, so you 
can hold it down until you have deleted as 
much as you want. Be careful though— 
there is no way to recover characters that 
have been accidentally deleted. They 
must be reinserted. 

Shift X has the same function it has in 
Level II editing— it extends the line by 
placing the cursor at the end of the cur- 
rent line and entering the insert mode. 

If you enter the insert mode, shifted 
characters are now macro keys. They 
have default strings which may be chang- 
ed to your desire. Thus you press only a 
single key to enter Print, LPRINT or 
CHR$(. You are limited to six characters 
with the macro keys. 

Clear Command Mode 

You have an entire mode called Clear 
command mode, because it is initiated by 
pressing the Clear key at the right of the 
keyboard. The following commands must 
first be initiated in this manner. 

To position the cursor at the first line of 
the program, press Clear T. To exit the 
editor and return to Basic, press Clear E. 
To find a previously defined string, press 
Clear F. 

To delete a line, press Clear D. To insert 
a line, press Clear I. The default increment 
is five, but that is easily changed. If there 
is no room for your line (with the given in- 
crement), you will be given the message 
"No Room Between Lines." You may then 
renumber the entire program with larger 
increments between lines, or change the 
Increment for the insert function. 

You may mark a statement for a variety 
of purposes. Clear C marks a statement 
for copying, while Clear M marks it as a 
statement to be moved elsewhere (effec- 
tively, a selective renumbering of that 
line). Copy makes a copy of the line where 
you tell it to, while Move moves the line, 
thus with the former function, you have 
two copies of the line, and with the letter, 
you have only one. Clear H says, "This is 
where I want the line (or block of lines) 
moved or copied to." You place the cursor 
at the line preceding the location where 
you want the line(s) to appear, and press 
Clear H. 

Clear B is a marker for blocks of state- 



ments to be moved, copied or deleted. You 
mark the first line with Clear B, and then 
the last line with the Clear command func- 
tion you wish performed. A square lights 
up at the lower right corner of the screen 
to remind you that you have something 
marked. 

More Features 

There is also an Extended Clear com- 
mand mode. You enter this with Clear 
space bar. The cursor is then positioned 
at the bottom of the screen. From here you 
can: change the increment value on lines, 
renumber the entire program, search for a 
line number, search for a string, change a 
character string, or redefine your macro 
keys. Enter executes the command. 

By entering In, where n is a number, you 
can set the increment value for inserting 
lines. With Sn, where n is a number, you 
can look for line number n and position it 
at the top of the page. You may also use 
Fstring, which tells the editor to find the 
first occurrence of string, and the string 
may be up to 20 characters. Remember, 
you may invoke Clear F to search for fur- 
ther occurrences of the string. Once the 
string is located, you may reenter the ex- 
tended Clear command mode and enter 
Cstring. This will change every occurence 
of the string used in the Find command to 
the string given in the Change command. 
The strings needn't be the same length 
either— the lines will adjust themselves 
(unless the length becomes greater than 
240 characters). 

This mode also allows you to renumber 
the entire program with the extended 
Clear command Nn1,n2, where n1 is the 
starting number assigned to the first 
statement in the program, and n2 is the in- 
crement. 

Finally, you can enter D(key)(string) and 
redefine any letter key A through Z to the 
macro key of your choosing. This macro 
key may be invoked anytime you are in the 
insert mode by pressing Shift. Thus it may 
be used when in Insert-in-a-line, X, (extend 
a line), or insert-a-llne modes. You are 
limited to six characters. 

I have used this program extensively 
since I received it in the mail, and I am still 
impressed. It is an excellent piece of well 
written software that is long overdue.! 
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Reader Service for facing page *-357— 



The Newest & Most Astounding Arcade Game 
that TALKS has Just Reached Planet Earth: 



m i * ' 





^[■ifaiivx^i: 



P.O. Box 9078-185 Van Nuys.CA 9M09 (213)7826061 

Ordering info for all games: 
Super Nova. Galaxy Invasion, Attack Forct. Cosmic Fighter, Meteor Mission 2, and Robot Attack: 



Pr.r.fu par pm: 15K LawiM 7, Mod l-Mod \ Dwiltt - SIS 95 
32K lav* 2. Mod t Wed 3 Orrtettt $19 95 
Optional Joyilirt, for Model 1 - S39.8S 

If/-, discount for 2 ittim. 15% for 3 or mora. 

IVaw add $1.50 per ixdar lor pattern' ft h»pol«naj. Cu*». rtsadenu udd 6% taat 
Oirtsido USA Ipxcapt Ca'WtidJ pleate add $3.00 \m order Im tmtap ft handling 
Wa aceeot chacb, rr»ci>av ordirc, aid MC'Viii ordin '$2X0 antra for COD . 



All famw • 1980 by B»l Hogua ft J»f» Konyu. 

Programt art wHntn m iwchint language fo» f>'§h ojuatitv <jranh.r,s ft hhiniI af facia. 

Vo«c ft other totmdsara nlavabf Hwwijh tHacaaMtra AUX ottia. 

Higtt tccrat art automatical y tavtfl afttr tuuh oanw on the *tk versom. 

T«$ 80 >t a trademark ol Tandy Corp. 

Wiiia Im «n«t dttaiiad info about an of our produca. 

DtHart AMprtmnowa^ahkinliiacolwaMckaeinfi.ktabort.c.M-^i-c ibt. 
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EDAS 

Mlsosys 
Alexandria, VA 
$79 Disk 

by Paul Weiner 



There are several editor/assemblers 
available for the TRS-80. Each trade- 
off among conflicting design goals such 
as mainframe features, size of text buffer, 
speed, I/O options, flexibility and ease of 
use. 

One way to avoid excessive memory 
consumption without sacrificing features 
which require lengthy code is to use an 
overlay system. With this method, a large 
program is broken up into two or more 
smaller parts so that not all the code need 
occupy memory at anyone time. The most 
familiar example of such a system is 
TRSDOS. In editor/assemblers, the sim- 
plest application of the overlay approach 
is to use two main overlays, one for the 
editor, and the other for the assembler. 

Since most assemblers perform more 
than one pass through the source code 
during an assembly, the assembler itself 
can be broken up into several overlays. 
This technique does offer lots of source 
space without skimping on features, but 
the frequent loading of the various 
overlays tends to make performance slug- 
gish. 

At one end of the fancy versus quick- 
and-easy spectrum is Radio Shack's 
Editor/Assembler. It supports only tape 
I/O and does nothing flashy, but is 
straightforward and easy enough to use. 
At the other end of the spectrum is Micro- 
soft's ALDS (Assembly Language Devel- 
opment System). ALDS has all the high- 
level features referred to and more, but is 
awkward to use, hard to comprehend and 
slow. Because of these drawbacks, sur- 
prisingly few assembly language pro- 
grammers seem to be satisfied with 
ALDS, despite its advanced features. 

In the middle is a variety of software 
products. Near the low end are various 
modifications and upgrades to Radio 
Shack's editor/assembler. These would in- 
clude AsPatch, DiskMod, and Apparat's 
EDTASM. At the high end are completely 
new products, such as Microsoft's new 
editor/assembler, and EDAS. I think that 
for most purposes, EDAS has accom- 
plished the most practical trade-off of de- 
sign factors, and is currently the best 
available choice. 

EDAS 

EDAS, written by Roy Sotoff, is a disk- 
based editor/assembler. Tape I/O is not 



supported. Unlike ALDS, the current re- 
lease of EDAS does not support macros, 
relocatable code generation, or condition- 
al assembly. The next release of EDAS, 
which will be sent free to all purchasers of 
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earlier releases, will implement some con- 
ditional assembly and other new features. 
However, It is unlikely that macros or relo- 
catable code generation will ever be sup- 
ported. But don't assume that EDAS is not 
for formidable programming projects. The 
LDOS operating system was developed 
on EDAS. And the new releases of Kim 
Watt's SuperUtility, a 24K machine-lan- 
guage program, were edited and assem- 
bled on EDAS. 

One of the problems for assembly-lan- 
guage programmers is the size discrepan- 
cy between object and source code. Even 
on a 48K system, a program which assem- 
bles down to only a few K of machine 
language may have a symbol table and 
source code which occupy more room 
than is available in an editor/assembler's 
buffer. This is especially true if the code is 
highly commented and labeled. ALDS' re- 
locatable module generation solves this 
problem by letting the author preassem- 
ble various segments of his/her program 
in relocatable form and then having 
Link-80, ALDS' linking-loader, link them 
together into a run-time program. 

Unfortunately, this usually involves 
multiple assemblies and seemingly end- 
less disk I/O operations, all at a surpris- 
ingly slow disk data transfer rate. 

EDAS has a different and remarkably 
effective approach to many of the prob- 
lems which ALDS attempts to solve. For 
instance, EDAS is not organized in over- 
lays. Normally, It's all there in memory at 
the same time. However, if you're 
cramped for text space, EDAS* X(extend) 
command allows the text buffer to over- 
write the assembler. This, in effect, 
achieves an overlay system, since the as- 
sembler can be reloaded and run after the 
source has been moved to disk. But you 
will rarely need to bother with that proce- 
dure because EDAS solves the long 
source file problem in another way. 

Via the Get statement, EDAS assem- 
bles directly from disk. One assembly may 
use any number of Get statements. Thus, 



EDAS lets you break your source program 
into several modules, each of which is 
stored in a separate disk file. Since a file 
assembled as the result of a Get isn't ac- 
tually buffered in memory, a module may 
be larger than 48K. 

If your in-memory source code consists 
only of a series of Get statements and an 
End statement, most of your computer's 
memory is available to hold the symbol 
table. This solves the source size problem 
and permits editing and assembling of 
large programs. It also provides the basis 
of a subroutine library management sys- 
tem. 

In fact, if there are no ORGs in any of 
the Get modules, they will all be sequen- 
tially arranged in memory relative to the 
ORG in the text buffer. In essence, this ar- 
rangement achieves the same effect as 
does ALDS' relocatable code generation, 
except that the relocatable modules exist 
in the source state instead of the object 
state. 

The EDAS assembler also accepts a 
View (filename) command which causes it 
to display the requested disk file on the 
video screen. This allows you to make 
sure you are Getting the right file. And to 
further enhance its disk utility, EDAS 
allows viewing disk directories (including 
file size allocations and free space) and 
killing files without leaving the editor. 



Other Features 

Three other nice features of EDAS have 
a synergy which results in a breakthrough 
in debugging ease. I am referring to the 
/IM assembly switch, the Branch com- 
mand, and EDAS' warm start capacity. 
The IM/ switch lets you assemble a pro- 
gram directly into memory instead of to a 
disk file. The Branch command lets you 
jump to any specified address, such as 
the entry point of the program just assem- 
bled into memory. And EDAS' reentrant 
nature lets you escape from test execu- 
tion of your object code (by reset if neces- 
sary), and return to EDAS with your source 
intact (providing your testing hasn't run 
wild and squashed it). 

One word of caution with regard to 
reentering EDAS. EDAS keeps its text 
pointers in low memory— starting at 
about 5300H. Therefore, going to DOS and 
using any of the library commands is like- 
ly to result in a confused EDAS after reen- 
try. This will probably be corrected in 
EDAS' next release. 

In the meantime, if you have used EDAS 
to assemble some code to memory and 
want to debug it, the best way to leave 
EDAS is to Branch to 30H. This puts you 
into the restart routine, which invokes De- 
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bug without issuing the DOS Debug li- 
brary command. From Debug you can op- 
erate on your program in the usual fashion 
and finally jump back to EDAS with your 
test intact. 

Upon entering EDAS, you are presented 
with a memory size question similar to 
that of Level II Basic. If you default by hit- 
ting Enter, EDAS uses the address point- 
ed to by HIGHS (DOS' pointer to the high- 
est available byte of memory) as its mem- 
ory ceiling. If you answer the memory size 
question with a hex address, EDAS uses 
that address for its ceiling. This allows 
you to protect driver routines, monitors, 
and such in high memory. In either case, 
the text buffer and symbol table are 
cleared for a new session. Finally, if you 
answer the memory size question with 
zero, or by pressing Break, EDAS makes 
no restoration of its pointers. Thus, you 
may go on editing the same text you were 
working on before you last left EDAS, pro- 
viding nothing has stepped on it in the 
meantime. 

EDAS also supports lowercase. To avail 
yourself of this support, you must, of 
course, have a lowercase keyboard (no 
problem on a Model III) and lowercase 
driving software (again, no problem with 
the Model III). If necessary, EDAS' 
Memory Size feature can be used to pro- 
tect the driver in high memory. 

Once set up for lowercase, EDAS offers 
two modes of operation. In one, both up- 
per and lowercase characters are main- 
tained in the text buffer just as they were 
keyed in. This allows you to use EDAS' 
powerful editor to prepare word process- 
ing files. 

In the other mode, certain lowercase 
letters are converted to uppercase as they 
are inserted, because assembler syntax 
requires instructions, mnemonics, and 
labels to all be uppercase. Even in this 
mode, EDAS does not convert material in 
quotes or comments, since lowercase in 
those areas would not generate assembly 
errors. 

EDAS has several other improvements 
over what is available in editor/assembler. 
For example labels may be up to 14 char- 
acters long. E/A's limit is six letters. The 
extra letters are important to those us 
who would like to choose labels with a 
mnemonic quality or which contribute to 
the self-documenting nature of the pro- 
gram. 

Another such improvement is EDAS 
treatment of DEFM, DEFB, and DEFW. 
Each of these now allows you to con- 
catenate values. 

Each value is separated from others in 
the value list by a comma. ASCII values 



are surrounded by single quotes. For ex- 
ample 

10 OEFM 'This is example',' ','# ',1 assembles as 54H 
68H 69H 73H 20H 69H 73H 20H 65H 78H 61 H 6DH 70H 
6CH 66H 20H 23H 20H 01 H. 

This string of hex characters, when 
looked at through ASCII-colored glasses, 
becomes: This is example # 1. (Note: the 
digit 1 in this example assembles as a hex 
1, not an ASCII 1.) Items in the value list 
may also be expressions, for example: 
20 DEFM T + 20H,' «= f assembles as 
74H 3DH 74H, which in ASCII is t = t. 

Another nice thing about EDAS' han- 
dling of DEFM and DEFB is their compact 
presentation in the assembled listing. 

One of EDAS' smallest, but most use- 
ful, advantages over E/A is its enabling of 
the clear key. I use this feature almost 
constantly, as I like to present myself with 
neat cohesive screenf uls of data when I'm 
programming. With E/A, I've had to hand 
scroll superfluous material off the screen 
by pressing the down-arrow 15 times in 
succession. 

EDAS' documentation is well written 
and complete. Amazingly, it is printed on 
70-pound lined paper, which makes mere- 
ly turning the pages a luxurious experi- 
ence. It does not contain an instruction- 
by-instruction explanation of the Z-80 op- 
codes. Those who need a course in Z-80 
machine language will have to supple- 
ment the EDAS manual with additional 
material. The EDAS documentation quite 
correctly restricts itself to detailing the 
operation of the editor/assembler, and 
that it does quite well. There is a source 
file on the EDAS disk which has an un- 
commented list of all the Z-80 instruc- 
tions. 
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Finally, I would like to mention that a 
few minor bugs have been discovered in 
EDAS. They are cosmetic or documenta- 
tional. None of them interfere with the 
basic functioning of the program. For in- 
stance, when explaining the Write com- 
mand, the documentation indicates that a 
comma should be used to separate the 



starting and ending line numbers. Actual- 
ly, a colon (:) must be used.B 

Just as this article was about to be 
typeset, I learned that Misosys is ready to 
release EDAS 3.5. All registered EDAS 
owners will receive a notice to mail in a 
disk for a free upgrade. Here are the major 
improvements in the new version of EDAS. 

There is now a cross-reference (X-REF) 
utility. It generates files containing every 
lable declaration and reference. For each 
declaration, the value of the symbol is 
given. For each reference, the file name 
and line number of declaration are record- 
ed. A source file of EQUs for all referenced 
symbols can be generated. The user can 
specify a page heading (and other page 
formatting specifications) for X-REF to 
use when printing its files. 

A new utility, called Tape to Disk (TTD) 
has been added to the EDAS package. It 
converts EDTASM or EDTASM + source- 
files from tape to disk. 

Another new utility is CMDFILE, which 
allows the user to transfer object files 
from tape to disk and vice versa, merge 
object files, and perform similar manipu- 
lations. 

A number of improvements have been 
made to EDAS itself. It now accepts the 
additional logical operators: integer ', in- 
teger I, logical OR, and logical XOR. Four 
conditional operators for conditional as- 
sembly are now available. 

The following improvements have been 
made to provide compatibility with 
Microsoft's Macro-80 source files: A 
dollar-sign ($) now may be the first 
character of a label. A label may be alone 
on a line. EDAS can now read and write 
Macro-80 source files with or without line 
numbers, and with or without Macro-80 
headers. 

A couple of new pseudo-ops are provid- 
ed including COM, which forces a com- 
ment line to be written to a load module. (A 
comment line does not get copied into 
memory when the load module is loaded.) 

EDAS 3.5 allows an object code filespec 
to be put into an assembly command line, 
and Gets a file that starts with a comment. 
Also, you now have a better chance of 
reentering EDAS from DOS with your 
source code intact, because the crucial 
vectors are being stored higher in 
memory. EDAS can now be run from a JCL 
(Job Control Language) file. 

Certain prompts (like 'Mem Size' and 
'End of Page') have been dispensed with. 
Users may specify the pertinent informa- 
tion when entering EDAS from DOS. Since 
this relies upon DOS' parameter scanning 
routine, the new version of EDAS is not 
compatible with NEWDOS-80.M 
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Last month we discussed ways of 
ichaining programs so one can call up 
another. Examples of the "master menu" 
type of operation (where one program 
calls up any one of several programs) 
were given. 

The same principle may be used to 
chain sequentially through a string of 
programs. As soon as a student finishes 
one program, the next is automatically 
called up. 

The chaining technique can be effec- 
tively used in demonstrations and in in- 
struction, where it is often advantageous 
to carry information from one program to 
the next or to accumulate data across a 
series of programs. 

The First Chained Program 

As an example, suppose the first chain- 
ed program asks the student for his name. 
You would not want subsequent pro- 
grams to ask for the same information; it 
is better to arrange for all of them to 
"know" the answer. Another use is to have 
each chained program store the student's 
score so you can access his achievement 
on each one. This could be accomplished 
by printing the scores, but who has a 
printer connected to every computer? 

Fortunately, these and similar pro- 
cedures may be done in the computer's 
memory (RAM). There must be extra mem- 
ory—some memory at the top not re- 
quired by any of the programs in the 
series, in which to store any information 
to be passed from program to program. 

The first step is to reserve memory. Do 
this manually before loading the first pro- 
gram—answer the memory size question 
with the proper number. You will find, 
however, that there are several advan- 
tages to having the first program set the 
memory automatically. (If you have forgot- 
ten how to do this, review the procedure in 
the October Education 80.) 

Once you have set aside memory you 
must make a special effort to store and 
retrieve data in that area. (A good thing, 
too; it prevents all but the most sophisti- 
cated student from changing it!) We'll use 
POKE and PEEK to place and retrieve the 
data. 

The statement examples which follow 



were developed for a 48K Model III. Use on 
the Model I should require no changes. 
However, either machine with only 16K or 
32K will require that the POKE, PEEK, and 
memory size addresses be changed ac- 
cordingly. 

10 POKE 16562, 256 : POKE 16561, 228 

This first statement sets the memory 
size at 65510 just as though the question 
had been asked and answered with that 
number. Twenty-five RAM locations have 
been reserved for special use. 

30 IF PEEK (-3) THEN 310 

This example is taken from a master- 
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menu type program chain. If any value 
other than zero is found at -3 (65533), 
program execution transfers to line 310. 
Any time the menu program is run after 
the first run, the introductory material is 
skipped and the program goes straight to 
the menu. 

There are times the locations above 16K 
must be referred to as negatives. Beyond 
the 16K boundary, PEEK and POKE re- 
quire negative numbers which decrease 
to - 1 at 65535 (see your TRS-80 manual 
for further details). 

150 INPUT B$ : REM FOR STUDENT NAME ENTRY 

The name in B$ will be lost as soon as 
another program is loaded. In order to 
keep it, we use the following technique: 



160 Y = LEN (B$) - 1 : IF Y > 20 THEN Y 
= 20. This statement sets the value of Y 
equal to one less than the length of the 
student name. Because of the amount of 
RAM reserved, Y is limited to a maximum 
value of 20. 165 POKE - 3, 1 sets location 
65533 to the value of 1, to be read by line 
30 the next time the menu is run. 168 
POKE -4, Y POKEs the length of the 
name (Y) into 65532. 

170 FOR X = -26T0-26 + Y 

: POKE X, ASC (MIDS (B$. X + 27. 1)) 
:NEXT 

This line POKEs the student's name 
(one letter at a time) into reserved 
memory, beginning at 65510. Here is how 
it is retrieved: 



310 Y = PEEK (-4) 
315F0RX = -26 TO -26 + Y 

: B$ = B$ + CHRS (PEEK (X)) 

: NEXT 
320 PRINT"HELLO. "B$". ITS GOOD TO SEE YOU 

BACK. HERE IS THE MENU AGAIN." 



Line 310 gets the name length from 
reserved memory. Line 315 concatenates 
the name letter by letter into the variable 
B$. The student will be addressed by his 
name every time he returns to the menu to 
make another selection. 

This technique can be used to pass any 
kind of information from one program to 
another. By putting line 315 in any subse- 
quent programs, they will "know" the stu- 
dent's name or whatever data you have 
stored. 

If you wish to accumulate the student's 
scores, have each program POKE its 
score in a different RAM location. You can 
use a special program to PEEK at the 
numbers and present them to you at any 
time. 

When It Won't Work 

There are three circumstances which 
will prevent this technique from working. 
If any program in the chain POKEs into the 
area where you are storing data, that data 
will be lost. If the student presses the 
Reset button, all will be lost. Finally, if the 
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computer is turned off and then on, there 
will be no information stored. You can 
take steps to minimize the possibility of 
these things occurring. 

To clear out stored data before another 
student uses the program chain, you can 
depend upon newly stored information 
which is POKEd in to replace the data 
from the previous student. Should you 
decide not to do so, you can turn the com- 
puter off, press Reset, or POKE in a string 
of zeros. 

Passing values from one program to 
another has many advantageous uses in 
your CAI (Computer Assisted Instruction). 
It also opens up another dimension in 
your programming. 



Word Processor Update 

In an earlier column I mentioned Delmer 
Hinrichs' excellent word processor, listed 
in the June 1980 issue of 80 Microcomput- 
ing. It was (and is) the best "freebie" word 
processor I have come across. It does a 
good job in preparing term papers, reports 
and the like. It has two major disadvan- 
tages. 

A lot of time is required to key it into the 
computer the first time. (But, then, one 
hears that student labor is cheap!) Also, 
the response time is a bit slow because it 
is written in Basic. (One also hears that 
few teachers or students are such great 
typists anyway!) 



5(3 REMARKS 

from page 6 

tially. When we cut costs that generally 
means a few more pages of magazine for 
you. 

We are seeing more and more articles 
on the use of word processors, and even 
hear them mentioned on television. It 
didn't hurt when Jimmy Carter (remember 
him?) turned to word processing for his 
writing.! 

Making Money 



Ever since the microcomputer busi- 
ness began I've been asked for advice 
on which firms appear to be the best for in- 
vestment. With the recent media attention 
to the industry my calls from people with 
venture money have been increasing. 

I've been cautious about making any 
recommendations for several reasons. 
There have been some products which 
seemed to have good possibilities, but my 
confidence in the management of the 
firms was low. It is a sad fact of life that 
marketing and promotion go more to mak- 
ing a product a success than the value of 
the product itself. Indeed, we've watched 
some very good products go down the 
tubes as a result of mismanagement. 

With the entry of IBM into the micro 
field there will be a new rash of business 
opportunities. Just as the Radio Shack 
system has generated an industry depen- 
dent upon it— as you can see from the 160 
or so pages of ads in this magazine— so 
we will be seeing a similar phenomenon 
with the IBM (and the Xerox, and so on). 
Some of these peripheral firms are al- 
ready into the tens of millions of dollars in 



sales, so this "support" type of business 
can be very profitable. 

In recent weeks I've talked with a cou- 
ple of small firms which have products or 
ideas which could, I think, quickly develop 
into massive money makers. Each need 
the money to get started with the promo- 
tion and production of their product. 

Most of these firms need between a 
quarter and a half million dollars to really 
get going quickly. Each of three that I can 
think of are well established firms, but 
none have that amount of cash on hand 
for getting a new product out fast. The 
product sales should mushroom, when 
you consider the 300 percent yearly in- 
dustry growth pattern which seems to be 
continuing and perhaps accelerating. 

I'm going to look into the legal ramifica- 
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tions of setting up an investment venture 
capital fund for getting needed products 
and services started with each share at 
$1,000. The fund would own a share of the 
businesses and be on the board of direc- 
tors, thus keeping an eye on the manage- 
ment of the firms. With some diversifica- 
tion, even if every investment didn't grow 
into a bonanza, it would be difficult to 
miss on all bets. At $1,000 a share, I'll bet 
there are a lot of people who would like to 
get in on the action. I'll let you know if this 
looks feasible. ■ 



If you want to avoid all the typing and 
get a word processor that reacts faster, 
you might want to get in touch with 
Delmer (2116 S. E. 377th Avenue, 
Washougal, WA 98671). He has several im- 
proved versions available for tape or disk 
operation. Better yet, his prices are low. I 
would not imply that his word processors 
are equivalent to Scripsit or the Pencil, but 
for the price, they are terrific. 

Delmer even has a word processor 
which will print a letter repeatedly, paus- 
ing to pick up a new name and address 
and use the first name in the text wherever 
you wish. Could be very handy when you 
are writing original letters to parents or 
students. 

Upgrading from Model I to III 

There is no question that Radio Shack 
is selling a lot of Model III machines. As 
time goes by, more and more schools will 
be replacing their Model I machines. 
When we upgrade from a Model I to a 
Model III, we have a different situation 
from those of you who start off with a 
Model III. 

Model I users have accumulated a vari- 
ety of utility programs. Some may not be 
needed after upgrading, because their 
functions are built into the Model III. Most, 
however, would continue to fill a need if 
they would work on the Model III. 

Since I upgraded, I have found some of 
my old utilities work well; others function 
only partially and still others, not at all. 
Replacing a lot of utilities can be impossi- 
ble after the school or activity budget has 
been broken in the upgrading process! 

Fortunately, some producers of utilities 
are very cooperative in these circumstan- 
ces. The general policy seems to be that for 
the difference in cost between the two ver- 
sions, they will provide you with the Model 
III version. 

To date, I have found two producers to 
be quite helpful. One of these is Cottage 
Software (if you aren't using Packer, you 
must not be writing programs). The other 
is Computer Applications Unlimited. 

This is not to say that the other 
manufacturers are uncooperative in solv- 
ing this problem; I have written to some 
others and have not yet given up on receiv- 
ing a reply. 

To help each other through the ex- 
change of information, let me know your 
experience with utilities in the upgrading 
process. Which have you found that work 
just as well on the Model III? Which won't? 
What reactions have you gotten from the 
producers? Be sure to give me your Model 
I set-up and the new Model III configura- 
tion, as well as the names of the utility and 
the producer.! 
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FEATURE8 

• 5- and 8-inch* di«k drive* 

• ingle- & double-den 

• Any size and density in any mix 

• Head Mode I I. II* nnd IN disks 

• * trystem disk 

• Single & double aided disk dn 

• in -hided, with Disk 
BA2 

• 6 month warr.n 

• l.'p to 3.75 megabytes online 

• Easy installation - plug-in & run 

• Analog phase lock loop data 
separation 

• Precision write precompensa 

• Regulated power supply 

• (iwaranteed operation at 4MHz 

• All contacts gold plated 

• Solder masked & silk screened 

• Runs under DOS • 3.3.8, 

2.3. NEWDOS 2.1. NKWDOS/80 
1.0. LI WW. NKWDOS/80 
and t'LTKADOS 

• Heads 40- and 35-track disks on 
80-track drives 

• FD1791 controller + your FD1 771 

• Fit* Model I expansion interfaces 

• Fib- LNW expansion interfaces 

• Track configurations to KO-tracks 

• ft inch disk storage increased to. 

161,280 bytes B6-t rook SS/DD 

ra : Dfi/DD 

\le» - 40-track Q&t 

368.640 bytes KMrack DS/DD 

'40 bytes- 80-track 88 

280 byte, 50 track I )-S/DD 

• 8 inch disk storage increases 



591,360 bytes - 77 track SS/DD 
1.182.720 bytes - 77-track DS 1)1) 
SS: single-sided DS: double aided 
SD: single density DD: doubled" 

COMPLETE The LNDoubler 5/8. 
switches your Model I or LNW-80 
into the most versatile computer you 
can own. The LNDoubler's av 
allows you to boot from 5- or 8 -inch 
system disks, and it's accessible from 
outside the interface. The I.NDoubler 
5/8 comes with a double-density disk 
operating system (DOS 
complete with BASIC and ui i 
programs . . . read-. V <»ur 

software NOW! 

VERSATILE Whether you want 
single-sided, double-sided, single 
double-density, 6- or 8-inch oper.i 
complete versatility is here t 
Any combination of 6- and 8-inch disk 
storage is possible with 
LSDimbler 5/8. Esch of your present 
40-track, sin* inch drives 

will store up to L84.320 bytes 
{formatted storage) that's on BO 
increase in storage capacity for only 
half tli list one disk drive. 

With three 8-inch double -den 
double-sided drives your Model I will 
have 3.75 Megabytes of online storage 
that's more storage than a Model II 
or Model III! 

ADVANCED - The LNDoublv 5/8 
is the most technically advanced, 
tested and reliable double-dn 



board you can buy. The I.SDov I 
5/8 has more features, more options 
and more software support than any 
other product of its kind. 

I \^Y TO INSTALL -The 

9 is easy to install. 
There are no traces to cut, no wiring 
to do. just s screwdriver and a few 
minutes of your time is all that is 
required. The instructions are fully 
illustrated for all interfaces. In 
minutes you will be 'up-and-runnin*'. 
and enjoying your computer as never 
before. 

COMPARE - Compere features. 

>are qualit v, compare value, and 
make the SWITCH today! 
Immediate delivery from stock - at 
your dealer NOW for only 



219.95 



•u ton can 
make Tha>wii; 
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THE ASSEMBLY LINE 



by William Barden, Jr. 

"When we last left our 

wimpy hero, the Color Computer, 

he. . . was trying to pass an argument. . . " 



Last month we covered some prelimi- 
nary ground on the use of machine 
language subroutines in the Color Com- 
puter. This month we'll complete the 
course and send you your gold-embossed 
Certificate of Completion for 6809 
machine language programming. 

When we last left our somewhat wimpy 
hero, the Color Computer, he had suc- 
cessfully run some machine language 
programs and was trying to pass an argu- 
ment to the machine language subrou- 
tine. As we tune in this month, we con- 
front the floating-point accumulators. 

There are two floating-point accumula- 
tors in page of RAM (locations through 
255). They are designated FAC 1 (loca- 
tions 79 through 84) and FAC 2 (locations 
92 through 97). Each of these is six bytes 
long. They hold floating-point numbers, 
numbers that represent a form of "scien- 
tific notation." Let's review what we know 
about scientific notation. . . 

Scientific Notation 

Scientific notation uses a mixed num- 
ber and power of ten to represent any size 
number. A somewhat standard form for 
Basic is shown by this example: 1.2E + 10. 



STA 


$2000 


87 


2000 


183,32,0 


STX 


(2001 


BF 


2001 


191.32.1 


LOB 


m 


C6 


08 


198,6 


LOY 


#$2003 


108E 


2003 


16,142.32,3 


LOOP LDA 


,x + 


A6 


80 


166,128 


STA 


.Y + 


A7 


A0 


167,160 


DECB 




5A 




90 


BNE 


LOOP 


26 


F9 


38,249 


RTS 




39 




57 


Program 


Listing 


1. Store A/C/FAC 



A 10 is taken to the 10th power, or 
100,000,000,000, and multiplied by 1.2. The 
actual number represented is 120,000,000, 
000. Negative numbers can also be 
represented, as in 5.333E-5, which is 
1/1,000,000 x 5.333 or .00000533. 

To convert any number to scientific 
notation form, move the decimal point to 
the right of the first significant digit and 
count the number of places. The count 
becomes the power of ten, either positive 
(original number greater than one) or 
negative (original number less than one). 
The following are examples: 

12345= 1234.5E + 1 = 123.45E + 2 = 12.345E + 3 = 
1.2345E + 4 

0000234 = 0.000234E - 1 = 0.00234E - 2 = 0.0234E - 3 = 
0.234E-4 = 2.34E-5 

The advantage of scientific notation is 
that arithmetic operations can easily be 
carried out on a range of numbers. 

Basic uses a modified form of scientific 
notation internally for floating-point num- 
bers. In place of powers of 10, powers of 2 
are used. In place of a mixed number, a 
fraction is used for the mantissa. To see 
the form used, we'll use still another ma- 
chine language program with a Basic 
driver. 

Program Listing 1 shows the machine 
language program. Let's go through the 
instructions step by step: The first two in- 
structions store A and X as before, into 
$2000 and $2001, $2002. The next instruc- 
tion loads the B register with six. B is used 
as a loop counter for six passes through 
the loop. 

The next instruction loads the Y register 
with a value of $2003. This value points to 
the $2003 area. The LDA instruction loads 



1KB DATA 183.32.0.191.32. I . I 9B. 6. 16. 142. 32, 3. I 66. 128. 1 67, 168. 90. 36. 249.57 

1 01 DEFUSR0=*H2009 

110 FOR 1-&H2B09 TO »H201C 

120 READ A 

130 POKE I. A 

140 NEXT I 

145 INPUT X 

no a=usr0<x> 

160 FOR I=*H2000 TO »m;00|1 
170 PRINT PEEK! I) I 
1110 NEXT 1 
190 PRINT 
?!»» GOTO 145 

Program Listing 2. Basic Program to Display FAC 



ARGUMENT" 




















79 
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79 


129 
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79 


130 


128 














ARGUMENT= 
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79 


130 


192 
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ARGUMENT- 


4 

















79 


131 


128 














ARGUMENT - 


7 

















79 


131 


224 











96 


ARGUMENT- 


10 

















79 


132 


160 











32 


ARGUMFNT- 


100 

















79 


135 


200 











72 


AR6UMENT- 


1000 

















79 


136 


230 











122 


AR6UMENT- 


1000C 

















79 


142 


136 


64 








28 


ARGUMENT- 


100000 















79 


143 


193 


60 








67 


ARGUMENT- 


I0BU00 















79 


146 


244 


36 








1 16 




Fig 


1. FAC Values 







ARGUt1ENT=-l 










79 


129 128 


b 





128 


ARGUMENT— 2 










79 


130 128 


a 





128 


ARGUMENT—3 










79 


130 192 








192 


ARGUMENT=-13 










79 


132 240 








Fig. 2. 


Negative FAC Values 





the memory location pointed to by the X 
register. Since we entered the subroutine 
with X pointing to the FAC area, the first 
byte of the FAC (79) will be loaded into A. 
The plus sign means that the X register is 
incremented by one to point to 80. The 
STA stores the A register contents into 
the location pointed to by the Y register. 
Since we just loaded Y with $2003, the 
contents of 79 will be transferred to $2003. 
The Y register is then incremented by one 
by the plus sign. 

Next, the count in B is decremented by 
one to five. If the count is not equal to zero, 
the loop is again executed. Each time 
through the loop, one more byte will be 
transferred from the FAC area to the 
$2003 area, until all six bytes are trans- 
ferred. (We used six bytes on blind faith 
from the Extended Color Basic manual.) 

The Basic driver is shown in Program 
Listing 2. This program transfers the 
decimal data form of the machine lan- 
guage code to the $2009 through $201 C 
area. (The $2000 through $2008 area is 
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NEED A PRINTER? 

UP TO 25% DISCOUNTS! — same day shipment! 



RADIO SHACK v 
NE PRINTER IV ) 



CENTRONICS 739 < L 

With Graphics and 

Word Processing Print Quality 




• 18 x 9 dot matrix; suitable lor word 
processing • Underlining • proportional 
spacing • right margin justification • serif 
typeface • 801100 CPS • 9 v. Pin 
Feed'Fnction feed • Reverse Platen • 
80M32 columns • Top of form 

CENTRONICS 739-1 (Parallel . (Lilt $9 $725 
CENTRONICS 730-3 (SenaD (UstSNMS) 615 
GRAPPLER™ Apple graphics interface $165 



ANADEX 




Dot Graphics, Wide Carriage 



' i * 9 dot matrix lower case descen- 
ders • Dot resolution graphics • Bi- 
directional, logic seeking • Up to 200 
CPS • RS 232 Serial a Parallel • Forms 
~^^w control • X-ONfX-OFF • Up to 6 part 
copy. 

ANADEX 9601 iLISt $16601 *Ca* 

GRAPPLER™ Apple graphics interface $166 



VISTA — C. ITOH STARWRITER 



Daisy Wheel Letter Quality 

• 25 CPS (Optional 45 CPSl • Typewriter 
quality • Centronics parallel • RS 232 
Serial (Optional) • Proportional spacing • 
Bidirectional • Programmable VFU • Self 
teat • Diablo compatible • Friction leed 
(Optional tractors) • 136 printable columns 

• Manufactured by C ITOH. 



VISTA V300(C. ITOH) STARWRITER (Llst$1895l $1525 



IDS PAPER TIGERS 

Dot Resolution Graphics, quality print, speed 



9 wire pnnthead 
(480) with lower case descenders • Over 
150 CPS • b i -directional logic seeking 
fefej, ,, • 8 character sizes: 80-132 columns 

* Adjustable tractors • High resolution dot 
graphics • P-oport onal spacing & rex: 

lustilication 

^^^ajp 

108 460Q 9 wire pnnthead. graphics (List $1094) $Celi 

I0S560Q wide carnage, graphics (List$l394) $Call 

QRAPPLEFT M Apple graphics Interface $1 «5 





CALL FOR INFORMATION & CATALOG 

(800) 854-8275 

CA,AK, HI (714) 630-3322 



RETAIL PRINTER STORES: 

Store #1 3150E. La Palmail, Anaheim. CA 
Store *2 136C4 Ventura Bl.. Sherman Oeka.CA 

8tore Hours: M F 10-6 8a1. 10-4 




EPSON MX80/MX70/MX100 



Low-Priced 
Professional Print Quality 

•9x9 dot matrix • Lower case deecenders 
i^t • 60 CPS • Bidirectional, Logic seeking i 
40. 66. 60, 1 32 columns per line • 64 special 
graphic characters: TRS-60 Compatible • 
Forms handling • Multi-pass printing • Ad- 
justable tractors 

We also carry e full line 
of Epson Accessories 

EPSON MXMi&MXSOFTi (List $646) $CaN 

EPSON MX70Dot graphics, 5x7 matrix . (List$450i $Call 

EPSON MX 1 00 wide carriage , graphics (List $945) SCatl 

ORAPPLER™ Apple Graphics Interface $168 

GRAFTRAX 60 -MXeX) Dot Graphics .. $95 

MX80/70 FRICTION FEED KIT 

User installable kit tor single sheets 

Eaey 30 minute installation $76 



ANACOM 

LOwCosf, High Speed. Wide Carriage 

• 9 x 9 dot matrix • Lower case descenders • Wide carnage • 
Adiustabie tractors to 16' • 150 CPS, Bidirectional Logic Seeking 

ANACOM 150 . . (List $1350) $996 



NEC SPINWRITER 

High Speed Letter Quality 

• 55 CPS • Typewriter quality • B id i reel io rial • Plotting • pro- 
portional spacing 

5510 RO, Serial (List $3055) $2875 

5530 RO, Parallel (List $3055) $2875 

TELEVIDEO CRT'S 

AT DISCOUNT PRICES! 

TVI910 ^ 

TVI912C I Please Call Toil Free 

Tvioorv* y Price* are too low to 

tv SrT edvertlM 

OU*l»llT> PHICINO AVAILABLE I VI SOU J 

CRT'S 
ADDS VIEWPOINT (List $698) $600 

PRINTERS 

MALIBU 165 A-ide carnage. graphics (List $1975) $1325 
OUME5i<:' Ity (List $2905) $2659 
DIABLO 630 $Call 

NEC PROWRITER SCall 

EPSON ACCESSORIES $ Call 

ORANGE INTERFACE fc Apple II 

■I i ill' $ no 

MICROTRONICS*! npa -i ■ » «• 

TRS-80 CABLES r Keyboard or Exp .menace $ Call 

NOVATION D-CAT direct connect modem $ 160 





j*-| 



^Orange micro ? 



3150 E LaPelma, Suite G. Anaheim, CA 92808 



(714)930-3622 
(21 3» 501-3486 



Pncne order WELCOME, •am* «Uy sMpmem. Frea wee o» VISA I MASTER 
C4RD COCi accepted. Manufacturer's warranty included on «M equipment 
Prtcee subject io revision. 
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reserved for A, X and the six bytes of FAC.) 
Next, the input X command is executed so 
we can use various values in the USRG 
call. 

After the USRO call is made with X as 
the input argument, the area from $2000 
through $2008 is printed. Typical values 
are shown in Fig. 1. 

The first value represents the contents 
of A coming into the machine language 
program. It is always zero, indicating a nu- 
meric (rather than string) value. The next 
two values are the pointer in X coming into 
the machine language program. X always 
points to location 79, the FAC. 

The next six bytes represent the num- 
ber in floating-point format. The first byte 
of this is the power of two plus 128. What? 
The 128 bias is used to simplify arithmetic 
operations on the floating-point number, 
and additionally, to cloud programmers' 
minds. Look at an input argument of one. 
The exponent value is 129. A value of 
129-128 = 1, so the power of two repre- 
sented is one. 

The next four bytes are the fraction. An 
input value of three, for example, has 192 
or 11000000 for the first byte, followed by 
zeroes. The fraction is therefore .110000 
000000000000000000000000. (The frac- 
tional powers of two are 1/2, 1/4, 1/8, . . .). 
The floating-point form of three is there- 
fore 130-128 = 2 J x.11 =3. The floating- 
point form of 100 is 135-128 = 2 T 
x. 11001000 = 1100100= 100. 

The last of the six values is the sign of 
the fraction. A value less than 128 is a 
positive sign, while a value greater than 
127 is a negative sign. (This byte is a 
signed eight-bit value representing - 128 
through + 127 in two's complement form.) 
Fig. 2 shows representative negative 
values for the FAC. 

That is the format of numbers held in 
the floating-point accumulator. This does 
not mean we must work with floating- 
point numbers in the machine language 
subroutines. As a matter of fact, most pro- 
cessing will not be using floating-point 
numbers, but simple integer numbers that 
can be held in 16 bits. Why then the inter- 



im DATA 189. 179.237.183.32.0.2*7.32.1.57 

105 D€FUSRe-»H2003 

116 FOR J-4H20O3 TO 4H20OC 

120 READ A 

130 POKE l.A 

140 NEXT I 

1*5 INPUT X 

150 A-USRO(X) 

155 PRINTH-2. "ARGUMENT*" IX 

160 FOR 1-&H2000 TO SH200I 

170 PRINT* 2. PEEK! I): 

ISO NEXT I 

190 PRlNT»-2 

200 GOTu 1*5 



Program Listing 3. 



face to floating-point numbers— Only 
God, Radio Shack, and Microsoft know 
the reason. This USR call is similar to the 
Model II, which also uses a pointer to a 
floating-point number. The Models I and 
III, however, pass only 16-bit integer 
values, which, to my mind, is much more 
convenient. 

INTCNV to the Rescue 

Reading on in the Extended Color Basic 
manual, we find it's possible to call a ROM 
subroutine named INTCNV, which will 
convert the argument to a 16-bit value. The 
code in Fig. 3 shows this. JSR $B3ED calls 
INTCNV with X pointing to the FAC. The 
INTCNV subroutine converts the floating- 
point value in the FAC area to a 16-bit in- 
teger value and puts it in the D register 
(the A and B registers taken together). The 
STA stores A and the STB stores B into lo- 
cations $2000 and $2001, respectively. 

Program Listing 3 is the Basic driver for 
these four instructions. The equivalent 
data values are first POKEd into locations 
$2003 through $2000 The argument is 
then input, and a USRO call is made. After 
the call, locations $2000 (A) and $2001 (B) 
are printed. Fig. 4 shows the A and B 
values after the INTCNV conversion. They 
represent the values in the USRO call. The 
numbers are signed 16-bit values, in which 
the most significant bit is the sign 
(1 = negative, 0= positive). 

The two bytes make up 16 bits. To find 
the equivalent binary value, write the first 
value in eight bits, immediately followed 
by the next value in eight bits. 1 17, 48, for 
example, becomes 01110101 00110000. If 
the sign bit is zero, the number is correct 
as it stands -117,48 represents $7530, 
or 30,000. If the sign bit is one, change all 
the ones to zeroes, all the zeroes to ones, 
and add one to get the negative value rep- 
resented (138,208 becomes 10001010 
11010000, with the sign bit = 1). "Com- 
plementing" produces 01110101 00101111, 
and adding 1 gives a final result of 
01110101 00110000, or 30,000. negated. 

INTCNV Is one way to pass an integer 
value to the machine language subrou- 



STA 


$2000 


B7 


2000 


183,32,0 


STX 


$2001 


BF 


2001 


191,32,1 


LDB 


#6 


C6 


05 


198,5 


LDY 


#$2003 


108E 


2003 


16.142,32,3 


LOOP LDA 


,x + 


A6 


80 


166,128 


STA 


,Y + 


A7 


A0 


167,160 


DECB 




5A 




90 


BNE 


LOOP 


26 


F9 


38,249 


RTS 




39 




57 


Program Listing 4. 





JSR 


SB3ED 


BD 


B3ED 


189,179,237 


STA 


$2000 


B7 


2000 


183.32,0 


STB 


$2001 


F7 


2001 


247,32,1 


RTS 




39 




57 


Fig. 3. INTCNV Example 
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ARGUMENT » 


1 


1 




ARGUMENT' 


5 


O 5 




ARGUMENT* 


3OOO0 


117 48 




ARGUMENT- 


32767 


127 255 




ARGUMENT- 


1 


255 255 




ARGUMENT- 


-2 


235 294 




ARGUMENT- 


30000 


138 208 




ARGUMENT- 


32768 


128 O 





Fig. 4.A + B Values after the INTCNV 
Conversion 



tine, albeit a somewhat roundabout way. 
Another way would be simply to POKE an 
eight-bit or 16-bit value into dedicated 
memory locations and then have the ma- 
chine language code pick up the value di- 
rectly. This would work well for multiple 
arguments. Make certain the dedicated lo- 
cation is in the protected area of RAM and 
does not overlay the program area. 

Passing String Arguments 

How about the case in which the argu- 
ment passed by the USRn call is non-nu- 
meric? A non-zero value in A indicates a 
string argument will be passed. In this 
case, X will not point to the FAC area, but 
will point to a string parameter block. 

The string parameter block is shown in 
Fig. 5. It is made up of five bytes. Byte is 
the length of the string, up to 255 bytes. 
Byte 1 is reserved. Bytes 2 and 3 contain 
the address of the string. This may be in a 
Basic statement for strings, such as: 100 
A$ = "SUCH STRINGS AS. . ." or the ad- 
dress may point to the string storage area 
at top of (non-protected) RAM. Byte 4 is 
reserved. 

This column is loaded with programs, 



BYTE0 

1 
2 

3 

4 




String Length 


Reserved 


Address 


Of String 


Reserved 







Fig, 5. String Parameter Block 
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but I suspect you (and I) need all the 6809 
programs we can get. Program Listing 4 
shows another machine language pro- 
gram built along the lines of preceding 
ones. It stores A in $2000, X in $2001 ,$2002 
and the string parameter block in $2003 
through $2007. 

The Basic driver for this machine lan- 
guage wonder is shown in Program List- 
ing 5. As before, the data values repre- 
senting the machine language code is 
transferred to $2008 through $201 B. A test 
string of $A is entered and passed to the 
program via the USR0 call. The output 
argument B$ is a dummy string rather 
than a numeric variable. 

After the USR0 call the string starting 
address SA is picked up from the param- 
eter block copy at $2005, $2006. The value 
of A, X, and the parameter block is printed. 
SA is used to print the length of the string 
by a series of PEEKs, shown in Fig. 6. The 
first entry of Fig. 6 shows an A value of 255 
(string variable), an X value of 31,149 
(8085 = string parameter block location), 
and the five bytes of the string parameter 
block, length 22, string location 63, 129 or 
16257. 

The same scheme as above can be fol- 
lowed to find the location of Basic text 
strings. This is a handy feature if the ma- 
chine language subroutine is searching or 
sorting strings, or if the strings are dum- 
my strings containing data other than text, 
such as multiple arguments to be passed 
to the machine language processing. 

Using VARPTR 

We now come to a confusing paragraph 
in the six pages on the use of VARPTR. 
VARPTR in the other TRS-80s will point to 
a variable, string parameter block, or the 
first element of an array. For example: 

100B = VARPTR(AA) 
110C = VARPTR(ZX(0)) 
120D = VARPTR(S$) 

will set B equal to the location of variable 
AA, C equal to the location of the first ele- 
ment of array ZX, and D equal to the loca- 
tion of the string parameter block of string 
S$. 

As it turns out, that is exactly the way 
VARPTR works in the Color Computer. 



233 31 1*9 22 63 233 B 
STRING ADDRESS" 16361 
STRING-TANDY TOWERS OVER ALL! 

233 31 149 38 B 63 1B1 81 

STRING ADDRESS- 163B9 

STRING-HAVE YOU HOGGED YOUR CC TODAY"> 



Fig. 6. String Parameter Block Format 



100 DATA IB3.32.0. 191.32.1. I 9B. 5. 16.1*2.32.3. 166.129. 167. 160.90.38.2*9.37 

IIB DEFUSR0=tH2B08 

I2B FOR I-*H2B(9e TO &H201B 

13B READ A 

1*0 POKE I. A 

15B NEXT I 

160 INPUT A» 

170 B«-USR0lA») 

1 BB SA=PEEK ( t»>2B0S > • 256* PEEK ( &H2B06 ) 

19B FOR 1-4H2OB0 TO &H2B07 

200 PRINT PEEKI 1)1 

210 NEXT I 

22B PRINT 

23B PRINT "STRING ADDRESS*" :SA 

2*B PRINT -STRING-"I 

23B FOR 1-1 TO PEEK(*H20B3> 

26B PRINT CHR»(PEEK(SA*I-I I >! 

27B NEXT I 

2B0 PRINTIPRINT 

290 GOTO 160 

Program Listing 5. Basic Driver for String Analyzer 



SAVE 

BIG 

BUCKS 



Model II 64K $3395 

26-4160 1 Drive Exp $1014.00 

28-4161 2 Drive Exp 1559.00 

26-4162 3 Drive Exp 2099.00 

26-4530 Scripsit II 259.00 

26-4512 Profile II 159.00 

26-4511 VisicalcH 259.00 

26-4501 Gen Ledger 179.00 

26-4506 Mail List 72.00 




MODEL III 

26-1061 4K I $ 599.00 

26-1062 16K III 859.00 

26-1066 48K III 

W/ 2 Drives, RS 232 2225.00 

26-1162 1st Drive 765.00 



IDS PAPER TIGERS 

Dot Resolution Graphics quality print 

IDS 445G 7 wire printhead, graphics (List $ 985) S 795.00 

IDS 460G 9 wire printhead. graphics (List 1094) 886.00 

IDS 560G 9 wire, wide carriage, graphics. . . (List 1394) 1129.00 



Model I 

26-1140 Expansion Interface $249.00 

26-1141 16K Exp. Interface 359.00 

26-1142 32K Exp. Interface 469.00 

26-1145 RS232C Board 84.00 

261160a Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26-1566 Visicalc 83.00 



PRINTERS 

26-1167 Wt Line Printer VII .... $ 360.00 

261166 Line Printer VI 1080.00 

26-1158 Daisv Wheel II 1798.00 

26-1 165 Line Printer V 1710.00 

26-1401 Cable 36.00 



Color Computer 4K $353 

26-3001 4K $353.00 

26-3002 16K Ext. Basic 533.00 

26-3009 Joysticks 22.50 

26-3010 Color Video 353.00 

26-1206 Recorder 54.00 

All prices are subject to change without notice. Freight, handling, and 
insurance charges are extra. Most items are shipped United Parcel 
Service. Model II and other hardware weighting over 50 lbs. is ship- 
ped freight collect by truck. Certified Check for immediate shipment 
from stock. Master Charge, Visa or Bank Card add 3 ( i surcharge. 

Vern Street Products 114 West Taft Sapulpa, Ok 74066 
The Computer Store, Inc. 4949 South Peoria Tulsa, Ok 74105 
" 111 918-747-9333 



■See List of Advertisers on page 402 
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STA 


$2000 


B7 


2000 


183.32,0 


STX 


$2001 


BF 


2001 


191,32,1 


JSR 


SB3ED 


BO 


B3ED 


189,179,237 


TFR 


D.X 


1F 


01 


81,1 


STX 


$2003 


BF 


2003 


191,32,3 


LDB 


•6 


08 


05 


198,5 


LDY 


#$2005 


108E 


2005 


16,142,32,5 


LOOP LDA 


,x+ 


A6 


80 


166,128 


STA 


,Y + 


A7 


AO 


167,160 


DECB 




5A 




90 


BNE 


LOOP 


26 


F9 


38,249 


RTS 




39 




57 


Program Listing 6. Store A/C/FAC 



The output or VARPTR is a pointer to the 
variable. The Extended Color manual 
states "X = USR0(VARPTR(A)) passes a 
pointer to the variable A." It isn't quite as 
easy as picking up the pointer in X on en- 
try to the machine language subroutine 
thinking it will point to the variable. 

For a USRn call with a numeric call, the 
X register always points to the FAC area 
at location 79. That's true even if VARPTR 
is used, as in: 100 X = USR0(VARPTR(A)). 

The pointer is converted from a 16-bit in- 
teger value into a floating-point number in 
the FAC area. If VARPTR(A) is 7988, indi- 
cating that variable A is located at loca- 
tion 7988, the 7988 will be converted into 
floating-point format and put into the FAC 
at 79. To find the VARPTR location we 
must use INTCNV to convert the FAC val- 
ue to an integer value. After we do this, the 
D register (A and B) will hold the address 
of the variable. 

Sure enough, we have another machine 
language program to show you how this 
works. Program Listing 6 stores A into 
$2000 and X into $2001, $2002 upon entry 
to the machine language subroutine. 
INTCNV is called at $B3ED to convert the 
FACX value to integer. The integer value in 
D is transferred to X and stored in $2003, 
$2004. B is then loaded with a loop count 
of five and Y with a pointer to $2005. 

The loop is executed five times. Each 
time through the loop, the byte pointed to 
by X is stored into $2005 through $2009, 
transferring the five-byte variable into the 
$2005 area. At the end of the subroutine, 
we have stored data as shown in Fig. 7. 

The Basic driver for this program is 
shown in Program Listing 7. As usual, the 
data making up the program is first trans- 
ferred to $200A through $2025. Next, vari- 
able B is Input. The machine language 
subroutine is called by USR0(VARPTR(B)). 
The data in $2000 through $2009 Is then 
printed. 

When the above program is run with 
sample values (Fig. 7) for B, we find some 
interesting results. A is always zero, indi- 



108 DATA I h.i. 12.0. :■?! . 3J. 1 • 189, 1 79.237i 31. I . 191 . 31. 3. 198.3. 16. 142. 32.5. 166. i: 

110 DATA 167.160.98.38.2*9.57 

120 DEFUSR0-6H2B0A 

130 FOR I-&H200A TO »H2023 

i'.B READ A 

130 POKE I. A 

160 NEXT I 

170 INPUT 8 

180 A>USRB<VARPTR<B>> 

190 FOR I-&H2000 TO 4H2009 

200 PRINT PEEK! 1)1 

210 NEXT I 

220 PRINT:PRINT 

230 60TO 170 



Program Listing 7. Driver for VARPTR Analysis 



eating a numeric variable. X always points 
to location 79 on entry to the machine lan- 
guage subroutine. The next two values are 
the location of B in RAM. The two bytes of 
31 ,52 are 0001 1 1 1 1 001 10100, or 7988, the 
location of variable B. The next five bytes 
are the floating-point representation of 
the variable. As the manual states, "float- 
ing-point variables are stored in the vari- 
able table in a slightly different format 
than they are stored in the FAC." 

The format here Is very similar to the 
FAC format. There are five bytes rather 
than six; the last byte represented the 
sign in the FAC format. The sign, however, 
can be represented In one bit\ The sign bit 
becomes the first bit in the mantissa, re- 
placing the first mantissa bit. Since this 
first bit is always a one, we haven't lost 
any information! But why is the first bit 
always a one? 

Every floating-point number in the vari- 
able table is "normalized." Normalization 
simply means adjusting the number until 
the first fractional bit is one, similar to 
our scientific notation normalization; this 
is done by shifting right or left, with each 
shift adding or subtracting one to the ex- 
ponent. The format of variables, therefore, 
has all the precision of the FAC, but is a 
little harder to read. 
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Consider the value of B= 100, in Fig. 8. 
The exponent is 135. When the bias of 128 
is subtracted, the power of two is seven. 
The fractional part is 72, or 01001000 
000. . .00. The sign bit is the first frac- 
tional bit, or zero (positive). When the one 
bit that should be there is added, the frac- 
tion becomes 11 001 000, or 1/2+ 1/4 + 1/32, 
or 200/256. Two to the seventh is 128 and 
128x200/256 is 100. 

Negative values must be two's comple- 
mented as in previous examples. 

When VARPTR is used with string vari- 
ables, the pointer in X is to a string 
parameter block as previously discussed. 

Passing Arguments 

The last page and a half of the six pages 
discuss passing arguments back from the 
machine language subroutine. The Basic 
interpreter assumes that the FAC area will 
hold the argument passed back. 



100A = USRO(1000) 
110 PRINT A 



In the above example, A will be set equal 



Fig. 7. Store Variable Program Storage 
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31 32 129 128 
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79 


31 32 130 128 
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31 52 130 192 8 


B=-10« 



79 


31 52 135 200 


Program Listing 8. Divide by Two 
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Retder Service lor lacing page ^224 



Even if you have one of the other versions on the market, 
you'll still consider this program a MUST for your collection. 




A DIVISION OF SCOTT ADAMS. INC. 
BOX 3435, LONGWOOD. Ft 327SO 
<305)«62 6917 

WRITE FOR OUR FREE CATALOG 
OF 150 PACKAGES 



SPACE INTRUDERS is for the 

TRS-80 MODEL 1 &3TAPE16K 0100116 $19.95 

TRS-80 MODEL 1 & 3 DISK 32K 012 0116 $20.95 

TO ORDER: SEE YOUR LOCAL DEALER, IF HE DOES NOT 
HAVE THE PROGRAM YOU WANT THEN CALL; 

TOLL FREE 1 800 327 7172 (Orders Only) OR WRITE US. 
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BUGOUT 



MODI 




THE ULTIMATE &OG CATCHER ? 

THREE POWERFUL MACHINE 
LANGUAGE MONITORS 

UNEQUALLED ASSEMBLY 
LANGUAGE INSTRUCTION 

A tew months ago, we published a test version ol 
BUGOUT The response was overwhelming 1 We 
received numerous exclamations similar to the fol- 
lowing from R E m Philadelphia 

Although I am |ust a beginner at Assembly 
Machine Language i tound the program and book 
excellent l can truly say that l learned more in two 
hours with /our manual than l was able to learn m 
the previous two months I say this with no exag- 
geration Thanks lor an excellent program its 
worth twice the price' 

Now alter considerable exchange o( ideas with 
BUGOUT owners, we are proudly introducing the 
following new products to compliment our initial 
offering The products shown below will provide a 
Choice of power according to your needs 

BUGOUT/BEG 

The original BUGOUT MONITOR It does most 
things better than any other monitor on the market 

An ideal product for the budget-minded beginner 

who wants to grasp machine language as rapidly 

as possible with a modest investment 

INCLUDES ONE |1) BOOK BUGOUT ASSEMBLE 

LANGUAGE COURSE 

Order No 8UGVIT TAPE $24 95 

Order No BUGVID DISK $29 95 

BUGOUT/INT 

A' intermediate version of BUGOUT containing 
most ol the features ol BUGOUT'PRO described 
below It is lor the beginner who wants an the 
power ne can get at an intermediate price, or for 
those working exclusively in a 16K environment 
Th.s product is NON-RELOCATABLE and resides 
m nigh 16K memory The disk version overlays 
OOS 

INCLUDES TWO (2i BOOKS ASSEMBLY COURSE 
& ADVANCED MANUAL 

Order No BUGV2T TAPE $44 9S 

Order No BUGV20 DISK $49 95 

BUGOUT/PRO 

Tf-e UlTima t E deougger We have taken the 
best ideas from other monitors combined mem 
with our best and the best from BUGOUT owners 
to create a truly prolessonai debugging. learning 
package No olher monitor can give you the flex- 
ibility ease of operation and POWER offered by 
BUGOUT PRO BAR NONE' Order the DEMO 
TAPE if uncertain You will become a believer 1 
INCLUDES TWO '2i BOOKS ASSEMBLY COURSE 
& ADVANCED MANUAL 

Order No BUGV3T TAPE $64 95 

Order No BUGV30 DISK $69 95 

DEMO-TAPE ■nd DETAILED INFORMATION 

PACKAGE $ 500 

Pefjrdab e on pu'd-ase o< a-» B-iGOu" version 

UPGRADES from VI to V2.0 

or V2.0IOV3.0 $19 95 

UPGRADES from V10 to V3.0 $39 95 

a, foreign orders piease add S 5 00 

An C O D or other special handling 

please add S 5 00 

We accept Master Charge Visa Money Orders or 
Checks — Washington State 'esidenfs piease ado 
5 3'- sales tat 

THE SOFTWARE PLANTATION 

P O BOX 44623 

TACOMA WA 98444 

(206) 531-1506 



DEALER INQUIRIES 
INVITED 
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to 1000, as the Basic interpreter picks up 
1000 from the FAC. 

As I mentioned previously you will prob- 
ably not be working with floating-point 
numbers in your machine language pro- 
grams. You will typically be picking up 
eight and 16-bit integer arguments, pro- 
cessing them, and returning eight or 16-bit 
integer arguments. The question, then, is 
how to return an argument to the FAC. 
Fortunately, INTCNV has a counterpart 
that converts an integer into a floating- 
point number in the FAC, where it can be 
picked up by Basic on the return from the 
USRn call. 

The subroutine is GIVABF, and is locat- 
ed in ROM at $B4F4. A call must be made 
to GIVABF with D (A and B) containing the 
16-bit integer argument to be converted. If 
the argument is only eight bits, A is zeroed 
and B holds the value 

To see how this works, we have one 
final machine language program. Pro- 
gram Listing 8 shows how to divide by 
two. INTCNV is first called to convert the 
value in the FAC to a 16-bit integer value in 
D. The LSRA instruction means Logical 
Shift Right A, and shifts the A register 
right one bit position. A zero goes into the 
most significant bit, and the contents of 
the least significant bit are shifted out in- 
to the carry condition code. RORB rotates 
the B register right one bit position. The 
bit in the carry is rotated into the most sig- 
nificant bit of B, and the least significant 
bit of B falls off the end into the "bit 
bucket." At this point, the D register (A 
and B) has been shifted right one bit posi- 
tion, effectively dividing the entry number 
by two. 

JSR SB4F4 calls the GIVABF subrou- 
tine in ROM toconvert thecontentsof D to 
a floating-point number in FAC. The RTS 
then returns. Program Listing 9 is the 
Basic driver for this program. It simply 
transfers the data values as before, asks 
for input, calls the machine language sub- 
routine, and prints the output value. 

Passing Back Multiple Arguments 

The six pages finish with "passing back 
multiple arguments" and cautions about 
the use of string variables on output. 
I don't know how practical it would be 
to pass back modified variables, as again, 



JSR SB3ED BD 


B3ED 189,179.237 


LSRA 44 


68 


RORB 56 


66 


JSR SB4F4 BD 


B4F4 189,180,244 


RTS 39 


57 


Program Listing 8. Divide by Two 


Program 





100 DATA 1B9. 179, 237.6B.B6. 1B9, IBB, 24«.^7 

llB FOR I-iM^OOB r0 *H?I»B8 

120 READ A 

13B P0M£ l.A 

1*0 IKXT I 

ISO DEFUSRO-4H200O 

160 INPUT A 

170 e=USR0IA) 

ISO PRINT B 

190 GOTO 160 

Program Listing 9. Basic Driver for 
Divide by Two Program 



we would primarily be concerned with in- 
teger arguments. Probably the reserved 
block approach is best here— dedicate a 
block of memory for input and output 
arguments, and use POKEs for input argu- 
ments and PEEKs for output arguments. 
The comments on string use are excel- 
lent, and if the cautions are followed, ma- 
chine language code can process strings 
nicely in sorts and searches. Bear in mind 
that strings, like variables, move! Make 
certain VARPTR is used directly in the 
USRn call; if it is not, a garbage collection 
routine in Basic may have shuffled around 
the string locations. Also be wary of 
changing strings within Basic programs. 
Basic lines terminate on a zero, and re- 
turning a zero value in a dummy string 
may wreak havoc upon return from the 
USRn call. In general, I wouldn't recom- 
mend using strings for passing output 
arguments. 

It's the End of Him, But Just 
the Beginning for Us. . . 

A favorite line from a Grade C monster 
movie. . . Yes, "Assembly-Line" readers, 
this is my last column. I've enjoyed writing 
very much, and sincerely appreciate the 
many letters I've received (except for the 
one from Manny, who sent me a 250-page 
listing with a demand to "straighten out 
his eight-dimensional string sort"). You'll 
see me again in some other articles— 
there's a lot of exciting things happening 
and I intend to keep writing, Keep on 
assembling. . . ■ 



The editors of 80 Microcomputing re- 
gretfully say goodbye to Bill Barden as 
author of "The Assembly Line." The As- 
sembly Line will be kept rolling in a new 
column that will begin next month, to be 
written by Roger Fuller (Supermap 
author). To keep our advanced Assembly 
programmers happy, we are planning a 
new column, to begin in January, which 
will be written by a variety of programmers 

And we don't plan to let Bill go without a 
struggle. We have him on line for a feature 
article on Color Graphics, which will run in 
our March Color Graphics issue. 
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By Sparky StarksTrom Adventure Int. 
As mercenary and galactic police officer, you 
must maintain the condition and control of all 
parts of your spacecraft. You sit at the con- 
trols while peering out of the digital space- 
view port. Suddenly something appears on 
your screen: is it a Starpirate or a friendly 
merchant ship? You can't tell yet, and at this 
speed you may have only a fraction of a 
second to make an attack/no attack decision. 

Model I Sill, 16K tape. . . $2a. 95 
Model I disk version $29.95 

MISSILE ATTACK 

By Philip Oliver from Adventure Int. 
You must use your twin silos of ABMs to fend 
off barrage after barrage of enemy missiles 
that rain down toward your cities. As your 
skill increases so does the difficulty and 
speed of this machine language arcade game. 
Watch the skies and may your aim be true! 
MISSILE ATTACK has sound and fast-moving 
graphics galore. 

16K tape.. .$14.95 32K disk.. .$20.95 





LUNAR - ' i 

By Wall 6 Moncrief from Adventure Int. 
You get a vast lunar landscape, graphically 
depicted in both long range and close up, 
with many choices for landing sites. Choose a 
more difficult site and get more points -- if 
you can land successfully. You have complete 
control of your LEM via main engines and 
small side thrusters, and a successful landing 
is heralded with a flag raising ceremony. 
Great graphics and sound add to the realtime 
challenge and fun . 

16K tape... $14. 95 
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ttf" SCARFMAN 



From Cornsoft Croup 

Action filled arcade game that pits you against 
the monsters. Race your Scarfman around a 
maze, gobbling up scoring dots. You are pur 
sued by five monsters- if you eat a "•*" they'll 
lower their eyes and you can eat them, other- 
wise they'll eat you! 

With exciting graphics and sound, SCARF- 
MAN may be played using the keyboard or 
Alpha Product's Joystick. WARNING. MAY BE 
HABIT FORMING! 
Tape. ..$15. 95 
Disk (specify mod. I or I II) ... $19.95 




VOICE 
Sound Effects 



By Hogue £ konyu from Big Five 

One of the top names in TRS 80 arcade games 

adds a new dimension: voice sound effects' 

It's you against the robots in this fast 

-moving shoot-em up. Electrified Mazes and 

the "Flagship" complicate things as you stalk 

the evil androids. 

The innovations built into ROBOT ATTACK 

take your TRS-80 near the limits of its capa 

bilities. You MUST see and hear it! 

16K tape $15.95 32K disk $19.95 



INVADERS <*** SPACE COSMIC FIGHTER 



By Carl Miller from Acorn 

A fast machine language approach to this 
classic (and addictive) space game. The 
aliens drop bombs, move around, and try to 
overrun your bases. 

You choose the speed, enemy bomb frequency 
and accuracy, and how many shots and bases 
you have. Unlike other games of this type, 
you can move your base and simultaneously 
fire at the Invaders. Fun for all ages and skill 
levels, it has full sound effects for even more 
excitement . 

16K protected tape $14.95 

16K protected disk $20.95 

SUPER NOVA 

By Hogue £ Konyu from Big Five 
Asteroids surround your ship. You must shoot 
the asteroids, as well as any of the five types 
of alien spaceships. Use your thrusters for 
full movement and rotation of your ship if 
you are overwhelmed, you can even jump to 
hyperspace' Written in fast machine code with 
superb graphics, this game is GREAT! 
16K tape $15.95 32K disk $19. 95 



By Hogue t Konyu from Big Five 

Terrific sound, graphics and unique chal 

lenges mark this space game a winner 1 While 

fighting off the alien convoys - each more 

skillful than the last you must keep track 

of your rocket fuel or risk explosion. Finally 

your space station appears. Can you dock 

immediately, or is the station overrun by 

aliens? Find out by ordering Cosmic Fighter 

today. 

16K tape. ..$15.95 32K disk. . . S19. 95 




METEOR 
MISSION 

2 




By Hogue & Konyu from Big Five 
Six astronauts are stranded on a desolate 
planet. You must undock from your command 
module and maneuver your rescue shuttle 
through the asteroid field to save them. You 
can only save one at a time, and each landing 
burns away parts of your landing sites. 
Order this realtime action game now or live 
with the astronauts' pitiful screams forever. 
16K tape.. .$15.95 32K disk. . . $19. 95 



By Steven Kearns from Acorn 
Gigantic antimatter rocks appear on the Tac- 
tical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks. To score in this fast ar- 
cade game with sound, you must destroy the 
rocks. To stay in the game at all, you must 
avoid them! 

To add to your woes, time bombs appear peri 
odically. If their timers reach zero BOOM! 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace 
anything to avoid the onslaught. One or two 
players can compete, with nine levels of diffi- 
culty. 

16K protected tape... $19. 95 
16K protected disk.. .$19.95 




ATTACK 
FORCE I 



By Hogue C Konyu from Big Five 
Unlike the usual "shoot em ups," Attack 
Force lets you control both speed and direct 
ion as you maneuver all over the screen in 
search of the alien Ramships and Flagships. 
Enemy ships chase you everywhere, and the 
Flagships' lasers can fire in any direction' 
The Ramships can even impersonate your 
spacecraft, so don't look away even for an in- 
stant. Machine language action with sound. 

16K tape. ..$15. 95 32K disk . . . $19. 95 



For information 
Call (202) 363-9797 



TO ORDER CALL TOLL FREE 800 424-2738 



THE PROGRAM STORE 

The Program Store carries more than 1000 programs for TRS 80, Apple, and Atari 
If the program you want is not listed here, call us: we probably have it in stock! 



MORE-» 
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Now you can easily print 
BOLDFACE, iindfcr 1 lned text.. 
■lashed B's, special characters, 
aupersci it ta '• eubsci I 

(A c x lex? (a. -a l ) and I 

By Richard Wilkes from Acorn 
Using your SUPERSCRIPT modified SCRIPSIT 
Word Processor and a compatible printer, you 
can now underline, boldface, insert text 
during printout, slash zeros, set type pitch, 
subscript and, of course, superscript' You 
can even read your directory and kill files 
without ever leaving SCRIPSIT. 

Includes drivers for popular printers and 
easy instructions. For TRS-80 model I (re- 
quires 32K, 1 drive, SCRIPSIT /LC) or model 
III (requires 32K . 2 drives for initial trans 
fer, model I version of SCRIPSIT /LC). 

$49.95 







ACCEL 2 

BASIC COMPILER 

From Allen Celder 

Turns your BASIC program into a machine 
language* BASIC hybrid that may run many 
times faster. For those who plan to sell their 
programs, compiling by ACCEL 2 offers the 
additional advantage of protection: the source 
code and REMarks are not included in the 
compiled version. 

While all compilers may require some modifica- 
tion of the BASIC program (usually because 
of improper structuring), we have found that 
ACCEL 2 requires the least, and even works 
with program "tricks" like string packing, 
etc. 

ACCEL 2 works with models I or III, requires 
a minimum amount of memory, supports cither 
disk or tape (with TSAVE, optional at S9.95), 
and does not require extensive rewriting of 
your BASIC programs. Unlike other com 
pilers, no royalty is required when selling 
ACCEL compiled programs. 

Supplied on tape for 16-48K ... $88.95 



PACKER 



From Soft-Tools 

Computer may not make misteaks, but people 
do. That's why you need PROOFREADER if 
you use your computer for word processing. 
In about five minutes, this program can 
check any word processing disk file against 
its dictionary of more than 38,000 words. Any 
words that don't agree with the dictionary are 
listed on the screen and, optionally, to a disk 
file for later retrieval. 

For words words you use that aren't in 
PROOFREADER'S vocabulary, an easy to use 
auxiliary file is provided. Five minutes with 
PROOFREADER can save hours of time proof 
reading. 

Model I, 32K disk (1-drive lain. )...$51. 00 
Model III, 32K disk (1-drive min.) . .564.00 

QRAMMATlK 

BE »ONO SPELLING CHECK INO 



From Aspen Software 

Actually checks your word processing docu 
ment for common grammatical errors. CRAM 
MATIK comes with its own error dictionaries 
which can be expanded to encompass addi- 
tional grammar use of your choice. It will pick 
up errors of usage, wordiness, redundancy, 
punctuation, and much more including use 
of "sexist" terms! It even offers suggestions 
for chanqe. A versatile utility, this program 
belongs right alongside PROOFREADER in 
your word processing toolkit . 

32K minimum ( 48K optimum) 

Model I: $49.95 Model III: S59. 95 

Visit our other stores: Seven Corners 



From Cottage Software 

Packer's five commands allow tremendous con 
trol over the readability and efficiency of 
your BASIC programs. Specify "PACK" and 
the program will compress text into multiple 
statement lines. This really speeds up stor 
age, load, and execution time. PACKER is al 
so useful in compressing code to be compiled 
by ACCEL 2 (above). 

Also included are four other handy utilities. 
"MOVE" lets you relocate program lines, "RE 
NUMB" allows program renumbering, 

"SHORT" deletes unnecessary words and 
REMarks, and "UNPACK" separates multi- 
statement lines to ease editing. 
16K, 32K t 48K tape... $29. 95 



BOSS 



By V. Hester from Soft Sector 
This utility Is the perfect tool for creating 
and debugging BASIC programs. It allows 
single stepping through the Basic program, 
setting up to five breakpoints within the pro 
gram and tracing of program logic using only 
a small portion of the display screen. With 
BOSS, you can review selected variables 
during program execution and return to the 
program with the display restored. Allows 
storinq programs in high memory for later re- 
trieval. For Level II. TRSDOS. NEWDOS-. 
NEWDOS'80, VTOS. 
Model I or III (specify) tape: $18.95 
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Disk Drive Timer 



i B i t h ; c I I S P I ft 1 ' « ' « S <• I E 

HIV! M).: . W RANGE: 10 

EACH NMt> RE'RESEStS J. I J *M. 
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from Disco Tech — — — — — ■^^^— ^— 
Analyze and adjust your disk drive motor 
speed with a realtime graphic display. Manual 
details use for virtually all popular drive 
units. Avoid the many errors that improper 
drive timing can cause. All you need is DDT, 
two screwdrivers and five minutes. 

Model I disk... SI 9. 95 

Center- Foils Church, VA & W. BellPla 
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From Lobo 

"...LDOS is by far the best disk operating 
system for the Model I TRS 80." 

Paul Wienner, 

June 80-MICROCOMPUTINC 

"...If you are a serious programmer, you 

should have LDOS." 

Ceorge Blank, Editorial Director 
September CREATIVE COMPUTING 

A totally new and advanced operating system 
that offers benefits to everyone from novice 
to advanced system programmers. LDOS 
comes with one of the most complete and well 
written documentation books ever, with 
easy-to-follow instructions to get started plus 
a wealth of supporting information for when 
you need it. This, plus a toll free customer 
service number means that LDOS supports 
you as no one has before! 

Completely device independent, LDOS pro 
vides for routing, linking, setting, and filter 
ing of the input /output of a number of 
peripherals. Up to eight disk drives are sup- 
ported in almost any mixture: 5", 8", 
single /double density, up to 80 tracks, even 
hard disks. 

"Job Control" can end the tedium of repetitive 
keystrokes needed to call up and manipulate 
programs. Once you tell LDOS what it needs to 
do to get you up and running, it executes the 
series thereafter with a simple command. And 
LDOS notes the date all Tiles were created or 
modified even flanging files that haven't 

been backed- up after modification. 

We've just scratched the surface of LDOS' 
capabilities, and we'll gladly send you a 
pamphlet that goes into more detail. But 
better yet, order LDOS now and begin 
en|oying the power that this system will bring 
to your computer use. 

Disk with manual. $169.95 
Specify model I or III 

BASIC 
Programming Asst. ^ 156 



From Instant Software 

What an aide to the writing and debugging of 
BASIC programs! With BPA you can list out 
your program variables, with a notation of 
variable type, whether each is an array or 
not, and a notation of line numbers where the 
variable occurs. What's more, BPA even tells 
you the line numbers where any variable 
changes value! You can also produce a cross 
reference to all COTOs, COSUBs. and 
IF.. THEN statements for easy visualization of 
program flow. Want to find that last INPUT 
statement? BPA will give all line numbers 
where selected BASIC keywords reside. Save 
time and frustration by using BPA when you 
program. 

Tape for I6K, 32K t 48K...S14.95 

iq • 6600 Security Blvd. ■ Baltimore, MD 



HE « TO ORDER CALL TOLL FREE 800 424-2738 



For information 
Call (202) 363-9797 



Vl7 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. Ell Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
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Get the most from your micro with 
software and accessories from one of 
the worlds largest selections. 



CALL TOLL FREE 



The 

tST 800424-2738 



,$£*> d ASYLUM 

From Med Systems 

You are sitting alone at 2 AM. Your eyes are 
bloodshot as you peer into your computer's 
screen and cry, "I must be CRAZY!" If this 
has never happened to you, you've never 
tried ASYLUM. It's Med Systems most ambi- 
tious 3-D graphics adventure yet! 

ASYLUM places you on a cot in a small 
(padded?) room. Periodically the janitor lobs a 
hand-grenade through the window. What you 
do next could mean escape — or disaster. 

16K tape.. .$14. 95 




DEATH 
MAZE 




From Med Systems 

A new breed of adventuring! Venture 
through a graphically represented 3-D maze, 
with halls that could dead end -- or recede to 
Infinity. Step through the doors or drop into 
the pits. Will you encounter monsters and 
mayhem, or will you be treated to useful ob- 
jects and information? Will you ever get out 
alive? 
16K tape... $14. 95 32K disk. . .$19.95 



TEMPLE OF APSHAI 

The first of the DunjonQuest series, and still 
one of the most popular. In exploring over 
200 rooms in the magical labyrinth, you will 
encounter more than 30 kinds of fearsome 
monsters guarding over 70 treasures. Some of 
the treasures will help you in your quest, but 
you must still watch out for the many mons- 
ters and traps that spring out from the walls 
and shadows. 
16K tape or 32K disk. . .$39.95 

LOWER REACHES OF APSHAI: Four more 
levels. Requires above program. $19.95 

HELLFIRE WARRIOR 

Sequel to APSHAI, this thriller gives you four 

levels to explore with sixty rooms each. New 

monsters, new traps, new challenge! 

16K tape or 32K disk... $39. 95 

KEYS OF ACHEREON: Four more levels. 
Requires above program. $19.95 




From Med Systems 

A nightmare of an adventure in graphically 
depicted three dimensions. Corridors stretch 
toward infinity right on your TRS-80 screen 
as you search this maze for treasures. If you 
get the feeling you're not alone, it's because 
you're not! 

You use the arrow keys, plus two-word com- 
mands to move, manipulate objects and avoid 
the many pitfalls (pun intended) that await 
you in Labyrinth. 

16K Tape. ..$14. 95 

MICROWORLD 

From Med Systems 

One of the strangest adventures yet, with 

wierd-sounding rooms and baffling tools n' 

treasures -- it all takes place inside your 

TRS-80! You're in the keyboard, exploring 

the inner structure. Co from chip to chip as if 

you were a piece of data trying to get from 

one end of the bus to the other. Fascinating 

and instructive. 

16K tape. ..$19.95 16K disk. . .$24.95 



By Godwin S Knowlton from Acorn 
Not for everyone. One reviewer said, 
"...don't bother with Everest Explorer." 
Another commented, "It holds your attention 
for quite a while and I have yet to get bored 
with it." 

Most people here love it. This is a game of log- 
istics in which you try to lead a team up Mount 
Everest. If your skill, the weather, and luck 
hold out, you'll make it. But remember, you'll 
also have to get back down safely. 
16K protected tape... $19. 95 
32K protected disk (with "save game" fea- 
ture) .. .$19.95 

LOST COLONY 



By David Feitelberg from Acorn 
The scene is the world's first attempt at col- 
onizing a planet in deep space. An election 
was held for an economic manager to straigh- 
ten things out, and guess who won! 

Ff^RRlDDFLNl Pj A NF I You musl *'"w •"••«• things better or be 

■ ^»»»^a»*ll^Wfci ^ » fca^l^fcl ■ vote<j out of off|ce , n sname- A remarkable 



By Wm. Demas from Fantastic Software 

The first TALKING adventure! With skill, 

luck, and tenacity — and a little help from 

your chatty TRS-80 -- you may survive Part 

One of this multipart adventure! You don't 

need a voice synthesizer, this program talks 

to you via the cassette port. And it's a good 

thing it does, 'cause otherwise you'd get 

mighty lonesome on desolate FORBIDDEN 

PLANET. 

48K disk... $39. 95 



simulation, LOST COLONY arms you with maps 
and charts as tools for resource management. 
You assign human and robotic labor forces, 
explore new land, and allocate production 
quotas. Input to the computer is free form: 
you can use terse commands or full senten- 
ces. A challenging game, LOST COLONY 
might give you insight into real life manage- 
ment as well. 

16K protected tape... $19. 95 
32K protected disk... $19. 95 

Pncts SuOieci to Change 



^yHJO^pSOrT 5 '^ 

^VENTURE 

Prepare yourself for the adventure of your 
life as this classic fantasy /logic game takes 
you into the world of the Colossal Cave. Your 
computer is your guide as you search for 
treasures, solve puzzles, explore, and avoid 
the dangers that lurk within. 

Complete version of the original Adventure, 
originally written for the DEC POP- 10 in FOR- 
TRAN. The program has been translated to 
bring you all the enjoyment in your home com- 
puter. 

Model I, 32K disk...$2>*4y~ , 5^«e<l jQ 

SPECIAL SAVE 410 $19.95 thru 12 '31'^^ 
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By Infocom from Personal Software 
In Zork, the Great Underground Empire, un- 
earthly creatures guard 20 treasures. Bring 
all the treasures back to the trophy case and 
you can leave alive! You must pick your way 
through intricate mazes, collecting objects 
that may help or hinder you in your quest. 
You may use standard 2-word responses or 
speed things up by using multipart state- 
ments. But keep your wits about you, be- 
cause in Zork, they take no prisoners! 

Model I, 32K disk. . .$39.95 
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From Interpro 

An illustrated adventure for the TRS-80. It's 
said that "a picture is worth a thousand 
words," and in this program you'll see why. 
While still in the classic text-type mold, the 
graphics give you a new perspective and aid 
your sense of direction. This saga of the sea 
contains a 150 word vocabulary and depicts 32 
graphic locations. 

Model I 48K disk. . .$29.95 

16K tape (Text only. No graphics) .. $14.95 
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vjl VOYAGE TO 



VALKYRE 



By Leo Christopherson from AOS 
Combine the animation and music techniques 
pioneered by Christopherson with the chal- 
lenge of his first fast-moving arcade game 
and you have VOYACE TO VALKYRE! 

You speed through a magical mate guarded by 
ferocious birds that swoop down to attack if 
you don't get them first. To list all the play 
and options of this exciting game would take 
the 16 pages of instruction included. 
16K tape. ..$34.95 
16K disk... $39. 95 

DUEL «N» DROIDS 

By Leo Christopherson from Acorn 
Your 'droid has already learned NIM, so now 
it's time to teach it how to wield a laser sword! 
Starting out as a lowly clown, you teach it 
how to use a laser sword by controlling its 
movements -- advance, attack, even retreat if 
necessary. After training it to be a "Grand 
Master," you enter the tournament against 
the program's skilled 'droid. Revel in the fan- 
fares of the victorious --or hear the funeral 
dirges of the defeated! Entertainment for all 
ages. 

Protected tape. . .$14,95 
Protected disk. . .$20.95 

Our Most Popular 

Unbelievable Realtime 3-D Graphics! 



FLIGHT SIMULATION 

From Sub-Logic 

The wait is over! If 3-D graphics seem impos- 
sible on the low resolution TRS-80, you 
haven't seen this brilliant program. During 
FLICHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot 's-eye view. But be sure to strap your- 
self in -- you're liable to get dizzy! 

Once you put in some air time learning to fly 
your TRS-80, head for enemy territory and 
try to bomb the fuel depot while fighting off 
five enemy warplanes. Good Luck! 
Model I, 16K tape... $25. 00 




By Tally Ho from Adventure Int. 
This ingenious program provides a computer 
projection of the winners and point-spreads 
for the 1981 professional football season. 
Each week you enter the current scores into 
this self-modifying program, and it updates 
the strengths and weaknesses of each team. 
Forecasts are designed to become more accur- 
ate as more data is accumulated. 

32K disk. ..$24. 95 
Visit our other stores: Sevan Corners 




NEW 



By Chris Crawford from Avalon Hill 
In this combination computer and board 
game, you control up to eight Cerman tanks 
or anti-tank guns against the computer's 
Russian forces. It all takes place on the east- 
ern front of WWII and rages through a land- 
scape of forests, lakes, roads, and rough 
terrain. To beat the computer you must 
develop good armored tactics and judgement, 
but have a willingness to take risks. 

16K tape including colorful wargame 

board... $23. 95 

By John Allen from Acorn 

You have to be fast to keep up with the action 
as you try to outscore your opponent in five 
minutes of one-on-one basketball against a 
friend or your TRS-80 model I or 1 1 1 . 

16K protected tape... $14. 95 
16K protected disk... $20. 95 

Game of the Year 




DECATHLON 

By Timothy Smith from Microsoft 
The graphics capabilities you were promised 
when you bought your computer are finally 
utilized in this marvelous series of programs. 
Just like the real Decathlon, you compete in 
10 demanding games that encompass different 
forms of running, jumping and throwing. 
Play alone or with as many as eight competi- 
tors. 

You MUST see this system in action. Other- 
wise, you simply won't believe the combin- 
ation of outstanding graphics, fast-paced 
action, nail-biting intensity, and even a 
touch of comedy you'll experience with 
Olympic Decathlon! 
Model I, 16K tape. .$24.95 32K disk. . $24. 95 




By John Allen from Acorn 

More features, thrills, and sound than even 
John Allen's famous PINBALL. Once you load 
ASTROBALL into your TRS-80, the arrow 
keys become flipper buttons, the screen 
becomes the play board, and you become the 
"Pinball Wizard!" 

A flying saucer, spaceships, meteors, and 
black holes add to the fun as your ball realist- 
ically zings around the board. ASTROBALL 
will have all your family and friends lining up 
for the pinball action and challenge. Five 
skill levels. 

16K protected tape. .. $19. 95 
16K protected disk. .. $19.95 



PINBALL 



By John Allen from Acorn 

Get your flipper fingers ready for action in 

this real-time, machine language game. 

Lots of sound and flashing graphics make this 
fast action game so much like the real thing 
that you'll have to remind yourself not to 
shake your TRS-80. Choose from five playing 
speeds to match your skill. Can you beat your 
friends' scores? Will you avoid the infamous 
"Bermuda Square?" Cet PINBALL today and 
find out. 

16K protected tape.. .$14.95 
16K protected disk... $20. 95 

NEW 




Crush,CrumHe 
and Chomp! 

From Epyx 

It's a monster movie, and you are the mons- 
ter! You can be The Clob, Kraken, Mantra, 
Mechismo, Arachnis, or Coshilla -- or even 
design your own "custom" monster (disk ver- 
sion only). This hilarious action game is 
loaded with graphics and sound as you prac- 
tice your villany. With 6 monsters, 4 cities, 
and 5 game objectives, you get a choice of 
more than 100 possible scenarios. A monster's 
life is not all carnivorous crunching, though: 
The combined resources of the police, 
science, and armed forces are bent on your 
destruction. 
16K tape or 32K disk... $29. 95 
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News From 

KITCHEN TABLE SOFTWARE, INC. 



by David Busch 




The TLS-8E microcomputer— flagship 
of Kitchen Table Inc.— has reached 
full maturity with the recent announce- 
ment by that fictitious firm that a new 
comprehensive line of retrofixes, en- 
hancements and optional repairs for the 
model's design defects will be offered 
later this year. 

The new upgrades are welcomed by all 
serious S-80 buffs. Astute observers will 
remember that as long as Radio Shack 
was able to keep creating cassette load- 
ing modifications, buffered expansion in- 
terface cables and mods, lowercase fixes, 
and other corrections, the TRS-80 Model I 
remained a popular, viable product. It was 
only after the computer was semi-perfect- 
ed it became necessary to introduce the 
Model III and a corresponding new round 
of debugging. 

So I viewed with great pleasure the 
213-page addenda, errata and corrections 
manual arriving at my home late last 
week. It meant the United States' only 
Z79-A-based microcomputer was gaining 
new ground. I quickly sifted through the 
mass of data to glean the items of most in- 
terest to 80 Microcomputing readers and 
put through a collect phone call to KTI to 
ask for clarification on a few points. Here 
are the results of my research. 

A Trip to Sri Lanka 

The most important offshoot of the 
modification campaign is the institution of 
a brand-new network of authorized repair 



service centers for the TLS-8E. My Tandy- 
loving friends crowed about how simple it 
is to take their computers to their local 
Radio Shack for repair. After little more 
than an hour disconnecting cables and 
unplugging AC cords, they can cart their 
portable, 97-pound microcomputers for a 
session with diagnostics specialists. My 
TLS-8E, my friends point out, has to be 
shipped to the KTI factory in Sri Lanka just 
to replace a fuse in the power supply. 

No more. Qualified, independent ser- 
vice shops throughout the nation have 
been recruited by KTI. Each repair center 
is supplied with a free TLS-8E technical 
manual, exploded drawings showing how 
the computer looks after it has exploded, 
and a hot-line number the service techni- 
cian can call at any time — night or 
day— to find out the correct time and 
temperature. 

An intensive training course, conduct- 
ed by telephone, ensures each authorized 
repair center has at least one person who 
can recognize the TLS-8E on sight as a 
computer. 

Having nearby service can be extremely 
comforting. In my town, repair is offered 
by Vito's TV Sales & Service. Last week I 
had to take my TLS-8E to replace a defec- 
tive fuse. I went back the next day for an 
estimate, and they told me they'd have to 
send away for parts. Now, that's what I 
call knowledgeable, fast service. 

Your local repair center can install any 
of the following mods for you or if you can 
tell the business end of a soldering iron 
from the handle, you can do the work 
yourself. 

Many of you have been highly vocal in 
your complaints about keyboards in- 
stalled in the early TLS-8E units. For some 
unknown reason, a significant minority 
prefer the QWERTY key layout found on 
some other computers and many office 
typewriters. 

To meet these needs, KTI has introduc- 
ed an expansion keyboard for the TLS-8E. 
It can be described in one word: huge. In 
addition to a full complement of keys silk- 
screened with the usual alphanumeric 
characters, it has a bunch of other keys 
with their tops obscured with masking 



tape. I found strange markings under the 
tape: QPOUNDER/CHEESE, FF, LGCOKE, 
FILET and BMAC. I couldn't figure what 
these special function keys or the cash 
drawer located under the keyboard could 
be used for. Then it hit me: KTI had clever- 
ly bought a bunch of surplus keyboards 
from some supplier and recycled them for 
lucky TLS-8E users. 

Name That Tune in Five Bytes 

Those of you who elected to stay with 
the stock TLS-8E keyboard haven't been 
forgotten. Kitchen Table has introduced a 
pair of modifications of interest to you. 
The first is a keyboard debounce kit. It is a 
jar of rubber cement and a foam rubber 
pad which can be glued to the bottom of 
the keyboard. 

More practical is a sound-feedback kit. 
When installed, the mod produces a tone 
when a key is pressed. This lets the user 
know an entry has been made. A clever 
touch has been added by KTI. Each key 
depressed produces a different sound, so 
users with perfect pitch can determine 
which key was hit without looking at the 
keylabel. 

This innovation introduces some inter- 
esting possibilities. Typing in certain key- 
words produces recognizable bits of 
song. For example, entering "print using" 
generates the first two bars of Johnny 
Carson's theme song. "On error Goto 
1200" produces the opening measures of 
Beethoven's Fifth Symphony. My family 
and I spent an entire evening playing a 
game we invented: "Name That Tune in 
Five Bytes." 

I discovered, by accident, how the in- 
verse procedure works. By referencing 
sheet music and entering the tune at the 
keyboard, some interesting program lines 
result. Barry Manilow's "Mandy," yields a 
pretty nifty data base management pro- 
gram. I invested two days inputting Han- 
del's "Messiah," and found it produced a 
Basic version of "Mystery Fun House." 
Quite a revelation! 

17- Jewel, Swiss-Made 

Another hardware defect in the TLS-8E 
has been the lack of a real-time clock. The 
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system has always had its own internal 
clock— even if access was denied to the 
user. Because the TLS-8E has this internal 
clock, it would seem a simple matter to 
make it available to the user. However, KTI 
has offered a hardware solution: an add- 
on clock. The unit is described as the only 
"17-jewel, Swiss-made realtime clock 
available for a microcomputer." I plan on 
adding this feature to my TLS-8E as soon 
as it becomes available. 

A second generation of TLS-8E ROMs 
has been introduced by KTI. They reduce 
available memory by 255 bytes and add no 
new features. The firm has also unveiled a 
new, one-chip ROM nearly identical to the 
previous version in function, but with com- 
pletely new jump vectors to the ROM rou- 
tines. Our usually reliable KTI source ex- 
plained this change was made to confuse 
programmers who insist on using undocu- 
mented addresses in their software. 

The latest ROMs, with the routines 
shuffled in an interesting manner, were in- 
troduced for two reasons, KTI reports. The 
company has a new SUPERDUMPMAP II 
it hopes to sell to all SUPERDUMPMAP I 



owners. In addition, Kitchen Table has 
found the previous ROMs had an alarm- 
ingly short shelf-life and needed to be re- 
programmed at intervals. It seems the Sri 
Lankan factory thought ROM meant Re- 
member Only Momentarily. 

I won't go into the other retrof ixes and 
modifications. They are obscure changes 
of interest to only a few TLS-8E users. 
One, for example, provides a means of 
isolating the CRT chassis from the 
keyboard. Even a non-hardware type like 
me can see the CRT is already isolated 
from the keyboard. In fact, nothing con- 
nects the two at all, except for few feet of 
wire and ribbon cable. Why bother with 
this one? 

Red-Blooded American Modifications 

My recent talks with KTI personnel in- 
dicate the company is firmly committed to 
improving both its hardware and software 
expertise in the future. The firm is not rely- 
ing totally on the design skills of its Sri 
Lankan factory team. Several of the new 
modifications were developed by red- 
blooded Americans. And the KTI double- 



density board (The DOUBLOON) was de- 
signed and built by a KTI shipping clerk 
who gained considerable electronics 
knowledge by building three HEATH kits 
(including his own color television that 
can predict the weather.) 

With dedication like that, I have nothing 
but the greatest confidence in the future 
of an innovative firm like Kitchen Table 
Inc.! 





Will you SCARF your way to 
victory? 

Can you avoid the speedy MONSTERS that 
guard the maze? 

Answers to these questions await the brave, who 
dare to enter the maze where the monsters live. 
SCARFM AN is a new arcade game for the TRS-80' 
by the author of MISSILE ATTACK. Written in 
machine language, SCARFMAN features quality 
GRAPHICS, SOUND, REALTIME MONSTERS and 
hours of ENJOYMENT. Nine progressive skill 
levels make the game more difficult as you get 
better. SCARFMAN is compatible with Alpha 
Product's joystick. 
Do you have what it takes to reach skill level 9? 

ORDER NOW! 



The Cornsoft Group -^ 

6008 N. Keystone Ave., Indianapolis, IN 46220 (317) 257-3227 
Model I & III tape — 16.95 Model I disk — 20.95 Model III disk — 20.95 

Prices include shipping and handling 
Checks, Money Orders, VISA and MASTER CARD accepted. 

( THS-B0 is a Tandy Corpoiahon trademark) 
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The 
PEN ULTIMA TE 

Space War Game 

is HERE! 




TRS-80* 
Model 1 & 3 

16K and up — Tape 
0100102 $24.95 

32K and up — Disk 
0120102 $29.95 




Co [A<mdventure 

\ f Mf^pr INTERNATIONAL 



A DIVISION OF SCOTT ADAMS. INC. 



BOX 3435 • LONGWOOD, FL 32750 • (305) 662-6917 

ORDER FROM YOUR FAVORITE DEALER 
or CALL TOLL FREE (800) 327-7172 



SHIPPING A HANDLING CHARGES AHt EXTRA 
PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



PHOTO COPYRIGHT - DON DIXON 
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SO ACCOUNTANT 



by Michael Tannenbaum C.P.A. 



If the microcomputer suffered from 
an image problem, it doesn't now. 
The Great Computer Company IBM has 
joined Tandy, Commodore and Apple and 
spawned a microcomputer. Suddenly, 
small computers are now legitimate. Pres- 
tigious publications like the New York 
Times and the Wall Street Journal are run- 
ning feature articles on the coming revo- 
lution in personal data processing. For 
those of us who have been participating in 
the data-processing revolution, this is 
heady stuff. After years of defending our 
"clever little toys," it is difficult to re- 
strain a triumphant grin and cheery "I told 
you so." 

Unfortunately, these new small com- 
puters complicate the market. Instead of a 
small selection of microcomputers avail- 
able from a limited number of vendors, 
there will be an abundance of devices 
available from any number of major re- 
tailers. For people selecting a computer, 
this market will be a strange and confus- 
ing place. 

The Competition 

An early question will be: Compare Ra- 
dio Shack equipment to IBM. Based on ini- 
tial information, the IBM two-disk system 
will cost more than a Model III with about 
the same capacity. The cheapest IBM unit 
will be three times the price of a Color 
Computer with the same capacity. No per- 
sonal computer configuration compara- 
ble to the Model II is available from IBM. 

Can the IBM Personal Computer meet 
the requirements for successful business 
installation? The Great Computer Compa- 
ny has the resources and skill to market 
its product successfully. A problem will be 
selling the unit through retailers, not di- 
rectly to the user. The firm will lack the 
short communication channel between 
vendor and consumer proven important in 
correcting problems in Tandy hardware 
and software. 

It will take time for IBM and other new 
vendors to overtake Tandy's lead in appli- 
cations software. The some 300,000 com- 
puters sold by Tandy have created an 
enormous market. There is also a large 
amount of user-designed software avail- 
able. It is safe to say there is a program for 
almost any need for Tandy equipment. 



Aware of this, IBM and other vendors 
have announced their hardware is com- 
patible with the CP/M operating system. 
Almost all CP/M software will be usable 
on these new computers. This will no 
doubt make CP/M the defacto standard 
for microcomputers and encourage an ex- 
plosion of new CP/M applications. 

That explosion should not affect Tandy 
models. Those products are CP/M com- 
patible, although the Models I and III are 
limited due to their read-only lower memo- 
ries. That restricts available memory and 
could disqualify those models from some 
CP/M applications. The Model II has none 
of those limitations and functions effec- 
tively in CP/M. 

It is a data processing axiom every new 
piece of computer equipment requires a 
settling down period until the kinks are 
worked out. Veteran Model I users recall 
the early days when TRSDOS was flaky 
and the central processing unit often lost 
contact with the expansion interface. 
Every session was a new and uncertain 
adventure. Purchasers of new IBM equip- 
ment will no doubt go through a similar ex- 
perience. They will be unable to go directly 
to IBM for assistance; they must return to 
the primary vendor. If he or she cannot re- 
pair the computer, the owner may have to 
send the machine to an authorized repair 
station at his or her expense. 

Although the record of Tandy's repair 
centers has not always been good, at 
least they are in place. There have been 
enough problems and upgrades in Tan- 
dy's 300,000 computers to build a knowl- 
edgeable national repair staff. Tandy's 
philosophy calling for the repair cen- 
ters to support the retail operation bene- 
fits the customer. A retail store manager 
is an important ally when a repair center 
can't fix the problem. 

At this point, I believe Tandy prod- 
ucts are still a good choice for anyone im- 
patient with the problems linked to new 
computers. 

New Mailing List Program 

This month's software mailbag includ- 
ed MAIL-X from Micro Architect Inc. The 
system from the Arlington, MA firm in- 
cludes a report writer generating up to 10 
report formats applied to the data base. 



Each format specifies the report's name 
and filtering criteria used to limit the rec- 
ords accepted for printing. The report writ- 
er includes four sort fields to arrange data 
in proper sequence. 

MAIL-X has a greater capacity than Ra- 
dio Shack's MLS II. The Micro Architect 
product can pack up to 3,200 records on a 
disk (10,000 on a four-drive system) and 
files can span disks. However, MAIL-X 
does not interface with Scripsit, Radio 
Shack's text editing program. 

The system from Tony Pow's firm is 
also more flexible than MLS. MAIL-X can 
be set to indicate the dates of a record's 
creation, expiration and last time refer- 
enced. Using this feature, the Micro Archi- 
tect system can act as a data-base man- 
ager for a subscription fulfillment system. 
If you select the expiration date option, 
the system will automatically enter a date 
365 days in the future when a new record 
is added. To provide an audit trail, the 
system offers the option of creating a new 
data entry log in the file maintenance 
mode. This printout is essential to pro- 
cess inquiries from subscribers. 

The system also offers more flexibility 
than MLS when defining file formats and 
record sizes. Field sizes and names can 
be altered allowing the program to be 
used for other list-processing applica- 
tions. I adopted the program to control 
equipment deliveries during installation 
of a large data-processing system. 

Micro Architect's long experience with 
Radio Shack hardware is apparent in 
MUTIL, one of eight programs in the sys- 
tem. This file utility can extend the size of 
a data base, delete bad records, append 
files and change passwords. 

I found moving from program to pro- 
gram in the system difficult. Unlike MLS II, 
this system is a series of unlinked pro- 
grams. Some menus are present, but of- 
ten a program can only be called by return- 
ing to TRSDOS and executing a do-file. 

Each program signs on with an initiali- 
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zation menu and options list. After going 
through this sequence many times, the 
sign-on protocol becomes annoying. This 
system needs one-time initialization and a 
transfer file. If parameters need to be 
changed, the routine in the transfer file 
could be called up and changes made. All 
sign-on parameters should be satisfied by 
the transfer tile. 

I cannot comment on the system's doc- 
umentation; I received an early release of 
the system with a preliminary manual. 

I did not have time to enter a large 
enough data file to test the sort-merge 
features of the system. This routine is 
called when a file is greater than available 
memory. The largest file I tested was 
about 70 records. With a file that size, the 
sort is almost instantaneous. 

MAIL-X requires a more knowledgeable 
operator than the MLS II. However, an ex- 
perienced Model II owner should be able 
to work with the system without difficulty. 
Since the programs (with the exception of 
the sort) are in Basic, the user may cus- 
tomize them. The code is well-written and 
easy to follow— even a file layout is pro- 
vided for the programmer. ■ 



COMPUTER . AUDIO 
CASSETTES & CASSETTES 



--" 



M 



LENGTH 12PAK 24 PAK 

C-05 69c 49c 

C-10 79c 59c 

C-20 99c 79c 



LENGTH 12 PAK 24 PAK 

C-30 1.19c .99c 

C-60 1.49c 1.29c 

C-90 1.69c 1.49C 



100% ERROR FREE* FULLY GUARANTEED* SUPERIOR 5-SCREW CONSTRUCTION I 
HIGH FREQUENCY RESPONSE • VERY LOW NOISE* WIDE DYNAMIC RANGE" 
USED BY SOFTWARE FIRMS, HOBBYISTS AND RECORDING STUDIOS NATIONWIDE l 
BOXES SOLD ONLY WITH CASSETTES 19c EA«S2.00 PER PAK SHIPPING" 



C.O.D. HOTLINE 1 206-675 6143 



MICRO-80 " INC. . 

E-2665 BUSBY ROAD • OAK HARBOR, WA 98277 



-ATTENTION ALL TRS-80 OWNERS- 

No matter how your Model I, II, or III is used, whether it be business 
or pleasure, this product can benefit you. 

The FATIGUE FIGHTERtm reduces the operator fatigue 
(irritated, watery eyes and headaches) caused by the harsh white 
video display thereby making computer use more efficient and/or 
enjoyable. The graph at the right will help explain how it works. 
Superimposed on the standard eye sensitivity curve is the bandpass 
curve of the FATIGUE FIGHTERtm as recorded by a 
spectrophotometer A marker is also on the graph at the ideal 
psychological tolerance color. As you can see, the green color of the 
FATIGUE FIGHTERtm takes advantage of both eye sensitivity and 
psychological tolerance to make the display less irritating. 

The FATIGUE FIGHTERtm is made of tough ft inch thick acrylic 
sheet which adds absolutely no distortion or fuzziness to the display 
and is industry proven to be an excellent material for optical filtering 
(e.g. lenses for laser safety goggles). It installs easily on all three 
TRS 80® models with a pressure sensitive adhesive which will not let 
the filter fall off yet allows easy removal if necessary. Finally, the black 
and silver border design makes it a perfect match for the computer 
styling. 

If you want a FATIGUE FIGHTERtm of your own but prefer not 
to order by mail, check with your local computer stores to see if they 
have them in stock. Otherwise follow the ordering instructions below. 

TO ORDER* S' nd * ,m,s Agrees Typed or Clesrly Printed *lth Check or Money 
* Order |U S FUNOSl far $12 95 [ten. including Shipping Canadian 
Orders add $1 00 Each All Other Foreign Orders Add S?.00 Each lor 
Shipping NO CREDIT CARD ORDERS COO s ill S. ORDERS ONLTI are 
$2 50 Additional Per Order & are Accepted by Mail or by Calling 
904 378 2494 9 5 M F Florida Residents Add 4', Sales Tit. 



TRS- 10 IB A TRADEMARK Of TANDY 



SOUTHERN INNOVATIVE DESIGN 
1520 NORTHEAST 12TH STREET 
GAINESVILLE, FLORIOA 32601 *Sn 



DISTRIBUTED IN CANADA BY: MICH0-C0MP ENTERPRISES. 565 fryer Or . Pickering Ontario L 1 W 3A8 
Dealer inquiries invited. 




sSee Lisi ol Advertisers on page 402 
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Xerox, IBM storm market, 
pull wraps off their micros 



Xerox and IBM have challenged the 
hold Tandy/Radio Shack, Apple Com- 
puter Inc. and Commodore International 
Ltd. have on the small business micro- 
computer market. A 16-bit microcomputer 
selling for $1565 and a data and word pro- 
cessing system with multiple work station 
options have been introduced by IBM, 
while Xerox' 820 desktop model has word 
processing, printer and software options. 
Both companies are competing for the 
small businessman, who is, in many 
cases, a first-time computer user. 

Thus far Tandy's reaction to their new 
competition has been blase. "I don't think 
we're going to lose any business because 
of it," says Jon Shirley, vice president of 
the Fort Worth, TX, firm's computer 
division. 

Though Tandy won't release sales fig- 



ures, market analysts estimate they hold 
about 25 percent of the personal comput- 
er market, with Apple of Cupertino, CA, 
garnering about 22 percent and Nor- 
ristown, PA-based Commodore 20 per- 
cent. Shirley says about 96 percent of 
their Model II units have been sold to 
small businesses. 

What can Xerox and IBM offer the busi- 
ness user that Tandy cannot? Both com- 
panies have a respected service network 
and a sales force with many contacts in 
the business world. Their micros are also 
compatible with other company products. 
They will compete with the Model II, but 
the question is how much and how soon. 

These new machines "will not have an 
immediate effect," says market analyst 
Al Hirsh of Datapro Research Corp., Del- 
ran, NJ. Hirsh feels that the new com- 




puters will have the swiftest impact on 
Tandy's major accounts because their 
competitors have so many business 
contacts. 

Other marketing people think the new 
computers— particularly the IBM per- 
sonal computer— will affect Apple com- 
puter's sales more than Tandy's. "The 
IBM personal computer is aimed smack at 
Apple," because its price and capabilities 
are similar, says Gerald Hallaren of the 
Yankee Group, a Cambridge, MA, market 
consulting firm. Nonetheless, all three 
new computers will be marketed with the 
small businessman in mind and are bound 
to cut into Tandy's share of this boom 
market. 

Oatamaster 

At almost $10,000, the most expensive 
of the new competitors is the IBM Data- 
master, but experts don't agree on wheth- 
er the cost will affect sales. Some think 
the IBM name will be enough to sell the 
system. David Folger, a consultant with 
International Resource Development Cor- 
poration, Norwalk CT, thinks Datamaster 
will be bought by "people willing to spend 
more money than they have to." 

"IBM's cashing in on their reputation," 
agrees Stan Green of Datapro. He con- 
tends users are willing to pay $5,000 to 
$6,000 more for an IBM product based on 
the Armont, NJ, firm's reputation alone. 

Consumers will pay a base price of 
$9830 for a single IBM computer work sta- 
tion and an 80 character per second print- 
er. The computer features 128K of RAM 
and 112K of ROM. The terminal display is 
the standard 24 by 80 and features upper 
and lowercase and five character sets, in- 
cluding Nordic and Spanish. 

The system's dot-matrix printer is bi-di- 
rectional. A second printer is available at 
$3200. To achieve letter quality printouts, 
IBM uses a strike-over mode that reduces 
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speed to 40 cps. This option costs $3500. 

Single or dual disk drives are available 
and users can add another disk unit to the 
system. Each drive contains 1.1 mega- 
bytes of storage; when the 5246 disk unit 
is added, each work station will have 4.4 
megabytes of storage. Total memory with 
two work stations is 6.6 megabytes. 

What IBM considers the system's most 
attractive feature is the ease additional 
work stations, disk drives and printers can 
be added as a company's business grows. 
Up to four printers (and two disk units) can 
be used with two work stations. 

The Datamaster also comes with a 
word-processing option ranging from 
$1100-$2200. The circuit card costs $600 
and the software is $500. If the user wants 
a letter quality printer, it's $1100 more 
than the 80 cps printer. 

Smaller IBM 

IBM's smaller personal computer offers 
many of these features at a much lower 
price. The standard system includes 16K 
of memory, keyboard, cassette jack, 
speaker, and Basic language interpreter. 
IBM has made it easily adaptable to word 
processing. There are 10 keys for scrolling 
and editing; an upper and lowercase dis- 
play; and a dot-matrix printer option with 
page spacing and column skip. The printer 
runs at 80 cps and features 12 type styles. 
Easywriter, the word-processing soft- 
ware, is a comprehensive text editor 
without automatic hyphenation, repagina- 
tion or scrolling. 

A 64K system with single disk drive and 
a display costs $3005. A full business sys- 
tem, including two drives and a printer, 
costs $4500. 

Up to 256K RAM is available, with 40K 
ROM; up to two disk drives can be at- 
tached with 160K per disk. An RS-232C 
asynchronous adapter hooks the system 
to data bases and other computers. Be- 
cause the personal computer uses the 
CP/M operating system, a host of pro- 
grams are available for it, including the 
Visicalc financial package, Peachtree 
Software's accounting programs, and 
communications software allowing ac- 
cess to data bases and other computers. 

Xerox Entry 

Xerox' 820 computer also supports the 
CP/M system and has word-processing 
capabilities. Though less powerful, its fea- 
tures are strikingly similar to IBM's— a 
96-character ASCII format with a 10-key 
numeric pad; dual 92K byte single-sided 
mini-floppy Shugart disk drive; and stan- 
dard 64K RAM with 4K ROM. A dual RS- 
232C port connects printers and other 
communicators. Xerox is pushing the 



daisy-wheel Diablo 630 printer as an 820 
option; the $2995 printer is bi-directional 
with 40 cps letter quality output. 

Their $495 word-processing package 
has a long list of features. Text editing 
functions include global find and replace, 
standard insert and delete, auto return 
and a command moving copy from file to 
file. Text formatting includes pagination, 
headers and footers, reformats, tabs, mar- 
gins, auto centering, justification and su- 
per- and subscripts. 

The Key 

Software will be the key to whether 
these systems are marketable, says Kar- 
en Horowitz of the Venture Development 
Corp., Wellesley, MA. "People won't be 
buying 64K memories, they'll be buying 
solutions to problems." 

Since IBM's Datamaster is not CP/M 
based, the firm is offering its own 
business accounting package— for a 
whopping $6150. The six program pack- 
age includes billing, accounts receivable, 
accounts payable, inventory accounting, 
payroll and general ledger. A unique 
feature of the package is the ability to 
enter information from one program and 
have it automatically transferred to an- 
other without re-keying. 

Another software package, Brads III, 
will soon be available. It's designed for 
unique business applications like sales 



analysis, and costs $1 145. An IBM spokes- 
man said he was confident people would 
be writing software for the system. 

Though the Datamaster's software is 
more expensive, some say the small busi- 
nessman would rather pay the extra price 
in exchange for adequate user support. 
Hirsch of Datapro praises the IBM soft- 
ware package for its integration and says 
many first-time users prefer company- 
backed software to dealing with third- 
party distributors. 

With the Datamaster and personal com- 
puter so far apart in price range, there's 
also the question of their competing with 
each other for the small business market. 
But marketing experts seem to agree the 
two will appeal to different camps in the 
business field. 

"The type of guy who keeps his own 
books will go for the personal computer," 
says Hallaren of the Yankee Group. Larger 
businesses with a bookkeeper or two 
would be better suited to the Datamaster 
because "it's fantastically easy to use" 
and has multiple work stations. 

Others say the personal computer is 
the more attractive of IBM's offerings. 
"The Datamaster is over priced (and) 
there's nothing technologically advanced 
about it," says Hirsch. The personal com- 
puter, on the other hand, has word pro- 
cessing and communications links with 
other systems and could even be convert- 
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ed to hard disk. One million of them will be 
sold by 1985, he predicts, while after 
50,000 Datamasters are sold by next year, 
the machine will be "put to rest," because 
of its expense and incompatibility with 
other units. 

But IBM's promotion of the Datamaster 
will be heavy. They're sinking $3 million in- 
to a 90-day television ad campaign, as 
well as a radio and print blitz. 

Different Views 

Experts differ on the importance of price 
to the small businessman. Some say the 
first-time user is reluctant to make a large 
investment. "The first-time user isn't go- 
ing to pay that money as readily. He has to 
be convinced of the economic value (of the 
product)," says Francis O'Reilly, an inde- 
pendent marketing analyst in Ardsley, NY. 

An analysis by Venture Development 
Corporation also stressed the "need for 
small businesses to increase profits with- 
out making a large capital investment." 

Both IBM and Xerox have respected 
and recognized names in business cir- 
cles. "Like we used to say in the data pro- 
cessing business, nobody ever got fired 
for buying an IBM computer," observes 
Bishney. Their reputation for service and 
reliability could hurt Tandy, whose pitch 
for major accounts is "in its infancy," 
Mirsh says. 

Sales Approach 

Ultimately, what may matter most in the 
micro market is not cost and function, but 
how the companies sell and distribute 
their products. The appeal of Xerox and 
IBM to businessmen will be a key factor in 
product promotion. Both are disseminat- 
ing their products in a variety of ways. 
Dallas-based Xerox is relying on their 
500-strong sales force, office dealers, dis- 
tributors, and 25 outlets. Datamaster will 
be sold via IBM's General Services Divi- 
sion, using 50 outlets and their three main 
product centers— Baltimore, Philadelphia 
and San Francisco. A personal computer 
marketing organization has been set up 
within the Data Processing Division. They 
also have a mammoth sales force. 

Because it costs IBM $100 every time a 
salesperson calls on a customer, the com- 
pany is establishing seminars bringing 
clients to the company according to 
Hirsch. Whether these seminars will ac- 
complish as much as visits to customers 
remains to be proven. 

Retail Outlets 

What's new for both companies is the 
use of retail outlets to distribute their pro- 
ducts. Xerox will sell the 820 at retail 
outlets such as Computerland; IBM is sell- 



ing its personal computer through 200 
Computerland stores, five Sears, Roebuck 
and Co. business machine stores, IBM 
product centers and a sales arm of its 
Data Processing Division. 

But retail stores may not be the best 
way to reach the small-business owner. A 
Venture Development survey indicates on- 
ly a small percentage of users bought 
their systems at a retail outlet; an even 
smaller percentage of potential users 
would consider buying a retail computer. 

Apparently, small businessmen — par- 
ticularly first-time computer users— con- 
sider company back-up more important 
than any money they save at retail outlets. 
Buying direct through salesmen or com- 
pany outlets appeals to the novice, who 
needs a lot of "hand-holding" from the 
company. 

Anticipating this, IBM is offering com- 
plete service back-up for the personal 
computers sold through Sears outlets. 
Maintainance contracts will cost 13 per- 
cent of purchase price per year. They have 
also set up a toll-free line for Data 
master users. 

How will Tandy's distribution match 
up? With 2,000 dealers, 168 computer cen- 
ters and 4,800 retail stores, they've pretty 
much got the field covered. They also 
have some direct accounts sales people, 
though this is certainly not their strongest 
point. Shirley of Tandy thinks their retail 



units are the key to escaping the influx of 
IBM and Xerox. "They're selling them in 
stores where they sell Apples and PETs," 
he says, theorizing those two producers 
will feel the brunt of the competition. 



Micro Versus Mainframe 

Though they are making a healthy stab 
at the micro market, both Xerox and IBM 
may have problems divorcing their micro- 
computers from larger office products. 
Marketing analyst O'Reilly says IBM must 
alter its marketing approach to maintain 
all its product lines. "I think IBM should 
divide itself like an amoeba," to accom- 
modate microcomputers. However, he is 
skeptical of their mass market capability. 
"I don't think IBM has had any experience 
in high volume production." 

O'Reilly also questions Xerox' credibil- 
ity because of their abrupt withdrawal 
from the mainframe business several 
years ago. At that time Xerox bought Sci- 
entific Data Systems, whose mainframe 
product had an "esoteric" application, ac- 
cording to Xerox spokeswoman Marcie 
Williams. Xerox' forte is mass production, 
not customized products, she says. The 
new 820 blends in much better with their 
mix of office products. 

Both corporations have worked hard to 
fit the micros into larger offices as well as 
small businesses. Datamaster and the 



IBM micro's nitty gritty 

Computer boasts speedy microprocessor 



The new IBM Personal Computer is 
a machine designed for business, 
school, and home use. This is the low- 
est-priced computer system IBM sells, 
with prices ranging from $1565 to 
$6300. 

Standard equipment includes: a de- 
tachable 83-key keyboard; a cassette 
tape jack; five expansion slots for addi- 
tional memory and display, printer, 
communications and game adapters; 
built-in speaker for music program- 
ming; automatic self-test of com- 
ponents after power-on; an enhanced 
version of Microsoft Basic; 16K 
characters of user memory; and a high 
speed 16-bit microprocessor. 

The system can accept two 5.25- 
inch disk drives. The memory is ex- 
pandable up to 256K bytes. Either a 
monitor or a television with radio fre- 
quency modulator may be used to pro- 



vide a display of 25 lines of 80 charac- 
ters per line. 

Software already available for the 
IBM Personal Computer includes: a 
disk operating system; a Pascal com- 
piler; CP/M and the USCD p-system; 
VisiCalc; general ledger; A/R; A/P; a 
word processor; Microsoft Adventure; 
and communications software to use 
the optional RS-232C asynchronous 
adapter. 

Service for the IBM Personal Com- 
puter will come from IBM and from a 
nationwide network of authorized 
dealers. 

First deliveries of the IBM Personal 
Computer are scheduled to begin in 
October. ■ 

by Bruce Metzger 

Data Processing Manager 

Wayne Green Inc. 
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TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



FOR PERSONAL BUSINESS 
OR ENTERTAINMENT 

Color Computer 

4K Level I $319 
16K Level I $439 
16K Extended Basic $489 

With TCS Memory: 

16K Level I $369 

16K Extended Basic $449 




Expansion Interfaces 

zero K interface $254 With TCS Memory: 

16K Interface $359 16K Interface $318 

32K Interface $469 32K Interface $388 



Epson Printers SCall 

Litter quality matrix printer has lull software control of 40 80. 66 or 132 columns 80 cps bidirectional 
tractor leed. disposable pnnthead 1300' less than nearest competitive printer l sis $645 Can tor our 
low price 

MX-80 Tractor Feed MX-100 Graphtrax, Friction 

MX-80 FT Friction and and Tractor up to 15 " 

Tractor wide. 

Graphtrax for MX-80. MX-80 FT, graphics option. 



SOFTWARE 

EPSON MX-80 
PRINTER OISKETTE 

A complete rjiskeiie wiin 6 rompieie hies tor use 
will your Epson MX 80 Printer 
ready louse 

M/CMD Sere 3>i Cine Epson Pr.rierCOn-^anils 

10 me printer directly trom DOS or as pan ot an auto 

booting System Sel up the printei trom DOS to the 
typestyle you want men run the program 
BIGIETT/BAS • Produce : arce graphic letters on 

your printer ?. "d Screen Dump lie letters '3 printer or 

:odis« Allows 3 fl Keren: si?p leiiers to the printer 
Pioqiamismenudnven YoumayaisoconsirucMa'ge 
letter titles toe MFRGEing into your basic program 

I PSON/SUB Merge ihis small module into any 
Basic procj'am and Ihen issue any ot Ihe printer com- 
mands with a ? letter command with letters represen- 
ting ihe pu'pose ot Ihe command vol need not 'eler 
back and torth to documentation Extremely easy to 
use and makes using the pnrter much easier ma" 
ever beir-re 



JKL PATCH this patches NtWDOS ? l and 
NEWDOS 80 so 'hat the JKL lunctKHi will print the 
'RS80 graphics while the printer remains in Ihe s'af 
daro mode ra'he' than ihe TRS80 node Th sa'iows 
ai D'the leaturesol me printer loheuseob.i >di. can 
dump Ihe scieen lu Ihe printer al any lime with ai 
qraphics 

DEMO/BAS A super tulonal program with nun 
dredsol RE Ms and hundreds oi screen prompis ihai 
teach you how easy it is to create miracles w>th your 
Epson MX80 printer 

LABEL /BAS- Custom iaaei making program in- 
cluding graphics Makes custom mailing labels an 
easy K>b 

DEFSTATE/SUB A series ot one word p-mter 
commands Ihai can be merged into any Basic Pro- 
grams that allow various automatic lunctions lo oc 
cur Print titles with graphic boiders around them 
wilh one word Center any le»l with one command 
etc 

Special Price All seven of the above 
modules on one diskette or on tape ( less 
JKL) tor your Model I or III for only 
S29.95 



Or. lakeaSiO discount it you buy this item with purchase of the Epson MX-80 




Model III 16K $835 

Model III 32K $979 
Model III 48K $1089 



TRS-80 



We ha* all Radio Shack computers and accessor- 
ies, and a number o( other brand computer items 
Call us lo your specific needs and tet a copy of our 
catalof 



With TCS Memory: 
Model III 32K $909 
Model III 48K $969 



Model III 48K 2 Disk RS232 $2100 
Model III 32K 1 Disk $1729 

Model III 48K 1 Disk $1849 



TEXAS COMPUTER SYSTEMS 



Offers Lowest Prices on 



COMPUTERS 




Model II 64K S3288 

An excellent computer for your business 
needs Easy expandability & compatibility. 
No formal operator training needed. All ac- 
cessories available — disk expansions, 
printers, software, at our low discount 
prices Our fast, fully insured air freight 
service can assure most deliveries within 
seven days after payment is received. 



Corvus Hard Disks SCall 

5 10 or 20 megabytes Ot storage lo< Ihe Model I II Or lit We can con'igjre a system 'or you with e'lher 
TP.SD0S NEWD0S80 orCP/Mloror^.wseveraicomputeissharingasingieharddr'vesirryjiianeousiy for 
example from i to 8 Model lis may share a single large data base with the Corvus Constellation Muiipieier 
This also allows you lo use different manufacturers computers on the same hard disk system at the same tune 
Also tits Apple. Supertxain . Aitos and most Other computers As youi business grows additional storage and 
terminals may be added easily inexpensively Why wait monlhs lor other s promises'' We can deliver these 
reliable proven haid disk systems NOW' Corvus has sold and shipped ten limes more hard drives lor 
microcomputers than all their competitors combined Call us lor Ihe lowest price! 



MICROSOFT 

BASIC-IO f' - ei"Ced Gist Sasic iotq vanab'e 
names chaining viabteienglh records ANSI com 
patah'e nte'pre'at ve ve'sion S2M w/maaaal. 
S30 manual only. 

BASIC COMPILER - Same Basic language as 
BASIC 80 except compiles Basn piOQiam into .1 



djretUt necvlable 'e!o< .liable machine laiiqu.iiii' 
tile Operates 3 to 10 times taster than requlii R.isk 
include^ Macio 80 Assemble' Specify CPM 01 
TRSOOS %3K w/manual. S30 manual only 

FORTRAM-M Mippo-ls ANSI (.(> plus man, e. 
tensions mc net nq MACPO 80 Has nhr.iiy with 
manage' leiocalable oh(erl cuntpnei and link mi; 
loader MOO w/manual $10 manual only. 



Word Processor Package $2679 

Includes 2 Disk Model III with 48K. Epson MX-80 Tractor Feed with cable, and 
word processing software ready to operate Lists at $3300 Our low price 
special this month: $2671. For MX-80 FT Tractor and Friction, add $99. 



Special -With TCS Memory 
* Model III 48K 2 Disks 

Uses proven MPi dnves modified tor Hippy operation and 
Pe'com control*' limited 90 day warranty Can tor 
details 



$1895 



Printers 



Daisy Wheel II 
$1695 



Carbon ribbon typewrite' quai'ty 'or wo'd p-ocessmg 41 
cps Standard Centronics oaralei nle'lace Full In" 
widm individual sheets rx Inchon 'eec tractor teed 
$250 e»ira fas'es' Daisy Wee a.a''at'e at 'f'S 3"ce 



Line Printer IV $825 
Line Printer V $1599 
Line Printer VI $995 
Line Printer VII $350 



Pocket Computer 
& Ace. SCall 

Pocket Computer Printer 
interlace in stock 



• Pay'meni Money Order Cashier s Check CeMided 
Check Pe'sona' checks take 3 w«s VISA MC 
add 3% 



• P'ices subject 10 change any 'me 

■ No lax out ot stale "exans ado SV> 

• Delivery subieci to availability 

• Shipping exira quoted by phone • 25 



TEXAS COMPVTCft SS*ST€MS 

Box 951, Brady Texas 76825 

For fast, efficient service, we can air freight from Dallas 
to major a/p near you. Call for information. 

Toll Free Number 800-433-5184 

Texas Residents 817-274-5625 



'See List ot Advertisers on page 402 
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Xerox 820 are compatible with other com- 
pany products. 

The Datamaster, which many feel is a 
redesigned version of the ill-fated 5100 
series computer, features business level 
Basic compatible with the IBM System/34. 
Also available is an $875 software pack- 
age that converts 5110 and 5120 Basic to 
Datamaster Basic. 

Local Networks 

Xerox' 820 can be used with Ethernet, 
the company's communications network. 
A user simply needs an RS-232C board 
and communications server. Some manu- 



facturers, including Intel Corp., are work- 
ing on a chip for a direct connection. 

It's also rumored IBM may soon release 
a communications system similar to Eth- 
ernet to be linked with the personal com- 
puter. An IBM spokesman denies this 
however. 

With the business end of the microcom- 
puter market growing the fastest — Ven- 
ture Development predicts it will total $2 
billion annually by 1984— companies will 
have to meet the needs of the small busi- 
nessman. This means cost-efficient sys- 
tems, adequate software, user support 
and ample memory. But to capture the 



brunt of the market, companies like Tandy 
must compete for the major accounts 
sales to larger companies. That's where 
Xerox and IBM hit the hardest. 

Everyone but Tandy is taking the en 
trance of these corporate giants serious 
ly. Speculation was rampant on Wal 
Street after IBM's 16-bit personal comput 
er debut. But Tandy remains non-plussed 
Shirley of Tandy contends they have the 
market cornered and "everybody else can 
go fight it out among themselves."! 

by Betty Thayer 
80 Microcomputing staff 



Bill targets computer crooks 

Nelson of Sunshine State takes aim at purloining programmers 



A bill making many kinds of computer 
crime a federal offense has been rein- 
troduced into the US House by Rep. Bill 
Nelson (D-FL). The bill would mobilize the 
resources of the FBI and federal judiciary 
system to fight the rise in computer crime. 

Known as the Federal Systems Protec- 
tion Act (H.R. 3970), the new bill is present- 
ly before the House Judiciary Commit- 
tee's Subcommittee on Civil and Common 
Law. Hearings have not been scheduled 
on the measure yet. 

The bill is the latest version of a pro- 
posed act sponsored for four years by re- 
tired Sen. Abraham Ribicoff (D-CT) and re- 
ported out of a Senate subcommittee at 
the end of the 96th Congress last year. 

The bill makes it a federal offense to 
use, for illegal purposes, a government 
computer or a private computer owned by 
a firm involved in interstate commerce or 
owned by a financial institution insured 
by the federal government or in the Feder- 
al Reserve System. It also makes acts of 
destruction against any such machines a 
federal offense. 

The bill provides a fine up to twice the 
proceeds from the illegal act or $50,000, 
whichever is greater, and imprisonment 
for up to five years. 

Congressman Nelson represents an 
area of Florida hosting several high-tech- 
nology companies. He sponsored Florida's 
first computer crime legislation while a 
state legislator. That bill, the Florida Com- 
puter Crimes Act, became law in 1978 and 
was the first state law to deal directly with 
computer crime. 

Critics 

Some critics feel the bill in Congress 
will create federal intrusion into what 




should be a state matter and inclusion of 
provisions to carefully monitor any feder- 
al actions on computer crime to avoid 
such problems has not satisfied the critics. 
Others have criticized the lack of a mis- 
demeanor charge for minor unauthorized 
use of a computer. Some programmers 
have argued the bill would make federal 
offenses the use of computers to keep 
track of bowling league scores, print 
Snoopy calendars and the like, common 



applications in many data 
processing shops. 
Others are concerned with 
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KISS 

BASIC 
GOODBYE 

^^B^lP^^Jj^ Announcing the new quick and easy 

way to write custom business applications 

in hours instead of weeks. 



At last, you can get a microcomputer 
business application development system 
that is designed for one purpose 
only . fast production of bug-free 
professional-looking custom business 
applications. 

Thinks" the Way Business Thinks 

Quic-N-Easi is the revolutionary screen- 
format-oriented application development 
system that thinks in terms of transactions, 
records and fields. The same way business 
thinks. Quic-N-Easi expects an application 
to include custom formatted key entry. It 
lets you set up the character, field, and 
record validity checks business wants by 
merely filling in the blanks. It automatically 
signals in real time when errors occur 
and "explains" what is wrong in plain 
English messages you select for each 
custom application. 

Much Faster than BASIC 

Quic-N-Easi programming is much faster 
than BASIC because the standard busi- 
ness applications (key input, file handling, 
and output reporting) are handled via 
pre-programmed parameter driven sub- 
routines. To produce finished professional 
looking custom business programs, you 
merely: 

Draw the business formats directly 
On the CRT in minutes. 

^7| Fill in the blanks for field attributes, 
validations, tables, etc. 

ra Invoke the Quic-N-Easi interpreter 
1 — ' to check fields against tables, check 

limits, access data files, and perform 

business calculations, etc. 

*S»e List of Advertises on page 402 



H 




r^\ Optionally define file and output 
L— ' formats right on the screen. 

Pays for Its* If in a Week 

By eliminating the coding drudgery of 
writing screen, field, file, and format 
programs in BASIC, programmers are 
free to concentrate on the unique business 
aspects of each custom application. No 
professional programmer can afford to 
develop one more business application 
without Quic-N-Easi. The savings are so 
significant with Quic-N-Easi, it can actually 
pay for itself in only one week. 

Gives You Much Mora than a 
Screen Builder . . . the Only 
Complete Business Development 
System for Microcomputers 
Quic-N-Easi handles the entire application 
development job from key entry to final 
output. You get everything you need, 
including detailed documentation to begin 
writing professional programs the first 
day. You get ... 

(~il| A singularly capable Quic-N-Easi 
' — ' screen builder 

|~JIj A comprehensive parameter driven 
1 — ' Quic-N-Easi content editor 

HD A full Quic-N-Easi interpreter 
1 — ' language 

ra A complete Quic-N-Easi file 
1 — ' management system with Index 
Sequential, Random, and 
Sequential File Access Method 

[~n A complete Quic-N-Easi print format 
1 — ' handler 

ra A detailed Quic-N-Easi reference 
1 — ' manual 



TM 



["3 A Quic-N-Easi self-teaching guide 
r^Z] A Quic-N-Easi quick reference card 
r^n An interface to other program files 

ORDER NOW— Don't Waste 
One More Day Coding BASIC 

Your time is too valuable to waste hours 
on end writing BASIC code. The first 
week you use Quic-N-Easi, your finished 
business programs will look better, run 
better, and return more dollars to you. 
Don't delay. Order Quick-N-Easi today. 
Phone ... 21 5 968-0689 



nuic- n - Easi 

STANDARD MICROSYSTEMS INC. 

136 GRANITE HILL COURT, LANGHORNE, PA 19047 

• 317 

Pricing Information 

a Complete Quic-N-Easi system $395 

■ Manual only $60 

■ Visa and Mastercard accepted 

■ Dealer Inquiries Invited 

Minimum System Requirements 
48K • CP/M • Z80 • Floppy Disc 

Other Disk Formats • 8" Single Density 
Vector Graphics • Micropolis Model 2 

Customized Versions • TRS80 Mod II. 

TRS80 Mod III. APPLE, OSBORNE, 

INTERTEC, VECTOR , ZENITH 
Apple. CP/M, Intertec. Micropolis, and TRS80 are 
trademarks ol Apple Computer. Digital Research, Inlertec 
Data Systems. Micropolis Corp . and Tandy Corp. 
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the broad definition of computer in the bill. 
The bill defines computer as "any device 
that performs logical, arithmetic, and 
storage functions by electronic manipula- 
tion, and includes any property and com- 
munication facility directly related to or 
operating in conjunction with such a de- 
vice..." The definition excludes auto- 
mated typewriters and typesetting equip- 
ment, microcomputers and portable hand- 
held electronic calculators. 

Bill supporters have argued a broad def- 
inition is necessary to cover future 
generations of computers. 

Sees a Need 

In spite of the criticisms, however, Nel- 
son believes the federal bill is needed. He 
says the federal government, alone, owns 
more than 10,000 computers. These are 
used, among other things, to pay billions 
of dollars annually to federal workers, de- 
fense contractors and recipients of Social 
Security benefits. 

Private industry has thousands more 
computers handling all kinds of financial 
and sensitive information. Nelson notes a 
programmer stole $10.2 million from Se- 
curity Pacific Bank in California and trans- 
ferred it to a Swiss bank account with a 
single telephone call. An employee of Kel- 
ly Air Force Base in San Antonio, TX, stole 
$100,000 through false computer billings 
for aviation fuel. A business in Virginia 
stole information from US Department of 
Energy computers in Maryland by tele- 
phone. The total direct financial loss in 
the United States due to computer crimes 
is estimated at between one and several 
hundred million dollars annually. 

However, Nelson said, no federal law 
clearly covers the use of computers in 
crime or their damage by terrorist-type at- 
tack. The 40-odd federal laws covering 
various aspects of the issue were all writ- 
ten long before computer crime existed as 
a major problem. 

Nelson admits computer crime is a 
small part of the total problem of white 
collar crime in the United States. How- 
ever, he maintains thousands of Ameri- 
cans today are familiar with the strengths 
and weaknesses of computers and have 
both the knowledge and opportunity to 
commit computer-based crimes. For this 
reason, he has reintroduced the bill in 
spite of its less than spectacular progress 
through Congress in the past. 

No Great Following 

Although Ribicoff sponsored the bill in 
the last two Congresses and succeeded in 
getting It reported out of subcommittee, it 
was never acted on by the Senate. With 
the start of the new Congress, it would 



have to go back to the subcommittee if 
someone sponsored it in the Upper 
Branch. So far no one has. In the House, it 
never got out of subcommittee, partly be- 
cause the House Judiciary Committee's 
Chairman, Peter Rodino, Jr. (D-NJ) does 
not favor the bill. Nelson's administrative 
assistant, Jim Southerland, said that situ- 
ation has not changed and admitted the 
bill has not attracted a great amount of in- 
terest in Congress. 

This time around Nelson hopes to open 
communications with concerned persons 
to learn their views on computer crime 
and inform them on the need for the bill 
and its purposes. His office is preparing a 



mailing to government officials, business 
leaders and other involved individuals to 
determine the level of interest and need 
for the bill. Southerland said Nelson 
would welcome comments from interest- 
ed parties. 

Persons interested in the bill can con- 
tact Southerland at Room 307, Cannon 
House Office Building, Washington, DC 
20515. Those interested in contacting the 
Subcommittee on Civil and Common Law 
may write to its chairman, Rep. Don Ed- 
wards (D-CA), and those interested in 
communicating with the full committee 
may address their remarks to Chm. 
Rodino. ■ 



Dartmouth fetes John G. 
Kemeny, father of Basic 



The father of the popular computer lan- 
guage Basic was honored recently by 
the university he has served for more than 
25 years. Dartmouth's John G. Kemeny, 
who last fall stepped down after 1 1 years 
as the college president, has had an aca- 
demic chair established in his name in the 
mathematics department. 

The John G. Kemeny Parents Professor- 
ship in Mathematics is a $1 million distin- 
guished professorship. The endowment is 
a gift from three non-alumni parents, who 
have chosen to remain anonymous, and 
given in appreciation of Kemeny's service 
to the university and to the country. 

Pioneering Author 

Kemeny was a pioneer of computer 
time-sharing techniques and one of the 
first educators to recognize the impor- 
tance of computers in higher education. 
His time-sharing system at Dartmouth be- 
came the model for other systems in aca- 
demic and business environments. In ad- 
dition, Kemeny's Dartmouth Basic found 
great popularity among his students and 
proved so easy to learn it was adopted by 
the computing public as the most compre- 
hensible computer language available. 

Fleeing the German persecution of 
Jews in his native Hungary in 1940, Kem- 
eny came to this country as a 13-year-old 
student. His affinity for mathematics and 
science was soon obvious to his teachers 
at George Washington High School in 
New York City, and by the time of his grad- 
uation, he was accepted at Princeton Uni- 
versity in nearby New Jersey. While at 
Princeton, he was recruited by the govern- 
ment to work on the Manhattan Project at 
Los Alamos, NM. Here, as he assisted in 




the development of the atomic bomb, he 
rubbed shoulders with some of the best 
scientific minds of the time including Jon 
Von Neuman, Edward Teller and Eugene 
Wigner. 

When his work at Los Alamos was com- 
pleted, Kemeny returned to Princeton to 
pursue his doctorate in mathematics. 
While completing his graduate studies, he 
was research assistant to Albert Einstein 
and became an advocate of World Feder- 
alism—a movement for the sensible 
human control of nuclear technology. 

In 1952 Kemeny was recruited by Dart- 
mouth and in two years became chairman 
of its aging math department. As he 
brought new blood into the department, 
he also worked on developing an easy to 
learn computer language. He called it the 
Dartmouth Beginner's All-purpose Sym- 
bolic Instruction Code (Dartmouth Basic). 
During this time Kemeny also set up an 
elaborate time-sharing system for the col- 
lege computer and encouraged under- 
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FED UP WITH PATCHES? 

THEN MOVE UP TO 
PROSOFTS NewScript: 



Easy-to-use Full Screen Editing 

Headings, Page Numbering, 

Centering 

Global Search and Change 

Table of Contents, Indexing 

All 12 MX-80 fonts + underlining 

Italics on GRAFTRAX MX-80 

Supports Diablo, Microline, Anadex 



Typehead — never loses 
keystrokes 

Form Letters, Big Documents 
Double Width, Underlining 
Sub-scripts, Super-scripts t 
Proportional font right-margin 
justification on 737, 739, L.P. IV, 
and now R/S Daisy wheel II 



* 160 pages of excellent documentation includes "EZEDIT", "EZSCRIPT", 
self-study tutorial, and hundreds of examples 

* see review in Computronics, July 1981 
' runs under TRSDOS, NEWDOS, NEWDOS/80, LDOS, DOSPLUS 

* Requires 48K TRS-80 with one disk drive. Specify Model I or Model III 
tSome features work only if your printer has the mechanical capability 



NewScript 

Nailing Labels Option 

Special: New Script + Labels 



$ 99.95 
$ 29.95 
$115.00 



RPM measures the rotational speed and variation of your disk drives, and reveals a common 
cause of unexplained errors. Simple one-key operation, runs under any DOS, interchangeable 
between Models I and III. Shows current and average speeds, plus fluctuation history. Recovers 
from severe errors. Documentation explains how to adjust drives. Use RPM monthly for best 
results. 

32-48K Model I or III disk : $24.95 



J 



f FASTER 





Monitors your BASIC programs while they run, then displays a simple change 
(usually one line) that can reduce run-times by as much as 50%. No hardware 
changes, and handles programs that cannot be compiled! Complex programs 
benefit the most. See review in Personal Computing, May, 1981. 



16-48K Model I or III, tape and disk: 



$29.95 



Order from your Software dealer, or from: 



PRom 




CALL TOLL-FREE FOR ORDERS ONLY: 

(800) 824-7888. Operator 422 
CALIF: (800) 852-7777. Oper.422 
ALASKA/HAWAII: (800) 824-7919 
TOR TECHNICAL INFORMATION CALL: 

(213) 764-3131, or write to us. 



QUICK COMPRESS 

Small (276 bytes), fast (processes 800 lines in under 3 seconds) 

utility removes blanks and remarks from your BASIC programs. 

Produces smaller, faster programs, and doesn't alter the 

original logic. 

16-48K Model I or III, tape and disk : $ 19.95 

SPECIAL FASTER + QUICK Compress: $39.95 

Dept.C Box 839 
North Hollywood, CA 91603 



ORDERING INFORMATION: We accept checks. Mastercard, Visa, Money Orders. C.O.D. (C.O.D. under 
$50.00. add $2.00). and even cash. Please, no purchase orders. California residents add 6% sales tax. 
Add 15% outside North America. 
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graduates to get familiar with computers 
through game playing. As a result, over 90 
percent of Dartmouth's undergraduate 
students had exposure to computers 
before leaving school. 

Storms on Campus 

In 1969 Kemeny was appointed the col- 
lege's 13th president. That year and 
through the early 1970s, his cool style of 
leadership, encouraging dialog rather 
than rhetoric, stood him in good stead 
with students. Though the bombing of 
Cambodia and the killings at Kent State 
University in Ohio rocked Dartmouth as 
they did most other American campuses, 
Kemeny managed to weather the storm by 
suspending classes for a week, establish- 
ing a series of teach-ins and seminars and 
providing transportation to Washington, 
DC, for outraged demonstrators who 
sought President Richard M. Nixon's ear. 

In 1972 Kemeny wrote the book Man 
and the Computer. In it he argued for a 
new symbiosis between man and ma- 
chine. In Kemeny's view the computer was 
man's key to managing the increasing 
complexity of his future. In the book 
Kemeny also sought to allay the fears of 
the layman concerning technology. He 
maintained that, if introduced properly, 
man and computer could become fast 
friends and partners in the future. 

The Commission 

Kemeny's best known contribution in 
the arena of popular science is the "Re- 
port of the Kemeny Commission on the 
Accident at Three Mile Island." Tapped by 
President Jimmy Carter in 1980 to head 
the commission investigating the near 
melt-down of a nuclear reactor outside 
Harrisburg, PA, Kemeny later said, "As we 
looked at the NRC (Nuclear Regulatory 
Commission) overall, our most important 
judgement was that it is an agency hypno- 
tized by equipment. It had a firm belief 
that equipment could be made fail-safe, 
and as a result it totally ignored the 
human element in nuclear power." 

For many years Kemeny has sounded a 
similar theme in his work and today he 
contends man, by himself, is unable to 
cope with the extremely complex systems 
he has created. For Kemeny, the compu- 
ter must play a role in helping man cope 
with his increasingly complex world. Kem- 
ney's contributions toward popularizing 
that machine have made coping easier 
and computer literacy attainable for many 
a microcomputerist.l 



by Chris Brown 
80 Microcomputing staff 



News in bits and bytes 
tests waters for future 
of electronic newspapers 



Two years ago if you wanted to read a 
newspaper, you either subscribed to it 
or bought it at the corner store. If you 
wanted to read your home town paper 
from 1,000 miles away, you had it mailed 
to you and read it three days later. Not so 
today — at least for microcomputer 
owners. 

More and more newspapers and news 
services are becoming available to micro 
owners. At least three major databanks- 
CompuServe, The Source and Dow Jones 
Electronic News Service— offer electronic 
newspaper services, and a small Midwes- 
tern newspaper has a public database. 

CompuServe of Columbus, OH, offers 
electronic editions of 10 newspapers: The 
New York Times, Washington Post, Los 
Angeles Times, San Francisco Chronicle 
and Examiner, Columbus (Ohio) Dispatch, 
Minneapolis Star and Tribune, Norfork 
(Virginia) Pilot and Ledger, St. Louis Post- 
Dispatch, Atlanta Constitution and Journal 
and Middlesex News in Framingham, MA. 

The Source in Maclean, VA, does not 
carry individual newspapers, but does 
carry several electronic newsletters and a 
wire service, United Press International. 
Stories from UPI go into The Source sec- 
onds after being transmitted on the wire. 

The Princeton, NJ-based Dow Jones 
Electronic News Service includes access 
to the international Dow Jones business 
and financial wire. This service is de- 
signed for financial and investment pro- 
fessionals and has been available to them 
for several years. 

Recently, Dow has made the service 
available to the general public and format- 
ted some of the databases for TRS-80, Ap- 
ple and Commodore microcomputers. 

According to Jerry Lipski, head of com- 
puter services for the A tlanta Constitution 



and Journal, electronic service Is less ex- 
pensive and more convenient for the 
newspaper but more expensive and less 
convenient to the reader. You can't fold up 
a microcomputer and read it on the train 
home or under a hair dryer, and you can't 
line a bird cage with it. Then there's the ex- 
pense of buying a microcomputer or dumb 
terminal and subscribing to the database. 

For a newspaper, electronic editions 
cut out some of the major costs of the 
business: typesetting, printing and distri- 
bution. They also allow for more flexable 
deadlines, since the database can be up- 
dated instantly. However, an industry 
source familiar with one of the existing 
electronic news providers said there are 
delays of up to three hours between filing 
a story and Its appearance in the 
database. 

In the CompuServe system, most elec- 
tronic editions are story by story render- 
ings of the day's newspapers. When a 
user asks for an edition, he or she choos- 
es an area of Interest and is given a menu 
of headlines. After selecting a headline, 
the story appears on the screen. 

Lipski said the Constitution's electron- 
ic edition is unusual In Its format and 
reason for existence. It only includes the 
full stories of the front page and other 
special pages. Most of the paper's stories 
are summarized in a few paragraphs, as is 
done on radio. The idea, Lipski said, is to 
encourage people to buy the Constitution 
instead of having the electronic edition 
compete with the paper. 

In addition to news stories, he ex- 
plained, the Constitution database 
includes a guide to Atlanta's hotels, a 
television guide with reviews, a schedule 
of airline service to Atlanta and other 
general Interest items. ■ 
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Height games 

Simulations eyed during strike 



Reporters looking for a new lead for 
the continuing story of the air con- 
trollers strike hit on microcomputer simu- 
lations of airport traffic control last Au- 
gust. For awhile, the public read and heard 
about products like O'Hare, a program 
marketed by Instant Software, Peter- 
borough, NH, and Air Traffic Controller by 
Creative computing, Morristown, NJ. 

The sudden media interest in the sub- 
ject apparently started with a newsman 
for the National Public Radio network fa- 
miliar with one of the games. As a result, a 
commentator for "All Things Considered," 
the network's rush-hour news and com- 
ment show, interviewed the author of 
O'Hare. 



Then the Wall Street Journal, in the sec- 
ond section of its August 17 edition, ran a 
two-column story "For Some Would-Be 
Controllers, Guiding Airplanes is just a 
Game." After that, things really started 
rolling. 

Marketing Manager Mary Reed said In- 
stant Software and its distributors had 
contact with about 15 major news organi- 
zations including Time magazine and the 
CBS television network. A CBS affiliate in 
Denver, CO, had pictures of the Instant 
Software product, 80 Microcomputing 
and Kilobaud Microcomputing on their 
evening news broadcasts. A major Boston 
radio station ran a four minute telephone 
interview with Reed on the subject. ■ 
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Ultra Utility for BA8IC 
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ItA. OM.OI MAKES IT ACROSS! 




. . FROM OWE OPERATING STSTBMTO ANOTHER! 
A VITA1 WAY TO PROTBCT YOUR SOFTWARE 

INVESTMENT FOB THE rUTURI!! 

The I at CMMM. language runs on more different Oper- 
ating Systems and more different-sized computers than 
any other similar language. For starters, it runs on NCR 
and TI minicomputers and. in the micro field, on the 
CP'M 2 . MP'M : . TRSDOS 8 . OASIS'. MOASIS«.and UNIX' 
(ONYX version) Operating Systems, .to mention only 
a few 

Until now. serious business software of the scope and 
flexibility seen in the minicomputer world has not been 
available on micros KM l)MMM. now allows transfer of 
such software with a minimum of fuss 

We have participated in such a mini-to-micro transfer 
of a major set of general business software . using Rat 
MMMM. as the transfer mechanism, of course. Running on 
literally thousands of minicomputers, these refined, 
enhanced, and proven software packages cover A'K A/P. 
G/L, P/R. Order Entry (with Invoicing and Inventory 
Control ) as well as Sales Analysis The packages define a 
new level of achievement for features and flexibility in 
micro applications software and offer top quality at a 
reasonable price 

For immediate information, call 7 1 4- 848- 1 922 for your 
complete product descriptions 

. . PLUS ALL THE OLD, FAMILIAR FAVORITES that 

we continue to offer, such as: 

General Buainaaa— Client Accounting (CPA Write-up) 
FMS* ( Financial Modeling System ) 
NAD" ( Name and Address System) 



Raal Estate— REAP < Real Estate Acquisition Programs ) 

PMS ( Property Management System ) 

MLS 6 (Multiple Listing System) 

Health Care— APH* Automated Patient History) 

Word Proceeding and System Software - Magic Wand" 

QSORT' 



CHAS1C2 



(m? smit>j.tws sorrows WILL Df FINITELY 

ENHANCE YOUR CURRENT OA1* PfOCtSSN6 
(^FINANCIAL IMDCMM6 gETWaVUBILlT Y. 




and Cybernetics' unique TR3-60 J . Model II CP/M offering 
high performance, hard disk support, and CP/M com- 
patibility 

Trademark* of: 

1-Ryan McFarland Corp 2— Digital Research Inc , 3— Tandy 
Corp. 4 — Phase One Systems. Inc. 6 — Bel] Telephone Laborator- 
ies. Inc. 8-Amsncan Business 8ystems. Inc; '-Structured 
Systems Group. Inc , 8- Cybernetics Inc ; 9— Peachtroe Software. 
Inc.. 10— Compiler Systems. Inc 



IN 




(714)848-1922 



8041 NEWMAN AVE.. SUITE 208 
HUNTINGTON BEACH. CA 92647 



• See List ol Advertisers on page 402 
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AMERICAN 
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118 SO. MILL ST • PRYOR, Ok 74561 
PHONE (918) 825-4844 



ALL LISTED PHICES ARE CASH DISCOUNTED WE ACCEPT MC, VISA, AND COD (REQUIRES CERTIFIED CHECK, CASHIER'S CHECK OR 
CASH) FOR CHARGE ORDERS, PLEASE ADD 3% FOR COO SERVICE. PLEASE ADD 5% 
OKLAHOMA RESIDENTS PLEASE ADD 4% SALES TAX 

72K EXPANSION INTERFACES 
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SPECIAL OFFERING 

Due to a very special purchase, American 
Business Computers is able to offer a limited 
number of Radio Shack" Expansion Inter- 
faces at the lowest price ever 

American Business Computers guarantees 
Expansion Interfaces to be Brand New - 
with original documentation and in perfect 
working condition 



$555 




HARD 
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DISK DRIVES 

> MEGABYTES FIXED 

? MEGABYTES REMOVABLE 

STORAGE FOR TRS-80 MOD II 



Call or write to American Small Business 
Computers and let us show you how we can 
give you almost unlimited disk storage on your 
TRS-80 MOD II. American Business Com- 
puters features both Cameo and Corvus Disk 
Subsystems with associated software. Dealer 
Inquiries Invited. 



OTHER STUFF & ODDS - AND - ENDS 



PAPER FOR YOUR PRINTER ^528 
9 1/2 x 11 - Tear-off perforations 
and you have an 8 1/2 x 11 "cut sheet" 
3200 sheets of 15 pound paper. $39.95 
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VERBATIM 
DATALIFE DISKETTES 

We feel this is the BEST Diskette 

on the market! 

TRS-80 MOD 1 - 29.95 

TRS-80 MOD II - 49.95 BOX OF 10 



SOFTWARE 

• 562 
TRS-80 COLOR COMPUTER' GAMES 
PACKET MAN 24.95 

METEROIDS 21.95 

COLOR SPACE INVADERS 21.95 

GAME OF LIFE 14.95 

LUNAR LANDER 14.95 

OTHER SOFTWARE FOR THE TRS-80 

ADVENTURE (DISK VERSION) 

SPECIAL ***19.95 

OLYMPIC DECATHLON 

(DISK VERSION) 23.00 

NEWDOS80 (VERSION 2.0) 

MOD 1 139.95 

MOD III 139.95 



DISGUSTING!! 



That's what we think 
about the price of 
most good "Letter 
Quality" Printers Our 
Starwriter is Bidirec- 
tional and out "specs" 
the others - hands 
down 
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9 18-82 $-4844 

RETAIL STORE— SOUTHWOOO SHOPPING CTR— PRYOR, OK 



ATTENTION: 

CORVUS OWNERS 

American Business Computers NOW 
offers a fully compatible TRSDOS* 
operating system. Our System, called 
CORDOS. runs all 10 MB. Revision B 
Corvus drives The Program in this 
package contains a Master Program 
which will convert a user's operating 
system disk (Version 2.0) to an en- 
hanced system capable of the fol- 
lowing: 

— Completely transparent use of 
the Corvus Hand Disk Drive 

— Complete compatibility with 
existing programs 

-All utilities (except Format and 
Backup, which should not be 
used) will operate normally 

Pnce $300 00 with manual 

DEALER INQUIRIES INVITED - 
CORDOS Author Andy Frederickson 
'TM of Tandy Corporation 
*TM of Corvus Systems 



COMPUTERS 



118 SO. MILL ST. • PRYOR. OK 74761 • (918) 825-4844 



*TM TANDY CORP 



SUPERPRINTER 

THE EPSON 
MX-80 




This is Ihe new Epson MX-80 dot matrix printer It does just about everything you could 
ask a printer to do-quickly, quietly, reliably. In fact, for OEM installations, the MX-80 may 
be the single best, all-around printer you can buy. But that's not the best reason to buy it. 

The MX-80 prints bidirectionally at 80 CPS in a user-defined choice of 40. 80, 66 or 132 
columns. And if that's not last enough, its logical seeking function minimizes print head 
travel time The MX-80 prints 96 ASCII. 64 graphic and eight international characters with a 
tack-sharp 9x9 matrix For a long time. Epson printers are known for reliability and the 
MX-80 is no except ion But that s not the best reason to buy it. either. 

The print head has a life expectancy of up to 100 x 10 characters , and when it wears out, 
just throw it away A new one costs less than $30 and the only tool you need to change it is 
attached to the end of your arm The MX-80 is compact, weighs only 12 lbs., and the whole 
unit, including the two stepper motors controlling carriage and paper feeding functions, is 
precisely controlled by an internal microprocessor. But even that isn't why you should 
specify the MX-80 

The best reason is this because Epson 
makes more printers than anyone else in IF YOU BUY AN MX-80 AND DON'T 
the world, we can afford to sell each one CHECK OUR PRICE — YOU PAID TOO 
for a little less MUCH! 



AW...WHAT THE HECK 

RAN^1emori^hip^oMhcTRS-80 



Apple and others 



It is the policy of American 
Business Computers to offer 
merchandise at the lowest 
price possible Several 

months back, we began sell- 
ing RAM Memory Chips tor 
the TRS-80 for $45.00 
per set. Someone else sold 
chips for $44 00 We sold 
them for $38.00 They sold 
them for $37.95. So we say 
"AW. ..WHAT THE HECK!" 
Let's see the other guys 
beat this price. 



$19 



95 



PER 16K SET 



These chips are brand new 
"4116 s" These 200 nano- 
second chips are fully 
compatible with all TRS-80 
products Instructions for 
mseriion are included; how- 
ever, the dip shunts required 
for converting a 4K Model I 
to a 16K Model I are not 
included at this low price 



OKIDATA MICROLINE 80 



PRINTER — S*99 



00 
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The Microime is built on a rugged cast alumi- 
num base lo withstand the rigors of continuous 
business use. It is driven by two motors and 
will run all day with no duty cycle limitations 
M icrohne printers use a dense 9x7 dot pattern 
to produce crisp, clean copies, first copy to last 
The seven pins in the head are "fired" using 
energy stored in tension members. This tech- 
nology permits the use of short, low mass pins 
made with an extremely hard alloy The head 
produces less heat, thereby extending its life 

•s* THE REST OF THE t 

FAMILY 1 

OKIDATA MICROLINE 82A - The same as the 
M icrohne 80 but prints at 120 CPS and has low- 
er case descenders. $5M 

OKIDATA MICROLINE 83A — The wide car- 
nage big brother to the microime 80 and 82A 
Features both RS-232 and parallel interfaces, 
120 CPS bidirectional printing. 9 wire print head 
and adjustable forms length An excellent 
printer tor only $899! 



The EPSON MX-70-$ Call 
The EPSON MX-80 FT-$ Call 

I The MX-100-$C«II 

|ALL OTHER EPSON OPTIONS 



IF YOU BUY ANY EPSON 
PRODUCT AND DON'T 
CHECK OUR PRICE — 
YOU PAIDT O OMUCH! 



Call 918-825-4844 for prices. 



524* RETROFIT YOUR* 
MX-80 TO AN MX-80FT 

ADD A PLATEN TO YOUR MX-80 
TO ALLOW USE OF LETTER- 
HEADS OR ROLL PAPER. $69.95 



DIRT CHEAP ...$267 



'TRS-80 MODEL I VERSION 
Complete with Power Supply A Cablnol 



But Highly Reliable. Yes, our Mini Disk Drives have an estimated 
8000 Power-On-Hours Mean Time Between Failure {That's 8 
Hours A Day. 5 Days A Week, for 3.85 YEARS) Our drives also 
feature a lead screw head positioner - nor a cheap band-type 
positioner. If you purchase a Mini Disk Drive with a band-type 
positioner, you are buying an INFERIOR PRODUCT! If you have 
any doubts about our drives, our ONE YEAR Warranty should 
convince you that we know this unit is the best drive at the best 
price on the American market. This is one example where you can 
pay less and get more. *tm Tandy corp. 



TEAC DRIVES 
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918-825-4844 
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%^^^ hv Dennis Kitsz 



by Dennis Kitsz 



"When you order Extended 

Color Basic be sure to ask 

for the kit." 



Say, folks, I've got a Radio Shack 
Color Computer, but one that's just a 
little different ... it has Extended Color 
Basic with 32K memory, provides a clean, 



composite video output, and displays up- 
percase and normal lowercase letters. No, 
you can't buy one exactly like it at Radio 
Shack (yet?), but you can have one for less 
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Photo 1. Main CPU activity is shielded by a metal cap, and by plate on the underside of 
the board, to prevent radio frequency interference (RFI) with televisions and radios. 



than the cost of an off-the-shelf 16K Ex- 
tended Basic machine. Want one? 

This month's column is a potpourri of 
simple Color Computer expansions I have 
collected over the past few months. As 
sold, the machine is a fine investment for 
$400, but for a few dollars more you can in- 
stall Extended Color Basic ($99 from 
Radio Shack), two banks of 16K RAM ($18 
each from non-Shack suppliers), compos- 
ite video ($2, build it yourself), and a plug- 
in character board (about $50, using the 
printed circuit pattern in this column). 

Some folks have suggested that I make 
modifications just for fun. Fun isn't 
enough. When I purchased the Color Com- 
puter I was ready to be convinced that it 
needed no changes at all. It looked like the 
perfect second-generation personal com- 
puter. I anticipated with excitement in- 
stalling my Extended Color Basic and see- 
ing those rumored amazing high-resolu- 
tion graphics come alive. Then I learned 
that Radio Shack didn't want me to install 
Extended Basic (but they would do so for 
an additional fee); and that the extended 
version required 16K RAM (which they also 
would install at a high price and for an ad- 
ditional fee). 

About the same time, I borrowed a color 
monitor from a friend, only to find that this 
beautiful display had no RF input . . . and 
my Color Computer had no composite vid- 




Photo 2. CPU area uncovered. Circles show 4K/16K jumpers, arrows point to 33-ohm 
resistor connecting SAM pin 35 to the second bank of memory. 



Photo 3. Video buffer amplifier affixed to 
the modulator unit. Dual phono jacks pro- 
vide composite video output. Y-connec- 
tors can be used to drive ten or more 
monitors. 
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eo output. It was back to black-and-white. 
Finally, I tossed together a short text edit- 
ing program in Basic. I felt it would be 
more appropriate to write about the Color 
Computer while actually using it. A few 
minutes in front of a screen full of normal 
and reversed uppercase characters con- 
vinced me that real lowercase was the on- 
ly way to go. 



"A few minutes. . . 

convinced me that 

real lowercase was 

the only way to go. " 



Extended Color Basic 

Reluctantly I filled out my waiver of war- 
ranty (see August Applications), paid $99, 
and waited for my Extended Basic kit. The 
"kit" turned out to be an off-the-shelf Ex- 
tended Color Basic manual and a single 
integrated circuit. When you order Extend- 
ed Color Basic, be sure to ask for the kit; 
don't specify an "Extended Color Basic 
ROM," because that's all you'll get. At 




Photo 4. Arrow shows output jacks sol- 
dered to case of modulator unit (not the 
top). Two solder connections have been 
made for strength. 



1 BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
AUTOMAP and 
AUTOFILE is 
spent inserting 
my diskette." 

SCOTT ADAMS PRES OF ADVE\ TURt l\ Tl 



When worKinq with direct Files or creating a formatted screen. 
AutoFile and Automap are indispensible aids. 

AutoFile is designed to automate tor the BASIC programmer the 
tasK of moving data elements to and From a direct File. Pre- 
viously, this was a time consuming chore because the FIELDed 
variables may not be directly referenced by user logic. The FIELD 
statement was eliminated, thereby relieving you oF the guessing 
game as to where the FIELDed variable is. In addition, the CHR$ 
and the ASC Function reFerences are performed automatically. The 
software, when installed, becomes part oF your BASIC interpreter 
providing the enhancements without additional memory or disK 
space. 

Automap is designed to automate For the BASIC programmer the 
tasK oF presenting inFormation on the video display and accepting 
information from the keyboard operator. The software consists 
of two main components: the OFF LINE COMPONENT used to 
describe to the system the screen formats and the ON-LINE COM 
PONENT from within your BASIC program to initialize a screen, 
send data to the video display and receive data from the Keyboard 
operator. This facility when installed, becomes part of your BASIC 
interpreter providing the enhancements without requiring any 
additional memory or disK space. 

Both products compliment one another and iF used in conjunction 
can save up to 75% oF your programming time. 

IF you consider your programming time to be worth money, call 
us and let us show you how to get more oF it. 

Automap Model II si 00.00 

Model III s 75.00 

Autofile Model II s 75.00 

Model III s 60.00 



.-.■■ : :; : -—I: "vk" ':" ' "My tl •?•? **!'?>m 

: :: :-: ;:!:..H:: : - : ;::i;H:!:: : -l:, t-SKur^u. H* 



Time saving power 
at your Fingertips. 



CALL TOLL FREE: 



1-800-543-4628 

OHIO RESIDENTS 

CALL COLLECT: (513) 891-4496 



..Ohio 45236 



'See List ol Advertisers on page 402 
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least with the Kit they throw in a book. 

When you receive the Extended Color 
Basic (ECB) ROM it will be packed in a 
plastic tube or on a piece of foam. Leave it 



there until you install it. The device is 
static sensitive— not as frighteningly 
delicate as earlier integrated circuits, but 
still be cautious. 
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Photo 5. Video output jacks tit between television output and channel select switch. 
Carpentry should duplicate roughly the computer's style. 




Photo 6. Complete lowercase board fits into VDG socket and around support port, and 
rest on banks of RAMs. When ICs are soldered to the board directly (they are socketed in 
this prototype), the RFI shield cover can be fit back in place. 



Before attempting to install ECB, you 
need a computer with 16K memory. If 
yours is 4K, then order a set of 16K 
memory chips. These should be type 41 16, 
uPD416, or equivalent (generally adver- 
tised as TRS-80 compatible memory ex- 
pansion). Expect to pay about $18 a set of 
eight, but certainly no more than $25. Pur- 
chase 200 to 250 nanosecond (nS) memo- 
ries. These will permit you to operate your 
computer successfully at twice normal 
speed. High speed is a software action, by 
the way, put in effect by entering POKE 
65495,0. A 4K machine will probably hang 
up. A 16K machine might lock up too. 
More later on how to do it. 

The Installation 

When you have your ECB chip and eight 
16K RAMs at hand in their original pack- 
ages—together with a Phillips screwdriv- 
er, a nailfile, and a 4-inch piece of alumi- 
num foil— you can begin. First, open your 
computer and flip it over. There are nine 
visible screw holes, but (on the units I 
have seen) only seven are used. There is 
an additional hole under a label which 
warns, "Opening case will void warranty. 
See owner's manual for warranty informa- 
tion." Yes, you will void the warranty if you 
open the machine, so don't proceed un- 
less you are willing to take the risk and 
save over $100. When you open it you will 
find little to damage. Unlike the Model I, 
this machine is not delicate; it is physical- 
ly sturdy and all sections are made to 
unplug, snap apart, or unscrew. 

Unplug the machine, slowly flip the ma- 
chine upright, slide your fingernails under 
the lip of the front cover, and pull the unit 
apart gently. Since it snaps and locks to- 
gether, expect it to resist at first, then pop 
up; lift the cover up and back, and set it 
aside. 

You will see: the keyboard, resting on 
posts and attached underneath with a re- 
movable cable; a circuit in a metal case at 
the very back; the cartridge connector at 
the right rear; and a large area covered by 
a metal shield (Photo 1). It is inside this 
shielded area that the ECB chip and RAM 
will be installed. 

Lift the keyboard up off its posts, pull it 
forward about an inch, and look for some 
white plastic straps holding the metal 
shield in place; these may not be present. 
If they are, clip them off. Slowly work the 
metal cover up and off, examining how the 
shield is fitted in place so you can replace 
it later. Inside you will find several signifi- 
cant parts in large, 40-pin packages. Read- 
ing clockwise from the back right, these 
are: the 6809E central processing unit; 
below it a memory manager (Synchronous 
Address Multiplexer), type 6883; next, a 
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row of eight RAM chips; up from there, two 
6821 port chips which handle keyboard, 
cassette, audio, and other input/output 
work; and a 6847 Video Display Generator. 
Note whether the 6847 is in a socket or 
soldered to the board; we will return to it 
later. Finally, there is an empty 28-pin 
socket, and to its right a socket contain- 
ing Color Basic. 

Referring to Photo 2, find the two small 
blue or black jumpers (one is to the right of 
the S.A.M. and the other is between the 
6821s). Associated with each jumper are 
three pins in a row, and the jumpers that 
currently connect the middle pin to one 
marked 4K on the board. The other pin is 
unconnected. To begin the conversion to 
16K, lift each jumper off and move it so it 
connects the middle pin to the 16K pin, 
leaving the 4K pin free. Now slip the nail 
file under each 4K RAM, rock it slowly 
from each end alternately, and lift it out of 
the socket. Place it, pins down, on the 
piece of aluminum foil. 

Remove a 16K RAM from its package, 
holding it by the ends of the integrated cir- 
cuit (not by the pins). Notice that one end 
has a notch, dot, or both. Orient it in the 
same direction as the other 4K RAMs (the 
notch pointed away from the keyboard) 
and carefully insert it In the socket. Be 
sure that no pins slip outside the socket or 
bend underneath the IC. Do this for each 
memory chip in turn. Double-check your 
work, make sure all your tools are out of 
the way, plug it in, and power up; you need 
not replace the cover for this test, but 
keep your hands out of the works. 

The screen will clear, but the Color 
Basic sign-on message will take a little 
longer than normal to appear. Enter 
PRINT MEM, and you should discover bet- 
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Fig. 1(a). Video buffer amplifier printed cir- 
cuit layout, viewed from above through 
the board, and (b) parts mounting dia- 
gram, viewed from above. 
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Fig. 2. Video buffer amplifier schematic. 
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I BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 

EXTENDED BASIC 

is spent 
inserting 
my diskette." 

SCOTT ADAMS PRES. OF ADVENTURE INTL. 



Reduce your programming time up to 75°o using Snappwares' 
EXTENDED BASIC. The program is written entirely in machine Ian 
guage Tor Super Fast execution and is fully integrated into the 
Model II BASIC interpreter, requiring no user memory and no usei 
disk space. Here are just some of the ways EXTENDED BASIC can 
make your programming task easier: 

• Quick way to recover BASIC program following a New. System 
or Accidental re boot. 

• Single character abbreviations for the most frequently used 
commands. 

• Six single key stroke commands to list the first, last, pre 
vious. next or current program line. Even edit current line. 

• A powerful cross reference facility with output to display 
and or printer. 

• Ability to trace a variable through the code. 

• Determine easily if a variable is in use. 

• Permits programmer to display and or print the value of any 
01 all program variables. . 

• identifies the variable type for all variables. 

• Lists each element of any array separately. 

• Pioyram line renumbering facilities allowing for spec il icdtion 
hi .tii uppei limit of the block of lines to be renumbered, relo 
cation of renumbered blocks of code and duplication of 
blocks of code. 

• Cross reference facility for key words and character strings 
including global replacement of key words. 

• Compresses your BASIC program to an absolute minimum by 
removing extraneous information. 

• Merge lines 

• Deletes statements that could not be executed. 

If you consider your programming time to be worth money, call 
us and let us show you how to get more of it. 



MODEL II 
MODEL III 



*-'■'■} I* ' - : >i\ ■'■' 



:.:■ 



...c 5200.00 

SI 25.00 



Time saving power 
at your Fingertips. 

CALL TOLL FREE. 



0HI0RESIDENT5 

CALL COLLECT: (513) 891-4496 



Cinti.. Ohio 45236 



• See List ol Advertisers on page 402 



80 Microcomputing, November 1981 • 81 



^APPLICATIONS 



ter than 14K available memory (the screen 
uses your regular memory, so this takes 
away from memory available for Basic 
use). Problems will show as a locked-up 
machine, only 4 K of memory still reported, 
far under 14K memory reported, or ran- 
dom crashing. A locked-up machine indi- 



cates RAM inserted backwards, pins 
crushed underneath or outside sockets, 
or (least likely) a bad memory chip. 
Recheck your work. If 4K memory is still 
reported after PRINT MEM, make sure the 
two jumpers are properly placed in the 
16K position. Too little memory reported 



«°§3 



might point to a bad memory chip; power 
up several times and see if this value 
changes, suspect a chip which is too slow 
(be sure to get 200 nS RAMs). Finally, if the 
system randomly crashes, you probably 
have a RAM which is not fully inserted in 
the socket; check again. 
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F/'g. 4. Schematic of the lowercase modification for the Color Computer. 



02 • 80 Microcomputing, November 1981 



5^APPtlCATI0IIS 



If all is well, remove the line cord. This Is 
important, because the power supply 
transformer inside the case is always 
"hot." Insert the ECB ROM chip in the 
empty socket next to the Color Basic 
ROM. Position it carefully, with the notch 
in the same direction as that of the Color 
Basic ROM. Press It Into the socket, being 
sure not to bend any pins underneath or 
letting any slip outside the socket. You 
have just performed Radio Shack's $20 
installation. 

Plug in and power up the computer. 
Your screen will now display an Extended 
Color Basic copyright notice. PRINT MEM 
will report 8487. 8487 on a 18K machine? 
Yes, because Initially ECB sets aside 8K 
of memory for high resolution use. 
PMODE0:PCLEAR1 <ENTER> will give 
you about 14K of usable RAM. 

Now power down, unplug the machine, 
and look over your work. Replace the 
metal cover. This is important because It 
prevents your television or radio from 
picking up interference from the comput- 
er. Place the keyboard back on its pegs, 
replace the cover and re-insert the screws. 
Your 18K ECB computer is complete. 
Wrap up the package of 4K RAMs in the 
aluminum foil; you may be able to trade or 
sell them someday. 

About High Speed 

As I mentioned, the Color Computer 
has a built-in high-speed mode, access- 
ible by POKEIng 85495 with any value. 
POKE 85494,0 will return to normal speed. 
With 200 to 250 nS memories, your com- 
puter should be able to run at high speed, 
which will be evident if the cursor flashing 
rate increases. The hangup is the pair of 
8821 port chips which handle keyboard 
scan, cassette I/O, certain aspects of 
video, etc. These are rated for 1 MHz oper- 
ation (the Color Computer normally oper- 
ates at 0.9 MHz), and occasionally won't 
do the Job at 1.8 MHz. Try ft and see; if you 
are sure you'll need the higher speed in 
the future, then opt for replacing the 8821s 
with type 88A21, a faster device. 

32K RAM for the Adventurous 

Little effort is required to add another 
18K of memory. Some solder, and iron, 
needlenoee pliers, wire snips, one 33-ohm 
resistor, a few inches of light solid wire, 
nine pieces of wire Insulation, three feet of 
aluminum foil, and another 16K RAM set 
are all that is necessary. You also must 
have time, patience, dexterity and per- 
haps s magnifying lens, but the process Is 
not formidable. 

In short, you will fit each memory IC 
atop those already In the computer, and 
solder it there. One pin will be connect- 
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1 BOUGHT IT 

"My biggest loss 
of programming 
time using 
Snappware's 
EXTENDED BUILT IN 
FUNCTIONS is 
spent inserting 
my diskette." 

SCOTT ADAMS PRES Oh ADvEHTURE IMTL 



Snappwares" EXTENDED BUILT IN FUNCTIONS 15 a collection or much 
needed additions to the Model II BASIC interpreter which greatly 
extends its convenience and utility. The following features 
become a part of your BASIC language and provide the enhance 
menls without reguinng any additional memory or dish space. 
rhe heart of our EXTENDED BUILT IN FUNCTIONS is an in-memory 
son routine, guaranteed to be the fastest general m-memory sort 
on the market, or your money back. Along with this, you also 
receive these EXTENDED BUILT IN FUNCTIONS: 
PEEK- Extract one Byte from a specified memory location. 
PEEKW- Extract TWO Bytes from a specified memory location 
POKE- Replace contents of a specified memory location with 

a supplied value 
P0KEW- Replace contents of a specified memory WORD with 

the supplied value 
XDAT- Extract current date in format 
XTIM- Return lime of day to format 
ETIAA- The difference between two times 
FILES- Return the number of file blocks currently allocated 
SRT- Sort one or more arrays into a specified seguence 
OPEN- Open a seguential file in extended mode 
ROW- Protect a portion of the video display from scrolling 
CLEAR- Specify ihe number of file blocks to be allocated when 

you specify high memory and string space 
ERASE- Erase all arrays 

CURSOR- Specify size and display format of cursor 
/WAX- Return largest value from user supplied list 
WIN- Return smallest value from user supplied list 
FMT- Arrange data into a string variable as with PRINT USING 

If you consider your programming time to be worth money, call 
us and let us show you how to get more of it. 
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MODEL II 
MODEL III 



S 100.00 

S 75.00 



. ! : : : =i: ::^-i: :-: : : : :i: - : Time saving power 
■;-: : J.Q.:;'^. at your Fingertips. 

CALL TOLL FREE: 

wfif l| I -800-543-4628 

OHIO RESIDENTS 
:=:: CALL COLLECT: (513) 891-4496 



ti. Ohio 45236 
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ed not to the RAMs below, but together 
with the other RAMs in the new set. A re- 
sistor will run from the SAM chip to this 
connection in order to select the second 
16K block of memory. 

For safety, line your worktable or desk- 
top with aluminum foil, and set your tools, 
parts, and computer on it. Ideally, use a 
non-static felt workstation (#WS-9010, 
sold for about $15 plus shipping by Wes- 
corp, 1155 Terra Bella Avenue, Mountain 
View, CA 94043), which includes a ground- 
ing wrist strap. Open the computer case 
according to directions above, and put the 
top and metal shield aside. For reference, 
locate the eight memory chips {socketed, 
nearest the keyboard), and the Synchro- 
nous Address Multiplexer (SAM, the 
40-pin chip U10 just above and to the right 



of the memories). 

Examine your new set of 16K RAMs. If 
they have gold pins, they should fit in 
place as is. Otherwise, you will see that 
the pins fan out slightly from the body. 
Keeping your arm grounded against the 
aluminum foil, hold the sides of the IC be- 
tween thumb and forefinger, and squeeze 
until the pins are perpendicular to the 
body or canted very slightly inward. Keep 
the pins in line with each other. Orienting 
the notch in the proper direction, tempo- 
rarily fit one of these RAMs atop one of 
those in the computer. Make sure the pins 
line up precisely with those already in 
place, that they fit snugly, and that no 
pins slip in between others. Form each 
memory chip this way. 

Identify pin 4 of the new memory chips. 
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Fig. 3. Four wires connect the video buffer amplifier to main PC board at R16 (output to 
amp), R45 (12-volt power supply), metal cage wall (ground), and phono jack center pin 
(video output). 
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Photo 7. Latest character generator used for the Model I TRS-80 produces 5-by-7 dot 
matrix characters with descenders. 



Looking at the top of the chip with the 
notch facing away from you, this is the 
fourth pin down from the upper left. With 
the needlenose pliers, bend this pin gently 
(not sharply) out and upward so it rises 
above the top of the IC. Do this for each of 
the eight chips. 

There are three ways to continue with 
this project, depending on your soldering 
technique. 

• First method: Fit all eight memory 
chips into place. Check that in bending 
pin 4 you have not altered any other pins. 
With a small, hot soldering iron, flow a 
minimal amount of solder on pins 1,8 and 
9. It should join the new chip with the one 
below it; be careful not to melt the socket 
of create globs of solder. 

• Second method: Fit all eight memory 
chips in place. With a small, hot soldering 
iron, flow a minimal amount of solder on all 
pins (except pin 4, which is pointing up- 
ward). Solder alternate pins as you work 
your way around the chip; allow time for it 
to cool if it feels uncomfortable to the 
touch. Be very careful not to melt the 
socket or create solder shorts or globs. 

• Third method: Remove the eight 
memory chips from the sockets, piggy- 
back the new chips on these, and solder 
them pin-for-pin (except pin 4) on the work- 
bench. Since they are out of their sockets, 
you will have to be doubly careful not to 
overheat them. Then re-insert the piggy- 
back pairs in the sockets, orienting them 
correctly. 

A wire must be connected to ail the pin 
4's. The easiest way is to snip off a piece 
of bare wire long enough to connect all 
the pins together in a line. Solder this wire 
to the first memory chip to the left, then 
slip a piece of insulation on the wire. This 
piece should be long enough to cover the 
wire only as far as the next chip. Solder 
the wire to the next pin 4, slip on another 
piece of insulation, then move on to the 
next. One exception: between the fifth and 
sixth memory chips (U23 and U20), leave a 
little extra wire and put two shorter pieces 
of insulation in place. 

You will now use the 33-ohm resistor. 
Slip a piece of insulation over each end so 
about 1/8 inch of bare wire is visible. 
Solder one end to the point in the middle 
of the two pieces of insulation between 
the fifth and sixth memory chips. Locate 
the SAM chip (U10); identify pin 40 (the top 
right-hand pin), and count backward until 
you get to pin 35. The other end of the re- 
sistor will comfortably reach this pin. Us- 
ing a very small amount of solder, attach 
the other end of the resistor here. 

Refer to Photo 2 for details on this mod- 
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ification. The arrows show connection 
points for the 33-ohm resistor. Cavalierly I 
have left off the insulation on my connec- 
tion wire; don't do that, because the RF 
shield cover can short against the wire. 
The additional bank of 16K memory is now 
ready to use. Plug in and power up the 
computer. The sign-on message should 
take a while to appear; when it does, enter 
PRINT MEM. Over 24K of memory should 
be revealed, the rest (as I mentioned 
above) being reserved for high-resolution 
graphics. 

Problems and Causes 

Problems? They may include: a locked- 
up machine with no sign-on message; ran- 
dom crashing and lockup after the sign-on 
message; no evidence of the second 16K 
bank of memory; an improper amount of 
memory display upon PRINT MEM. 

Probable causes: A locked-up machine 
points to memory inserted backwards, 
shorts between pins, memory lifted out of 
its socket, or memory damaged by heat 
(the last is unlikely but possible). Solder 
globs or hairs on the SAM chip will also 



cause this. Random crashing after sign- 
on probably results from pins not seated 
properly on the memory chips below, not 
fully bent, corroded, or otherwise not mak- 
ing proper contact. No evidence of the se- 
cond 16K memory bank is caused by one 
pin not making any contact at all with the 
one below, or a bad solder connection on 
the 33-ohm resistor. An Improper amount 
of memory may be caused by a bad or 
slow memory chip, or, if the displayed 
amount of memory changes, by an Im- 
properly seated or soldered chip. Replace 
the RF shield and computer cover. The 
32K memory modification is now 
complete. 

By the way, here's the theory of what 
you have done. All the memory lines (ad- 
dress, data Input, data output, refresh/ 
select, and power) are Identical but one. 
Therefore, the second set can be paral- 
leled (piggybacked here) on the first set. 
Pin 4 Is the only exception, and It Is the 
memory address line MA7. Pin 35 of the 
SAM chip provides this signal whenever a 
memory address from 4000 to 7FFF 
(decimal 16384 to 32767) is requested. 



Sinking SAM 

Look again at Photo 2. Something is at- 
tached to the top of the SAM chip, with a 
white substance smeared on it. After your 
computer has been operating for a while, 
place your finger on the SAM chip; if it Is 
uncomfortably hot, you may want to ex- 
tend Its life with a heat sink. Only two ma- 
chines I have seen (felt?) have this heat 
buildup in the SAM, so you may not need 
this mod. 

Obtain a finned, black, TO-220 heat sink 
and flatten the fins somewhat. With white 
silicone heat-sink grease, cover the top of 
the SAM and the bottom of the heat sink. 
Press it In place, fins up; the grease will 
hold it there. Replace the metal RF shield. 
It should Just touch the heat sink If you 
have bent the fins properly. 

Sweetening the Video 

The television (RF) output of the Color 
Computer is excellent, and if you have no 
access to a color monitor, it gives a fine 
video image. But there is a purity in cou- 
pling video directly to a monitor without 
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Fig. 5. Complete printed circuit board layout for the Color Computer lowercase modification. Post hole must be cut before mounting 
parts on the board. Note that this is the bottom of the PC board, viewed from above and through the board. 
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converting to RF and back again at the 
television. Further, the signal sent out by 
the Color Computer is too weak to power a 
number of sets for display purposes or 
group use, but the video buffer/amplifier 
shown here can run a dozen sets or more. 
High-resolution graphics are more finely 
detailed, particularly on black-and- 
white sets. 

A printed circuit board layout for a 
^-inch-square board that affixes to the 
video modulator case with double-face 
tape is shown in Fig. 1. The schematic for 
a simple transistor buffer/amplifier which 
attaches ahead of the RF modulator and 
provides a clean, fast, composite video 
output is shown in Fig. 2. The unit can be 
assembled on perfboard as well; be sure 
to keep leads short. Radio Shack sells 
2N3904 transistors (276-2016, or in packs 
of 15, 276-1603), and the resistors. A com- 
mon electrolytic capacitor may be used 
(Shack number 272-1024), though I use a 
bead tantalum type for cleaner signal (no 
longer available from Radio Shack). 

For video output, I Installed a pair of or- 
dinary phono jacks similar to those used 



for the computer's TV output. Solder can 
be flowed directly to the modulator's case 
to ground these jacks, but don't solder the 
cover in place (in case video alignment is 
needed at some future date). All that re- 
mains is the carpentry. The plastic case is 
soft, so it can be cut easily with a fine cop- 
ing saw blade and filed smooth. Photos 3, 4 
and 5 show the results of mounting the 
video buffer/amplifier, fastening the 
jacks, and cutting the case. The locations 
where the four leads from the video buffer/ 
amplifier must be soldered (input, output, 
12-volt supply, and ground), are identified 
in Fig. 3. 

If you have a parts "junk box", this is a 
free project; otherwise, the investment is 
about $2. If you have no time at all, a com- 
plete kit of parts is available from MSB 
Electronics (see the end of this article for 
details). 

Real Lowercase 

If the Color Computer has any truly ser- 
ious deficiency, it is the lack of reason- 
able lowercase letters. For programming 
and prompting, that lack is not too bad; 
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but for text editing of any kind, a screen 
full of black letters and green letters in 
black blocks is not merely inconvenient, it 
is ridiculous. You can provide legitimate 
lowercase with the Color Computer, 
though by no means as easily as on the 
Model I. 

On the Model I, the lack of lowercase 
characters was merely a result of the ab- 
sence of one bit of video storage. By ad- 
ding that bit, lowercase characters al- 
ready present in the Model I's character 
generator became available to the user. 
The Color Computer uses a vitally differ- 
ent method of accessing characters: the 
6847 Video Display Generator (VDG). 

Within this integrated circuit the char- 
acters are created, and both coarse and 
high-resolution graphics modes are pro- 
duced. Together with the SAM chip, flick- 
er-free displays of alphanumerics and 
graphics are possible. The VDG contains 
an internal 64-character generator, and no 
lowercase letters. To simulate them on 
the Color Computer display, inverted char- 
acters are selected when bit 6 goes low. 
Software converts the internal character 



set (00 to 1F) to correct ASCII equivalents 
with green letters on black for lowercase 
(60 to 7F), and the inverted character set 
(20 to 3F) to correct ASCII equivalents with 
black letters on green for uppercase (40 to 
5F). The numbers and symbols from the 
black-on-white set are not printed. If this 
sounds a little confusing, it is. Enter this 
short program: 

10 CLS:PRINT:PRINT:PRINT:PRINT 

20 PRINT:PRINT:PRINT:PRINT 

30 FOR X= 1024 TO 1151 

40 POKE X,Y : Y»Y+ 1 : NEXT 

50 FORX-0TO127 

60 PRINT CH R*X); : N EXT 

70 GOTO 70 

The top four lines in the first group show 
the character set actually received by the 
processor; the second group of lines pre- 
sents the character set converted to nor- 
mal ASCII by the Basic screen display 
routines. 

When bit 7 is set high (hex 80 to FF), the 
semigraphics mode is selected, allowing 
eight groups of graphics characters to be 
displayed. These graphics blocks are 



identical in both displays above since 
standard ASCII values are not assigned to 
these codes. 

Table 1 describes the 6847 display gen- 
erator and the functions of each of the 
pins, and how the VDG fits into the Color 
Computer system. Each input or output 
used for the modification will be des- 
cribed later. 

The key to displaying an independent 
set of characters is the INT*/EXT connec- 
tion (pin 31). According to the Motorola 
data sheet, this mode "uses an external 
character generator as well as a row 
counter. Thus, custom character fonts 
and graphic symbol sets with up to 256 
different 8x12 dot 'characters' may be 
displayed." To display lowercase on the 
Color Computer, then, the VDG must be 
fed information by some external device 
(such as the Model I character generator); 
a row counter must be added to select the 
lines of dots to be displayed on the 
screen; and all other modes of graphics 
must be maintained unchanged for com- 
patibility with normal Color Computer 
operations. Ideally, the whole thing 
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Fig. 6. Jumper arrangement for lowercase board, viewed from above. Jumpers should be soldered in place before the integrated cir- 
cuits are mounted. Note that this figure will produce a double sided PC board. 
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should be switch-selectable. 

The complete schematic for a lower- 
case addition is shown in Fig. 4. The VDG 
Is intercepted and connected to several 
outboard integrated circuits. The heart of 
the external selection process is the pair 
of 74LS1S7 multiplexers in the center of 
the diagram. A multiplexer is like a traffic 
light— only one pattern of vehicles may 
proceed at a time. In this case, eight lines 
of data are switched from the internal 
mode (the multiplexer A inputs) to the ex- 
ternal character generator (the B inputs). In 
charge of this selection process is data bit 
7 (DD7, pin 40) together with the alphanu- 
meric/graphic select line (A*/G, pin 35). 
When alphanumeric mode is selected, the 
signal from DD7 (Inverted by the 74LS04) 
passes through the 74LS125 buffer. If DD7 
Is high, sem (graphics are selected (coarse 
graphics with hex codes 80 to FF), which 



causes the multiplexers to connect their A 
inputs to the Y outputs. By following data 
lines DDO through D06 from the socket, 
you can see that these seven signals will 
pass through the multiplexer directly to 
the VDG. The eight A input is tied high, 
and passes through an inverter. This eight 
signal opens up the other 74LS1 25 buffers 
to the INV signal (pin 32) and the INT*/ 
EXT signal (pin 31). In other words, when 
semigraphics are selected, all signals pro- 
ceed normally to the VDG, as if there were 
no other circuitry in place. When high- 
resolution graphics are selected (A*/G is 
high), the result is the same — completely 
normal operation of the computer. 

When line DD7 goes low (meaning 
alphanumerics are being printed on the 
screen), the B inputs of the multiplexers 
are connected through the Y outputs to 
the VDG. Five dots are output from char- 



Signal 


Pin 


Description 


Name 


Number 


of Function 


Vcc 


17 


Power supply voltage, +5v. 


Vss 


1 


Power supply ground. 


CLK 


33 


Color burst clock Input, 3.58 MHz, provided by the 
SAM chip. 


DA0-DA12 


22-26, 


Address lines to display video memory, set to high 




13-16, 


Impedance during MS*. These address lines are 




10-21 


not used in the Color Computer since the SAM chip 
provides the characters as needed. 


DO0-DOS 


3-8 


Data from display memory, provided by the SAM chip. 


006 


2 


Data from display memory in graphic mode, color data 
in semigraphic mode. Tied to the INV line m the Color 
Computer. Information is provided by the SAM chip. 


0D7 


40 


Data from display memory in graphic mode, color data 
In semigraphic mode. Provided by SAM. 


phase a 


11 


Chrominance and luminance analog 


phase B 


10 


outputs to video modulator chip 


Y 


28 


MC1372, and chroma bias reference 


CHB 


9 


to phase A and phase B levels. 


RP- 


36 


Flow preset timing output for an external character 
generator. Not used in the Color Computer. 


HS" 


38 


Horizontal sync timing output for an external 
character generator, and used by the SAM chip for 
memory timing. 


INV 


32 


Inverts video in alphanumeric mode. Normally in invert 
position for uppercase letters in the Color Computer, 
and tied to DD6. 


INTVEXT 


31 


Switches to external character generator in alpha 
mode and between semigraphics modes 4 and 6. 
Handled by SAM. 


A'/S 


34 


Switches between alphanumeric and semigraphics 
modes. Handled by SAM. 


MS' 


12 


Memory select line input disables address buffers. Not 
used In the Color Computer. 


A'/G 


35 


Switches between alpha/sem (graphic modes and 
medium/high-resolution display modes. 


FS* 


37 


Field synchronization output goes low at bottom of 
display area, and returns high at lop of video display. 
Not used in the Color Computer. 


CSS 


39 


Color set select chooses colors for alpha display in 
semigraphics 6 and full graphics mode. 


GM0-GM2 


30,29.27 


Select for one of eight graphics modes. Color Com- 
puter software does not access Ihem all, although the 
hardware makes them available. 


Table 1. 6847 Video Display Generator pin assignment in the 


Radio Shack Color Computer. 



acter generator lines DO to D4, as selected 
by the address inputs A0 to A6. The com- 
puter's video display is made up of 12 
rows of dots per screen line. Because the 
character generator must know which set 
of dots to output for each line, a counter is 
needed which counts from 1 to 12 in bi- 
nary to select these dot rows. Since the 
Model I character generator is only a 5 x 7 
matrix of dots, however, this chip must be 
deselected (turned off) during the final 
counting stage. 

Count Sheep Instead 

All of this counting is done by the com- 
bination of a 7493 binary counter and a 
7473 flip-flop. The 7493 counter is config- 
ured to count from one to 16. Display scan 
lines are selected by sending a clock 
signal provided by the horizontal synchro- 
nization (HS*) pulse, and the count is 
reset to zero (cleared) by the row preset 
(RP*) pulse, where it begins counting 
again. This produces a complete row of 
characters. Counting stops completely 
when the video beam is out of the frame 
by the field sync (FS*) signal, and count- 
ing begins again when the first character 
is fetched from memory (DAO). In fact, this 
counter only counts to 12 before it is 
cleared for the next screen line. Since this 
character generator produces a 5 x 7 ma- 
trix, the chip must be turned off to avoid 
redisplaying the first five lines of any let- 
ter immediately below it. The generator is 
turned off by bringing the chip select line 
(CS*) high; a count from 8 to 12 brings the 
QD output of the 7493 high— perfect for 
deselecting the character generator at that 
point. The five resistors hold the character 
generator's data outputs low during the 
deselection phase, and assure that the 
characters will be presented on a clean 
screen, and not one filled by characters 
underscored with black rectangles. 

The final difficulty is the conversion 
process accomplished by the software. 
As noted earlier, since the internal charac- 
ter generator uses only six bits of data, 
these characters fall outside the normal 
ASCII positions. They are input to the CPU 
which then performs a software change to 
make them compatible with usual ASCII 
codes. The Model I character generator, 
however, provides proper ASCII codes. To 
make the character generator look like the 
VDG, then, the lowercase must be 
swapped with control characters, 
numbers must be swapped with lower- 
case, and uppercase remains the same. 
The 74LS86 XOR gate configured as an 
exclusive-NOR gate correctly swaps 
signals that enter address line 5; DD5 is in- 
verted and presented to address line 6. 
This conversion (see Table 2) provides the 
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BASICS ll/CMD Mod I or III $69.95 

BASIC/S II is a BASIC compiler (or a powerful subset of TRS-80 Disk BASIC 
(Mod i/lll) which is itself written in BASIC, but now is a stand alone / CMO file 
compiled by BASCOM(c), and is FAST! (previously sold as BASlC/S 3 1) It runs 
under almost ANY DOS. Mod I or III (as do the /CMD files it generates). 

BASIC/S II will compile BASIC programs up to about 10K in size (but since 
one compiled program can run another with no loss of variables, this is not a 
serious limitation). Variables allowed are integers and strings (A-Z and AS-ZS) 
and also arrays of integer and string (1 or 2 dimensions). Array names can be 
any length, with all characters significant. Integer arithmetic is limited to 
addition, subtraction, multiplication, and division with at most two operands on 
the right hand side (eg A=B*C or Z=D/F). Array elements may be used here as 
usual, as may constants (as in A=ARHAY (7) *5. for example) 

Most Level M string functionsare supported :INSTR,STR$,VAL,CHR$,ASC. 
LEFTS, RIGHTS. MIDS, INKEYS. Complex string formulae are not allowed (thus 
you cant say A$=LEFT$ (XS+YS.2). you would need to say something like 
BS=XS+YS:A$=LEFT$(BS.2|. instead. 

Disk I/O IS supported, both sequential and random (with LRL < 256 as well) 
You can have up to 1 files open at one time, and two of them may be random 
files. Disk statements that are supported include OPEN, CLOSE. LINE INPUT 
#. PRINT • FIELD. LSET. GET. PUT. LOF. EOF. CVI. and MKIS 

LZAP/CMD Mod I or III (LDOS only) $39.95 

LZAP/CMD is the most powerful, easy to use ZAP routine ever written, and it is 
for LDOS Mod I or III' LZAP uses the resident drivers of LDOS. thereby taking 
FULL ADVANTAGE OF THIS POWERFUL OPERATING SYSTEM. LZAP will 
auto-configure itself to drive capacity. It will support any • of drives from 0-7. 
any cylinder count up to 255. and any sector # to 255. Will page between 
double sided drives. 8" drives, LX-80. and hard drive. 5" floppies of all sizes at 
same time without getting lost! 
Contains these features. 
(R) ead (E) xit (D) ebug) 

(A) scii Modify (C) compare (G) o Directory 

(M) odify Hex (W) rite (B) Locate 8yte 

(F) ind file (H) ash code (L) ocal search 

(S) earch Global (X) Escape (T) oggle 
(space bar) brings up a command menu for learners and QUICK reference at 
any time! Also contains an ERROR DICTIONARY that can be turned off to over- 
ride those crashed or protected files for examination. 

QSD Utility Disk #1 for LDOS (c) (Mod I only) $69.95 

Increase the speed and power of LDOS' 1 Contains: 

LZAP/CMD* RESIOELD/CMD* CLONE/CMD 

CHANGE/CMD DCAL/CMD" VDISK/CMD* 

STAT/CMD* BINHEX/CMD* 

And also contained on the disk, by Kim Watt (author of Super Utility) 

LCOPY/CMD RECOVER/CMD DVORAK/CMD LPURGE/CMD" 

•means works in Double Density 




SUPER UTILITY! 

This fantastic 24K. stand alone machine language program allows rapid and 
easy access to controlling data Super Utility, written by Kim Watt of Breeze 
Computing. Inc. comes with 30 pages of easy to understand, step-by step 
instructions assuring maximum use of your valuable time 

Seven main menus combining 43 major programming or disk repair options 
makes this single program incredibly versatile, rot fast and easy reference we've 
capsuled some of the best options below 



(R) emove Password 
(I) Go Extent 
(Z) ero buffer 
(P) rint screen 
0-7 page drive 



ZAP 

Display Sector (Disk. File) 

Display Memory 

Compare Disk Sectors 

Copy Disk Sectors 

Verity Disk Sectors 

Zero Disk Sectors 

String Search 

Sector Search 

PURGE 

Kill Selected Files 

Gel Disk Directory 

Zero Unused Directory E nines 

Zero Unused Granules 

Remove System Files 

Kill By Category 



DISK FORMAT 

Standard Format 
Format Without Erase 
Special Format 
Read Address Marks 

DISK COPY 

Standard Copy With Formal 
Standard Copy Without 

Format 
Special Copy |To back up most 

protected disks - lor ongional 

purchasers use only) 

TAPE COPY 

Back up most TRS-80 tapes. 

no mailer how it is record- 
ed (tor original purchaser 



DISK REPAIR 

Repair Gat Table 
Repair Boot 

Read ftotect Directory Track 
Recover Killed Files 
Check Directory 

MEMORY 

Move Memory 
Exchange Memory 
Compare Memory 
Zero Memory 
Test Memory 
Input Byte From Pon 
Output Byte To Port 
Memory To Disk 
Disk To Memory 



lDQS 



MOD I OR III $149.95 

LDOS it tha latMt generation off sophisti- 
cated operating systems for the TRS-tO 
computers. LDOS Is completely docu- 
mented in e 2S2 -page reference menus I. 
Total support is provided from some of 
the most knowledgeable people in the 
Industry. You owe It to yourself to inves- 
tigate this system. Call or write for deteits. 



ST80III 



Change File Parameters 

Residing from 4.000H to9FFFH, Super Utility has its own I/O dnvers and does not use 
any ROM or DOS calls So go to the heart of your protected disks and read and/or modify 
data using simple 1-key commands Now time is on your side* 

To Order . . . ' Send check or money order for only $49 9S plus $2 SO shipping and handling 

SUPER UTILITY 2.0 (SINGLE/DOUBLE DENSITY) 

S74.95 



EOflS 



EDAS is a sophisticated Editor 
and Assembler for the '80 Model 
I or Model III. All commands 
and SOURCE text can be enter- 
ed in upper or lower case. Direct 
assembly for memory or mul- 
tiple disk files by means of "GET 
assembler directives provides 
the capability of assembling 
huge source files with 30,000 
bytes of symbol table. Direct 
assembly to disk or memory for 
faster debugging operations. 
DOS functions DIR, KILL, and 
LIST are available from within 
EDAS. The Editor provides 
block move & global change 
withBASICsyntaxediting. EDAS 
provides power with ease of 
use. $79 + $S&H. 



The Ultimate Communications Package: 

Price $150.00 
The package includes the ST80-III " smart terminal program 
and nine other communication utilities: Fully documented 
with easy to follow instructions, ST80-III " is by far the best 
terminal product on the market today. 

TWO Printers on ONE Computer 

* FOR MOD 1,11, AND III... 
+ PARALLEL ONLY 

* SCHOTKEY CIRCUITRY 

* FULLY BUFFERED... 

* SWITCH SELECTABLE... 
$139.95 IN STOCKI 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMON8 EXPRESSWAY, SUITE 104 

DALLAS, TEXAS 75229 

PHONE (214) 494.2976 

nts Ml Scops* »t MIC RONET 70130,203 ^27 r.«cxxiiMho* 

Tiieeaurk! of lmd» C«p Poslift 

MENTION THIS AD AND DEDUCT 5% 




ADD $2.50 
SHIPPING (USA) 



•See List of Advertisers on page 402 
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proper non-ASCII codes needed by the 
Color Computer software. 

Some considerations remain. Ironical- 
ly, the very attractive type font of the 
Model I character generator (actually a 
Motorola 6670 series shifted generator, 
type MC6673) contains a few non-stan- 
dard characters in the high upper and low- 
ercase positions (see Fig. 9), and two dif- 
ferences between generation of the Model 
I character chip. Especially unfortunate is 
the replacement of the carat or up-arrow 
with a down-arrow (!) and the replacement 
of the square brackets with an up-arrow 
and left-arrow. Programming in Basic 
looks mighty strange when exponentia- 
tion is represented by a arrow pointing 
down, and when program tracing frames 
line numbers with up and left-arrows. For 
these reasons, Fig. 4 shows an optional 
restore switch. A 1 K resistor pulls the mul- 
tiplexer select line high when the external 
generator is unwanted; the entire display 
system then looks unmodified. The switch 
mounts comfortably and without interfer- 
ence between the cassette and printer 
output jacks. 
Another minor bother is the fact that 



the Model I character generator with des- 
cenders shifts the entire character set up 
one line on the screen in order to accom- 
modate the descending characters when 
they come along. This means, when al- 
phanumerics and graphics are mixed, the 
tops of the letters bump into the bottom of 
any graphic above them. They don't over- 
lap, but they do touch, just as they do in 
the Model I. There are two solutions to 
this, one ugly, and one very attractive. 

The first solution is to use the old Radio 
Shack character generator (if you can get 
one), without lowercase descending tails. 
A more elegant solution is to use a 7 x 9 
matrix character generator, Motorola type 
66740, which matches all the characters 
in the Color Computer set correctly, but 
provides lowercase with descenders and 
a much prettier 7x9 matrix of characters. 
Since there are more rows of dots to 
display, the 66740 device has data outputs 
D5 and D6. These are connected to the B2 
and B3 inputs of the second multiplexer 
instead of connecting these inputs to 
ground. The chip is always selected 
(because it outputs blank lines where no 
character is present), so the four chip 



select lines (CS1 through CS4) are con- 
nected to ground. The extra dot data is 
chosen by feeding the 7493s QD output to 
row select 4 (RS4). Those are the only 
changes necessary to use the 7 x 9 gener- 
ator, but note: the 66740 character genera- 
tor has 24 pins and will not fit on the PC 
board layout in Fig. 5. 

Building the Board 

This is the first time I have presented a 
printed circuit (PC) board layout in this 
column (Fig. 5). Because all of us are only 
skilled amateurs at best, I have made this 
board single-sided using jumpers instead 
of double-sided, demanding plated- 
through holes. The jumper arrangement in 
Fig. 6 can be used to create a double- 
sided board. A complete board and kit of 
parts is available for this project (see end 
of article for details). 

Making a printed circuit board is time 
consuming, but quite simple. Full direc- 
tions are available from PC suppliers, but 
here is a summary; take note that all the 
chemicals used in this process are either 
flammable or toxic, so work with care. To 
make a PC board, take the layout in Fig. 5 
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Fig. 7. Parts layout for lowercase modification, viewed from above. Three resistors are mounted vertically, but enough resistor lead 
should be left to bend the parts over after soldering. 
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TRS80 



A MAJOR 

BREAKTHRU FOR 

Electronic Engineers 

Electronic Hobbyists 

Electronic Students 

Ham Operators 

A General DC-AC (steady state) Analysis 

of Any Circuit 

Will Analyze and Compute: 

• Node. Branch. Element. Voltages 

• Node. Branch. Element. Currents 

• Branch Power Dissipation 

• Magnitude and phase values and complete 
frequency response with graphic rjisplay 

• Modify any element in circuit for desired 
results 



A complete operational 

manual supplied 
comparable to I.B.M.'s 

E.C.A.P." Program 
•A C. Analysis Program 

$149.95 

•DC. Analysis Program 

S89.95 



To Order Write 

G & L Software Enterp. 

2304 N. 1st. Street 

Upland. CA 91786 




Do Not Send Cash in the Mail 



TRS80 isa tradrr 
. Business Mai hint 



rko! Ihr fandv Corp F..(-A.P 



rk..l InirriiHi 
^39 



PUBLICATIONS for the TRS-80 ' Model III 

Mystery of the ROM Mystery of the DISKETTE 

Mystery of the DOS $19.95 each 

Must additions to the computer library of the serious 
programmer as well as the casually interested. Written 
in a technical, yet easy-to-read and understandable style 
Each book Includes: 

• detailed tables of contents and indexes, alphabetical 
and numerical tables with numerous cross references 

• register setup going into routines 

• register results coming out of routines. 

• detailed explanations on all routines, structures, 
codes, etc., and not just a few ambiguous comments 

• Numerous summaries for ease of book use. 

Special ... all three $49.95 

SORT/ CM D 

• multi-key (to 14 fields); Multi-tag (to 14 more fields) 

• sort any combination of variable type 

• integrates easily into any existing program 

$1 9.95 each Disk or non-disk, Model I or III; 32K or 48K 

PATCHES 

to allow operation of many Model I programs on the Model III: 

• LM OFFSET/CMD, Superzap/CMD ? 

• RSM 2D/CMD 10K, 32K, 48K 5 

• Big Five Software Games (all games) 4 

$5.95 each Many more . . . send for brochure' 

DISK DIRECTORY INDEX PROGRAM (Model ill only) 

• Maintain a master directory listing and file all diskettes 

• Index size limited only by diskette space available 
and number of diskettes on which the index will be 

maintained. 

• Summary by file name, diskette, or extension. 

Direct/BAS $14.95 

Direct/CMD $24.95 (enhanced, more powerful, faster) 

Send check or money order (Kansas residents 
add 3% sales tax) to Twenty-First Century Software 
1607 North Cochran Hutchinson, Kansas 67501 
Call 376 663-7047 for additional information 




Registered traderria'ks or products ol 'Tandy Corp.. 'Apparat Inc 
•Small Systems Software. 'Big Five Software Company 



^See List ol Advertisers on page 402 
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to your local newspaper or printing office 
and obtain an exact-size (100%) film nega- 
tive. Clamp the negative firmly against a 
piece of negative photosensitive PC board 
(from Kepro or Vector) in a photo proof- 
sheet frame, under a vacuum table, or just 
under glass weighted all around so there 
is no space between the negative and the 
PC board. The words "Coco Lowercase" 
should read correctly. 

You may make your own board with 
negative PC photosensitizer. Work only 
under darkroom lighting or on the other 
side of the room from a shaded, dim, yel- 
low bug light. Expose the board with a 
3200 degree tungsten photoflood bulb 
(available at any photo store) at a distance 
of two feet for seven to ten minutes. Devel- 
op the board for one to two minutes in PC 
board developer (Kepro or Vector), and 
harden the emulsion in an oven at 200 de- 
grees for about one half hour or by drying 
overnight. Drop the board into a glass or 
enamel tray of ferric chloride, face up, and 
gently agitate about a half hour until all 
the copper has been removed except 
where the traces are present. Wash the 
board thoroughly, dry it, and drill all the 
holes with a #66 hobby drill; this is most 
easily done in a small drill press. Cut the 
post hole to the outside edge of the cop- 
per band. Remove the remaining emulsion 
with steel wool, buffing until the copper is 
very shiny. Wipe the board clean with a dry 
cloth, and begin mounting the parts. 

Mount the jumpers first; there are 42 of 
them. Put the resistors and capacitors in 



place next. Then mount the integrated cir- 
cuits. If you use sockets, the RF shield will 
need extra help to remain in place. 

The final few steps are a bit tricky. In- 
sert a 40-pin wire-wrap socket three- 
quarters of the way into the board; refer to 
the parts layout (Fig. 7) to be sure you put 
it into the correct set of 40 parallel holes. 
Solder all 40 pins Into place so that about 
Vi inch of wire wrap pin protrudes from 
the bottom of the board. Now clip the 
socket off, snipping close to the top of the 
board. Pull all the pins out of the socket, 
and slip the socket over the pins which are 
soldered to the board. It becomes a 40- 
hole grommet, helping the pins stay 
straight and guiding them for insertion in 
the VDG socket. 

A 40-pin, solder-tail socket is inserted in 
the remaining holes on the board. It 
should fit easily in place; if its pins do not 
protrude through the board, double check 
that you have clipped the tops of the wire 
wrap pins closely. 

Open the computer and remove the 
metal RF shield. Find the VDG, a 6847 chip 
mounted at the back left of the metal 
cage. Now remove the VDG from its sock- 
et. Lift it very gently with a nail file, rocking 
the file from side to side. If the chip moves 
a little and then sticks, push it back down 
and start again. Gradually it will work free. 
Insert it in the 40-pin socket on the new PC 
board. The wire wrap socket pins are posi- 
tioned over the VDG socket and the post 
goes through the hole in the board. Shine 
a bright light through the hole, and look 
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Photo 8. Older Model I character generator produces text more acceptable than the col- 
or machine's inverted system, but does not have descenders. Text shown in this photo 
has peculiar grammar. 



through. Fit the wire-wrap pins into the 
VDG socket, and press gently but firmly 
until it secures in place. The modification 
is now complete. 

If you read this last paragraph with con- 
sternation, it probably means that your 
VDG is soldered in place. The first three of 
four thousand Color Computers were pro- 
duced this way, mine among them. Un- 
soldering the VDG and inserting a socket 
is an unmitigated pain, demanding pa- 
tience and over an hour. You will 
need— and don't do this without— solder 
wick or other flux-impregnated solder-re- 
moving braid, and fine solder. Do not at- 
tempt to remove this circuit unless you 
have the proper materials ready and are 
willing to take the time to do it correctly; 
the process cannot be rushed. 

Make sure the line cord is unplugged, 
then pull off the power supply connectors 
from the main board and from the power 
cord. Mark down their positions as you do 
this. Remove the screws holding the pow- 
er supply in place (two are recessed into 
the board against the power transformer). 
Lift out and set aside the power supply. 

Unplug the keyboard from either the 
computer or keyboard end, and set it 
aside. Remove the screws from the PC 
board (there are a dozen), and lift the en- 
tire board out of the case. Easy so far. The 
bottom of the PC board is completely cov- 
ered with a metal plate, but this removes 
easily. It is held in place by nifty little ex- 
pansion rivets. Push on each one, very 
gently but firmly, with the eraser end of a 
pencil until it works out of the board. Even- 
tually the metal shield will fall free. 

Lay the solder wick on the VDG pins on 
the underside of the board, and heat it and 
the pins with a soldering iron until the 
solder flows off the VDG pins into the 
solder braid. Check the temperature of the 
VDG as you work, and stop to let the IC 
cool off completely if it gets uncomfort- 
able to the touch. Its pins are rated 325 de- 
grees for 10 seconds, so don't exceed 
that. Eventually there will be very little 
solder remaining, most of it having been 
sucked out of the PC board holes into the 
braid. Test each VDG pin from the bottom 
with your fingernail to see if it is free from 
the hole; a slight push should snap it away 
from the hole wall. Otherwise, desolder a 
bit more. 

When the chip is finally free, lift it out 
and set it aside on some aluminum foil or 
black protective foam. Clean the solder 
flux off the board with 3M belt cleaner 
#78-9020-0006-2. Insert a 40-pin socket 
and solder hairs, balls, or shorts. Push the 
plate back on the PC board, pressing each 
rivet back in place. Replace the board in 
the case, screw it down, reinstall the key- 
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board and power supply, and power up. All 
should be well. Breathe deeply. 

Lowercase at Last 

Now the test. Double check for correct 
Insertion of all integrated circuits, jump- 
ers, resistors, and the VDG Itself. Also re- 
check the wire-wrap extender pins, mak- 
ing sure they fit into the socket exactly. 
The finished installation should look like 
Photo 7. Now restore power to the Color 
Computer. If you have set the switch in the 
new generator's position, or if you chose 
not to install the switch option, your sign- 
on message should appear. It will look 
mostly the same, except that the O's are 
no longer square and the zeros are 
slashed. The top row of letters will also 
touch the top border of the screen. Enter 
this program: 



10 CLS 

20 FORX = OT0 2S5 

30 PRINT CHRKX); 

40 NEXT 



The screen will clear and all your print- 
able characters will appear, including real 
lowercase letters with descenders, as in 
Photo 8. If you have the old Model I 
character generator, the character set will 
look instead like Photo 9. 

If you have installed the switched op- 
tion, flip back to the original mode. The re- 
versed uppercase characters reappear in 
the place of the lowercase ones. To de- 
monstrate the difference dramatically, 
leave the old system switched in, and 
enter this program: 



10 CLS 

20 A$ = INKEY$ 

30 PRINTA$CHRS<95>CHR$<8); 

40 GOTO 20 
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NO CHANGE 



I 



This is a simpleminded text display. Begin 
typing, using shift -0 to produce lowercase 
(reversed) letters. Punctuation and upper- 
case are normal. Fill the screen with text 
until it is a blotchy mess. Now flip the 
switch to engage the new lowercase gen- 
erator. What a good feeling. 

Problems? If you have a black, jittery 
screen with unidentifiable characters, 
check to see that the VDG is seated prop- 
erly in its socket, and that the external 
generator board is pressed firmly into the 
PC board socket. Also check for cold (im- 
proper) solder joints on the board, or bro- 
ken, cracked or scratched PC traces. If the 
screen displays the wrong characters 
(mixing lowercase with uppercase, num- 
bers or control characters), check the 
soldering on the 74LS86 or the 74LS04. If 
there is no display, see that the external 
generator board is pressed into the Color 
Computer socket correctly, and that the 
pins are not offset by one position to the 
right. If alphanumerlcs and graphics are 
mixed oddly, make sure that the 74LS04 
and 74LS125 are inserted in the correct di- 
rection. If the screen Is a garbled mess, 
look closely at pin 33 of the VDG, checking 
for solder hairs or shorts. For any other 
problems, recheck all of your work. 

Where to Get Parts 

A complete kit of parts for the video buf- 
fer/amplifier is available for $7.50 post- 
paid from MSB Electronics, Drawer 766, 
Barre, VT 05641 . The lowercase modifica- 
tion board is available complete and ready 
to install for $89.95 (7x9 matrix). 

Printed circuit board supplies are sold 
by Vector Electronic Company, 12460 
Gladstone Avenue, Sylmar, CA 91342 or 
Kepro Circuit Systems, 630 Axminister 
Drive, Senton, MO 63026 

Integrated circuits and transistors for 
these projects are commonly available; 
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see the classifieds in computer and elec- 
tronics publications. The 5x7 Model I 
character generator is part number 
AXX3027 (type SCM37530P/8046673), 
from Radio Shack, also known as the 
word processor generator; the price var- 
ies. The 7x9 character generator is sold 
by Jade Computer Products, 4901 West 
Rosecrans Ave., Hawthorne, CA 90250, 
part number ICP-MCM66740P, $13.25. 

For removing soldering flux, 3M Belt 
Cleaner (part number 78-9020-0006-2) is 
sold by 3M, Visual Products Division, St. 
Paul, MN 55144. Eight-ounce samples 
(enough to last years) can be obtained at 
no charge from service representatives. 

Updates 

• I continue to get mail asking about 
the Memory Sidecar (February Applica- 
tions). It is available complete or as a PC 
board from the Peripheral People, P.O. 
Box 524, Mercer Island, WA 98040. Write 
for information. 

• Thanks to the readers who sent in 
new and innovative solutions to the Game 
of Life, using Hooper's algorithm. I will be 
presenting some of those intriguing solu- 
tions from time to time in the future. 

• My sincere apologies to any readers 
who waited to receive a copy of my book, 
The Custom TRS-80. Due to a 3,000-mile 
hassle over editorial control, the book was 
inexcusably delayed. 

• Corrections to high-resolution 
graphics board (The Detailer, July Ap- 
plications): 

1. In Fig. 1, 28b Is shown as a three- 
input NAND gate. It is a three-input 
AND gate, type 74LS11. 

2. Pin numbers were omitted from Z32. 
Z32A, inputs 1-2, output 3. Z32B, inputs 
4-5, output 6. Z32C, inputs 9-10, output 
8. Z32D, Inputs 12-13, output 11. 

3. Pin numbers were omitted from Z33. 
Z33A, inputs 2-3, output 1 . Z33B, inputs 
5-6, output 4. 

4. The TRS-80 SYNC connection was 
omitted. It is found at Z32 pin 1 1 in the 
TRS-80. 

5. The 10 mF 16V capacitor connected 



Fig. 8. Schematic changes for using the MCMS6740 (or other members of the MCM66700 
family) character generator, providing a 7-by-9 dot matrix. 
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Fig. 9. Comparison of internal VDG char- 
acter set with Model I character genera- 
tors. The earliest generator also differs in 
that the lowercase letter "a" is above the 
baseline. 
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MICROCOMPUTERS 

We have consistently offered the TRS-80 line 
at savings up to 20%. You can save up to 
$1500 by buying from Computer Discount of 
America. 

Uriel II 

26-4002 64K. 1 disc $3385.00 

Midel III 

26-1051 4K, Level I % 610.11 

26-1062 16K, Level III $ 845.00 

26-1066 48K. Level II 2-drive RS-Z32 $2115.10 

Cilor Cimputer 

26-3001 4K 

26-3002 16K w/Ext. Basic 



$ 325.00 
$ 489.00 

$ 375.01 

$485.00 
$ 585.00 




EPSON 

MX70 Printer 

MX80 Printer 

MX80FT Printer 

ATARI 

MICROCOMPUTERS 

We have the full line of ATARI personal 
computers and systems. 

Our savings are as big on expansion inter- 
faces, printers, diskettes, Apple Computers, 
OKIDATA Microline, C-IT0H Starwriter, 
Lexicon Modems — everything for your 
computer. 

We have the largest inventory in the North- 
east, and most models are in stock, for 
immediate delivery. Our full price catalog or 
a price quote is as near as your phone. 



CALL TOLL FREE: 
800-526-5313 



Computer 



of America 



COMPUTER DISCOUNT OF AMERICA. INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-2198 
In New Jersey Call 201-728-8080 
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to Z33A should be labeled C8. 

6. In Fig. 2, pin numbers were omitted 
from Z31. Z31A, inputs 1-2, output 3. 
Z31 B, inputs 4-5, output 6. Z31C, inputs 
9-10, output 8. 

7. In Fig. 4 and the parts list, the values 
of C6 and C7 are omitted. They are 750 
pF and .022 mF, respectively. 

8. The values for VCR1 and VCR2 were 
omitted. They are both 100K ohms. 

9. IC Z30 includes the transistor im- 
mediately to its right on the schematic. 

10. In Fig. 5, the 19.8 VDC line is shown 
connected to the case of the DIN plug. 
It should be connected to pin 2 of the 
plug. 

11. The resistor in the power supply is 
unmarked. It should be listed as R28, 
100 ohms, Vi watt. 

12. The bridge rectifier value is miss- 
ing. It Is 2 amps, 100 volts. 

13. In Figs. 1 and 2, the lines labeled 
MRA5 and MCA5 should read MRAS 
and MCAS. 

14. The lines labeled M, MA, C, CA, MD, 
and CD were not clear. "M" means a 
connection to the matching line on the 
high-resolution board; "C" indicates a 
connection to the computer's edge 
connector. For example, CD1 means 
computer data line 1 , and MA13 means 
high-resolution board address line 13. 

15. In the text in the first paragraph on 
page 60, a V-Sync and H-Sync control 
is mentioned. These references are to 



an earlier working version of the board; 

none are needed in the version shown. 
There has been some reader interest in 
a PC board for The Detailer. If you are firm- 
ly interested in a board priced at the $50 
level (less parts), please drop me a post 
card— not a letter. PC boards are frightful- 
ly expensive to produce. I found that out 
when the 70 folks demanded a PC board 
for the Micro Front Panel project and it up 
and up and disappeared into the postal 
twilight zone. 

• Speaking of the Micro Front Panel 
(ahem), it is now available as a complete 
kit of parts for $45, or PC board alone for 
$15, from MSB Electronics (see above). 

• Finnally, some humor. I've spoken 
occasionally of bruised machines which 
nestle temporarily on my workbench. 
When I opened the computer Dan sent, I 
was reminded of illustrator B Kliban's 
"How To" cartoons. So, with apologies to 
Kliban and sympathies to Dan, I present 
Photos 9 and 10— before and after shots 
of a poor Model I.B 

Upcoming 

Buffers, bubbles, and blips. 




Photo 9. Wrong. 



Photo 10. Right. 



***************** *****♦******" ** *A*AVl^«*«t*«tww t 

4MHZ, DOUBLE DENSITY,COLOR&B/W 
GRAPHICS . .THE LNW80 COMPUTER 



COMPARE THE FEATURES AND PERFORMANCE 
FEATURES LNW80 PHC-80* 



TRS-80* 
MODEL III 




When you've compared the features of an LNW80 Conputer. you'll quickly 
understand why the LNW80 is the ultimate TRS80 software compatible system. 
LNW RESEARCH offers the most complete microcomputer system at an outstand- 
ing low price. 

We back up our product with an unconventional 6 month warranty and a ID 
days full refund policy, less shipping charges. 

LNW80 Computer SI ,450.00 

LNW80 Computer w/B&W Monitor S one 5" Drive $1,914.00 

All orders roust be prepaid, CA residents please include 6% sales tax. 
Contact us for shipping charges 

* TRS80 Product of Tandy Corporation. 

** PMC Product of Personal Microcomputer, Inc. 



PROCESSOR 


4.0 MHZ 


1,8 MHZ 


2.0 MHZ 


LEYEL II BASIC IKTERP. 


YES 


YES 


LEVEL III 
BASIC 


TRS30 MODEL 1 LEVEL II COMPATIBLE 


YES 


YES 


NO 


48K BYTES RAM 


YES 


YES 


YES 


CASSETTE BAUD RATE 


500/1000 


5QD 


500/1500 


ftOPPY DISK CONTROLLER 


SINGLE/ 
DOUBLE 


SINGLE 


SINGLE/ 
DOUBLE 


SERIAL RS232 PORT 


YES 


YES 


YES 


PRINTER PORT 


m 


YES 


YES 


REAL TIME CLOCK 


YES 


YES 


YES 


24 X 80 CHARACTERS 


ns 


NO 


NO 


VIDEO MONITOR 


yes 


YES 


YES 


UPPER AND LOWER CASE 


YES 


OPTIONAL 


YES 


REVERSE VIDEO 


rts 


NO 


NO 


KEYBOARD 


63 KEY 


53 KEY 


53 KEY 


NUMERIC KEY PAD 


YES 


NO 


YES 


e/W GRAPHICS, 128 X 48 


YES 


YES 


YES 


HI -RESOLUTION B/W GRAPHICS, 480 X 192 


YES 


SO 


NO 


HI-RESOLUTION COLOR GRAPHICS (NTSC), 
128 X 192 IN 8 COLORS 


YES 


NO 


NO 


HI-RESOLUTION COLOR GRAPHICS (RGB), 
384 X 192 IN 8 COLORS 


OPTIONAL 


NO 


NO 


WARRANTY 


6 MONTHS 


90 DAYS 


90 DAYS 


TOTAL SYSTEM PRICE 


$1 ,914.00 


11,840.00 


$2,187.00 


LESS MONITOR AND DISK DRIVE 


$1 ,450.00 


$1,375.00 


— 



LNW80 



- 8ARE PRINTED CIRCUIT BOARD s MANUAL 



$89.95 



The LNW80 - A high-speed color computer totally compatible with 
the TRS-80*. The LNW80 gives you the edge in satisfying your 
computation needs in business, scientific and personal computa- 
tion. With performance of 4 MHz, Z80A CPU, you'll achieve per- 
formance of over twice the processing speed of a TRS-80*. This 
means you'll get the performance that 1s comparable to the nost 
expensive microcomputer with the compatibility to the world's 
most popular computer (TRS-80*) resulting in the widest soft- 
ware base. 

FEATURES: 

. TRS-80 Model 1 Level II Software Compatible 

High Resolution Graphics 

. RGB Output - 384 x 192 In 8 Colors 

. NTSC Video or RF MOD - 128 x 192 in 8 Colors 

. Black and White - 480 x 192 

4 MHz CPU 

500/1000 8aud Cassette 

Upper and Lower Case 

16K Bytes RAM, 12K Bytes ROM 

Solder Masked and Silkscreened 



LNW SYSTEM EXPANSION 

BARE PRINTED CIRCUIT BOARD 

AND MANUAL $69.95 

WITH GOLD CONNECTORS $84.95 

The System Expansion will allow you to expand your LNW80, TRS-80*. 
or PMC-80** to a complete computer system that is still totally 
software compatible with the TRS-80* Model 1 Level II. 

FEATURES: 

32K Bytes Memory 

5" Floppy Controller 

Serial RS232 20ma I/O 

Parallel Printer 

Real Time Clock 

Screen Printer Bus 

On Board Power Supply 

Solder Masked and Silkscreened 



LNW RESEARCH 

C OR PORA T ION 
2620 WALNUT 
TUSTIN CA. 92680 *sn 



LNDoubler&DOS PLUS 3.3D 



- Assembled and Tested w/DOS PLUS 3. 3D $1 75.00 

Double-density disk storage for the LNW Research's "System Expan- 
sion" or the Tandy's "Expansion Interface". The LNDoubler™ 1s 
totally software compatible with any double density software 
generated for the Percom's Ooubler***. The LNDoublerTrl provides 
the following outstanding features. 

Store up to 350K bytes on a single 5" disk 
Single and double density data separation 
. Precision write precompensation circuit 

Software switch between single and double density 

Easy plug In installation requiring no etch cuts, jumpers 

or soldering 
35, 40. 77, 80 track 5" disk operation 
120 day parts and labor Warranty 

*** Doubter is a product of Percom Data Company, Inc. 

DOS PLUS 3. 3D 

Micro Systems software's double density disk operating system. 
This operating system contains all the outstanding features of 
a well developed DOS, with ease In useablllty. 



KEYBOARD 



UN80 KEYBOARD KIT $84.95 

The Keyboard Kit contains a 63 key plus a 10 key, P.C. board, and 
remaining components. 



CASE 



LNW80 CASE $84.95 

The streamline design of this metal case will house the LNW80, 
LWN System Expansion, LNW80 Keyboard, power supply and fan, 
LNDoubler™, or LNW Data Separator. This kit includes all the 
hardware to mount all of the above. Add $12.00 for shippinq 

PARTS AVAILABLE FROM LNW RESERARCH 
. 4116 - 200ns RAM 

6 chip set $26.00 

8 Chip set $33.50 

16 chip set $64.00 

24 chip set $94.00 

32 chip set $124.00 

. LNW80 "Start up parts set" LNW80-1 $82.00 

. LHW80 "Video parts set" LNW80-2 $31.00 

. LNW80 Transformer LNW80-3 $18.00 

. LNW80 Keyboard cable LNW80-4 $16.00 

40 Pin computer to expansion cable $15.00 

System Expansion Transformer $19.00 

. Floppy Controller (FD1771) and UART (TR1602) . . . $30.00 



ORDERS & INFO NO. 714-544 -5744 
SERVICE NO. 714-641-8850 



VISA MASTER CHARGE 
ACCEPTED 



UNLESS NOTED 

ADO $3 FOR SHIPPING 



NEW PRODUCTS 



edited by Janet Fiderio 



Business Feature — The CR-180 
Cash Register/POS Expansion System 







The CR-180 cash register/POS expansion system 



Cash Register 
Expansion System 

The CR-180, a cash register/POS ex- 
pansion system for the TRS-80 Model 
III has been announced by FutureSoft 
and ICR. The system includes an elec- 
tronic cash drawer and receipt printer 
which plug directly into the TRS-80 
Model III. (The software will support 
Radio Shack or other printers.) Audio 
has been added for keystroke confir- 
mation. 

The CR-180 software provides the 
operator with continuous instructions 
at the point of sale and allows manage- 
ment to rapidly change promotional 
messages printed on customer re- 



ceipts and displayed for the operator. 

CR-180 stores transactions for up to 
100 employees, saves eight methods 
of payments and provides inventory 
control and complete reporting. The 
system produces reports including 
daily sales and cash reports by em- 
ployee and by transaction type, inven- 
tory usage and gross profit computa- 
tion. Price and shelf labels are also 
printed. 

Software for the Cash Register Ex- 
pansion System was developed by Fu- 
tureSoft and is available in foreign lan- 
guage versions. Prices range from 
$900 to $1900. Contact ICR/FutureSoft 
Southern Region, P.O. Box 1446, Or- 
ange Park, FL 32073, for information. 

Reader Service *> 161 



Word Processor 

For the Color Computer 

C. C. Writer is a line-oriented word pro- 
cessor designed for the TRS-80 Color 
Computer with Extended Color Basic and 
16K. The program may be initialized in a 
32K format to take advantage of the ex- 



pansion products available. C. C. Writer Is 
written in Extended Basic. 

The menu allows full control of mar- 
gins, line spacing, justification, para- 
graph indentation and page pause for sin- 
gle sheet feeding. Commands embedded 
in the text control include line skipping 
and forcing, new paragraphs, page forc- 
ing, centered texts, tabs and indentation 



of both margins. ASCII control codes may 
be inserted in the text to control "smart" 
printers or create print graphics. 

Editing abilities allow insertion, dele- 
tion, or modification and blocks of text to 
be moved on command. 

The package Is priced at $30 from 
Transformation Technologies, 194 Lock- 
wood Lane, Bloom ingdale, I L 60108. 

Reader Service *> 325 

Software is for Business 

Occupational Software is offering two 
new programs of interest to the business 
community. 

The business Accounting Control Sys- 
tem for Models I and III features accounts 
receivable, billing, Inventory control, ac- 
counts payable, payroll, job costing and 
general ledger programs. This comprehen- 
sive software system is priced at $4500. 

The Restaurant Accounting Control 
System features accounts payable, pay- 
roll, sales analysis, labor planning, Inven- 
tory control and general ledger programs. 
It runs on the Model II. The system, sold by 
module, Is priced from $1000-$7500. 

Both systems are available from Occu- 
pational Software Co. Inc., 2231 1 Ventura 
Blvd., Suite 123, Woodland Hills, CA 91364. 

Reader Service f 336 

Add CP/M to Mod III 

The Freedom 3 is a modification that 
adds CP/M capability and more to the 
Model III. It includes added memory, mem- 
ory restructuring and a battery-backed 
date calendar clock. 

The memory addition replaces the ROM 
in 2K segments up to the entire 14K ROM 
size. The alternate memory can be either 
EPROM/ROM or RAM. This system is com- 
patible with TRSDOS and other operating 
systems, will operate on Intermixed drives 
and may be ordered on either 40 or 
80-track disks. 

Freedom 3A provides address restruc- 
turing and the operating system for CP/M 
for $199. Freedom 3B is a 40K user space 
system also, but may be user upgraded by 
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adding ICs to a full RAM system, with bat- 
tery back-up of either or both the clock 
and memory for $340. Freedom 3C pro- 
vides the full RAM, battery backed-up 
clock and a CP/M-type operating system 
that provides 54K of user space for $490. 

For more information contact Field En- 
gineering Consultants, Ltd., Box 2368, 
Woburn, MA 01888, (617) 944-5329. 

Reader Service • 326 

Ecology Simulations I 

Use of a new computer simulation 
game, Sterl, has computerists trying to 
eradicate the Mediterranean fruit fly. This 
simulation permits the use of two meth- 
ods of pest control— pesticides and the 
use of sterile males, either alone or 
in combination. 

Sterl is one of four simulations in the 
package Ecology Simulations I. Other pro- 
grams in the package include: Buffalo, 
which simulates the Buffalo population of 
1850; Tag, a simulation of the tagging and 
recovery method of measuring animal 
populations; and Pop, a simulation of ani- 
mal population management. 

Available for Model I, Level II, it costs 
$24.95 from Creative Computing, 39 E. 
Hanover Ave., Morris Plains, NJ 07950, 
(201) 540-0445. 

Reader Service ^168 

"HOT LIPS"— 
A Soldering Tool 

Hot Lips is a hand held electrical 
resistance tool for intricate soldering 
operations. Its unique plier-like design 
enables the user to produce perfect sol- 
dered connections in tight places. 

This Triton Manufacturing tool is six 
volts safe and is furnished with a remote 
transformer power supply. It's instant- 
heat on, instant-cool off means minimum 
power use. Hot Lips is sold for $50.20 from 





The TRS-80 Pocket Computer Printer and Interface. 



Triton's "Hot Lips" soldering tool. 



Triton Manufacturing Company, P.O. Box 
263, East Haddem, CT 06423. 
Reader Service v 178 



Printer/Cassette Interface 
For The Pocket Computer 

Radio Shack now offers a printer and 
cassette interface for its Pocket Comput- 
er. This product comes with batteries, an 
ac adapter/charger, cassette recorder 
connecting cable, replaceable printer rib- 
bon cartridge, additional rolls of paper 
and an owner's manual. 

The cassette interface allows programs 
and data to be loaded, saved and recalled. 
A remote switch allows manual control of 
the tape recorder. Connections between 
the printer/cassette interface and the com- 
puter are made directly, without cables. 

This printer/cassette interface is priced 
at $149.95 from Radio Shack, 1800 One 
Tandy Center, Fort Worth, TX 76102. 

Reader Service ^ 337 

Educational Games 

Jabbertalky is a programmable word 
game for one or more players. It includes 
two game features, a utility program and 
eight levels of skill. 

The first, Alphagrammar, an anagram 
game, challenges players to unscramble 
an entire grammatically correct sentence. 
The second game, Cryptogrammar, is a 
code-breaking game in which players are 
given a computer-generated sentence 
where each letter of the alphabet is sub- 
stituted for another letter. You must try to 
determine the correct arrangement before 
your time runs out. The special utility pro- 
gram, Jabbergrammar, stores lists of 
words for each part of speech. 

Jabbertalky is available on cassette for 
the Model I with 16K, or on disk for 32K. 



Contact Automated Simulations, Inc., Box 
4247, Mountain View, CA 94040, for more 
information. The retail price is $29.95. 
Reader Service ^ 345 



Magikube, the 
Computerist's Version of 
Rubik's Cube 

Magikube is a game available on cas- 
sette for the Radio Shack Color Computer. 

Based on the Rubik's cube, you have 
the option of scrambling the cube yourself 
or letting the computer do it. The objective 
is to restore the cube back to its original 
state. Magikube also has a tape save fea- 
ture allowing you to save your cube and 
continue at a later time. 

Magikube costs $19.95 and is available 
from Computerware, Box 668, 1472Encini- 
tas Blvd., Encinitas, CA 92024, (714) 436- 
3512. 

Reader Service »-» 162 



Proa ram 

Evaluates Solar Systems 

Sunheatl is used to put together and 
evaluate a variety of solar hot water sys- 
tems. It will determine the effectiveness of 
various types of solar collectors, heat ex- 
changers, preheat tank sizes and hot wa- 
ter tank sizes for your needs. 

Once the system has been configured, 
the program calculates the amount of 
useful solar energy that can be collected 
each month and the percentage of hot wa- 
ter needs that can be supplied by solar 
means on a monthly and yearly basis. 

Sunheatl is written in Basic and re- 
quires a Model I Level II with 16K; the cost 
is $16. For more information contact So- 
lartek, Box 298, Guilderland, NY 12084. 

Reader Service »^ 344 
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NEW PRODUCTS 




Superscript 



Superscript 
For the Model 



Acorn Software has developed a Model 
III version of Superscript for the TRS-80 
with 32K of RAM, expansion interface, 
disk drives and lowercase modification. 

The product features: directory and kill- 
files from within Superscript; ability to 
pause while printing and insert text; serial 
drivers which use the ETX/ACK protocol 
for 1200 baud communications; special 
drivers for various printers; ability to su- 
perscript, subscript, underline, boldface, 
select 10712 pitch, or use brackets, braces, 
carets, and more. 

Superscript costs $50 and is available 
from Acorn Software Products, Inc., 634 
North Carolina Ave., S.E., Washington, 
D.C. 20003, (202) 544-4259. 

Reader Service * 350 

The Newest Versamodem 

Bizcomp Corporation's newest Versa- 
modem, the Model 1080, provides users 
needing only a minimum feature modem 
with a direct-connect alternative to older 
acoustic couplers. 

The modem can be used with personal 
computers at rates of 300 baud and below 
using Bell standard 103 protocol. The Ver- 
samodem is FCC registered and supplied 
with a modular plug for direct connection 
to the telephone network. 

The price of the modem is $119 and Is 
available from the Bizcomp Corporation, 
Box 7498, Menlo Park, CA 94025, (415) 966- 
1545. 

Reader Service * 335 



Precision Template 

ABS Suppliers is offering a new product 
that will Increase your disk storage capaci- 
ty 100 percent. The ABS-Doubler is a preci- 
sion template that permits the conversion 
of single-sided disks to double-sided disks. 

The Doubler Is sold by ABS Suppliers, 
Box 8297, Ann Arbor, Ml 48107, (313) 971- 
1404, for $3.50. 

Reader Service * 171 



Disk Speed Measurement 
For the TRS-80 

RPM measures the rotational speed 
and variation of disk drives on the TRS-80 
Models I and III. RPM makes It very easy 
for the user to see the speed, percent er- 
ror, and history of speed variation on any 
mini-floppy connected to the TRS-80. 

Readouts are given in real-time, and are 
shown In numbers, percents, words and 
graphs. With one keystroke any drive may 
be selected. RPM automatically shows all 
speed ranges and can recover from severe 
errors without requiring a system reset. 

The product is available on disk for 
$24.95 from Prosoft, Box 839, North Holly- 
wood, CA 91603, (213) 764-3131. 

Reader Service ^ 327 



Graphics 

Editor and Programmer 

The Graphics Editor and Programmer is 
a hybrid program that is part text editor, 
screen drawing utility, and Basic program 



creator. This product requires no knowl- 
edge of basic programming skills. 

GEAP contains a full command library 
which allows you to create screen images 
and formats. The software will save your 
drawing by constructing a Basic program. 
The program will stand alone, does not re- 
quire any special drivers or operating 
systems and will recreate the screen im- 
age you have drawn. 

The Graphics Editor and Programmer is 
available for the Model I priced at $16.99 
from J F Consulting, 74355 Buttonwood, 
Palm Desert, CA 92260. 

Reader Service * 331 

Eliminate 

Tedious Commands 

Autofile allows the Basic programmer 
to automate the task of moving data ele- 
ments to and from a direct file. 

Autofile has eliminated the Field state- 
ment thereby eliminating guessing as to 
where the Fielded variable is. In addition 
the ASC and CMR$ function references 
will be performed automatically. 

The price of this product is $75. For 
more Information contact Snappware, 
3719 Mantell, Cincinnati, OH 45236, 
1-800-543-4628. 

Reader Service ^ 341 

District Courseware 
Authoring System 

CASE, the District Courseware Author- 
ing System, consists of 14 programs on 
two disks and two cassettes. It is of inter- 
est to school districts. 

CASE provides for the centralized de- 
velopment of customized courseware for 
controlled distribution throughout an 
entire school system. This system does 
not require a knowledge of programming; 
includes automatic lesson to lesson 
branching, performance records on disk 
by date, time, student ID, lesson and ques- 
tion, and more. 

For information contact the Micro- 
Gnome Division of Fireside Computing, 
Inc., 5843 Montgomery Road, Elkridge, 
MD 21228, (301) 796-4165. The cost of this 
courseware Is $395. 

Reader Service *• 160 

Software 
Development System 

The SDS80C Is a complete 6809 editor, 
assembler and monitor package contained 
in one Color Computer program pack. 
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APPARAT OFFERS 

More bytes per buck! 




i 



• 



floppy dr 

bytes of troc. 

Newdos/80 version 2.0 ex[> 
capability of double o\ 
so you'll have greater applications 
for your TRS-80 5 model I and III. 

Drives plug directly into an ex- 
pansion interface (requires Instal- 
lation of a double density conti oi- 
ler) or the model III disk bus with 
our single volume cable so you 
can now have over 2 megabytes of 
storage on-line with standard 
mini-floppy diskettes. Each drive 
has up to 573 free grans, for a 
total of 1,719, on a maximum of 
three 80 track drives, which can be 
added to a TRS-80 model I. Model 
Ill's can have up to 4 dual 80's 
on-line (almost 3 megabytes!. 

These drives can "read" standard 
35 or 40 track diskettes using 
Newdos/80 version 2.0 which will 
allow skipping every other track. 
Drives come 
complete with 
case, power sup- 
ply and docu- 
mentation. The 
drives are priced 
at only $515 (Cat. 
Mo. 1-705. specify I or HI). Now, at 1424 
bytes per buck, it just might be the answer 
to your storage problems. Special — TWo 
dual 80 track drives only $999. 



m 




Apparatlnc. 

440 1 So. Dwnarac PSrtww*. Denver. CO 60237 (303) 7*1-1 778 



! M 
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NEW PRODUCTS 



The screen-oriented editor features 
finds, changes, moves, copies and more. 
All keys have auto repeat, and no line 
numbers are required so the full width of 
the screen can be used to generate com- 
mented code. 

The assembler features a complete 
6809 instruction set, a complete 6800 set 
supported for cross-assembly, condition- 
al assembly, local labels, assembly to 
cassette tape or memory, listing to screen 
or printer and mnemonic error codes in- 
stead of numbers. 

The ABug monitor is a compact version 
of CBug. It features examine or change of 
memory or registers, cassette load and 
save, break-points and more. 

SDS80C is priced at $89.95 from The Mi- 
cro Works, Box 1110, Del Mar, CA 92014, 
(714)942-2400. 

Reader Service v 332 

Software for Physicians 

Medical Office Management is a soft- 
ware applications package which provides 
medical offices with a system which main- 
tains general patient information files, of- 
fice appointment schedules, maintains 
and prints the daily transactions log, 
prints procedure-by-procedure manage- 
ment reports, prepares and prints private 
patient bills, and prepares patient insur- 
ance claim forms. 

The system includes an online Help 
function in addition to extensive docu- 
mentation. This software requires either 
two or three disk drives, a 130-column 
printer, and a 48K Model I Level II or Model 
III (Basic III) with TRSDOS. The price Is 
$499.95. For more information contact 
Charles Mann and Associates, Micro Soft- 
ware Division, 55722 Santa Fe Trail, Yucca 
Valley, CA 92284, (714) 365-9718. 

Reader Service * 347 

Sales Tax Calculator 

For small businesses reporting state 
sales taxes quarterly, Manhattan Soft- 
ware has released the TRS-80 Sales Tax 
Calculator. 

The program automatically separates 
entries coded taxable, calculates and dis- 
plays the tax on screen, and adds sales 
categories and tax due. The user may op- 
tionally enter tax actually charged on 
each sale. The program will hold up to 500 
entries in 16K, and 1500 in 32K. 

The cassette is priced at $14.95 for 
Models I and III. For more information 
contact Manhattan Software, Box 1063, 
Woodland Hills, CA 91365, (213) 704-8495. 

Reader Service * 330 



Create Formatted Screen 
With a Single Command 

Automap simplifies the programmer's 
task of communicating and displaying in- 
formation with the user-operator. Simple 
send and receive statement commands 
will communicate and display the infor- 
mation you want. 

Automap is available for Models II and 
III for $100. For more information contact 
Snappware, 3719 Mantell, Cincinnati, OH 
45236, 1-800-543-4628. 

Reader Service ^ 342 

For your Typewriter 

Dynatyper/Dynastar is a new typewriter 
system designed to generate printouts di- 
rectly from computer output through any 
electric typewriter. 

The interface fits directly over the key- 
board and requires no modification to 
your typewriter. It is RS-232 serial, Cen- 
tronics parallel, IEEE 488(GPIB) and 15-pin 
current loop compatible. Features include 
a 3.5K RAM buffer, 37.5 to 9600 switch- 
selectable baud, top-of-form option, 80 or 
132 option, and downloading capability to 
four special character sets. 

It is available for Models I and III for 
$699 from Rochester Data, 3000 Winton 
Road, South, Rochester, NY 14623, (716) 
244-7804. 

Reader Service *■* 164 

Model II Gets SoftCare 

SoftCare, a medical billing system, pre- 
viously used only on minicomputers and 



larger Z80 systems, is now available for 
the Model II. 

It prepares patient bills and insurance 
claims, maintains accounts receivable and 
transaction details and is user-friendly. 

It is available for $1995 from Profession- 
al Business Software, 119 Fremont St., 
San Francisco, CA 94105. 

Reader Service v 340 



Energy Saving Analysis 

The Home Energy Cost Saving Analysis 
program for the Models I and III is de- 
signed to evaluate the cost/benefit of heat 
saving home improvements. 

To accomplish this the program models 
the current surface area of your home us- 
ing the "R" factor of each material used to 
construct your home. The computations 
for 29 building materials and seven types 
of heating fuels are used to compute 
the cost of heating and the fuel saving 
payback period for the improvement be- 
ing considered. 

This program is available for $9.95, from 
Demi-Software, 6 Lee Road, Medfield, MA 
02052,(617)359-4502. 
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Timing Program for 
Stock and Commodity 
Traders 



Stock Timer is a program that calcu- 
lates and plots up to three uniform or ex- 
ponential moving averages of the user's 
choice on a common set of price or vol- 
ume data. The interaction of these moving 




The Dynatyper 
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SAVE/ 



on Software for TRS-80 



NEWDOS/80 Version 2.0 

The most sophisticated DOS ever pro- 
duced for the TRS-80* Models I and III. It 
provides the user with "MAINFRAME" 
power on a "MICRO". 

Some Features available are: 

• Jobslream Control Language 

• Mod I/Mod III Diskette interchangability 

• Double Density Support on Model I 

• Pagenalion of BASIC listings on the screen 

• Basic program single stepping 

• Dynamic variable manipulation 

• Multiple array sorts 

• Complete technical support provided 

All this plus much more for only 
$149.00 



THE MICRO CLINIC 

by Dave Stambaugh 
"An ounce of prevention is . . ." 
Routine system checkout will help 
prevent that dreaded loss of data, a 
thorough system checkout includes 
both Memory and Disk diagnostics. The 
Micro Clime offers the most exhaustive 
set of routines known of for the Model I 
or III. Don't take chances with your data, 
a routine system checkout is your best 
friend. 

". . . worth a pound of cure." 

Model I version $24.95 

Model III version $29.95 



MICRO ACCOUNTING SYSTEM 

Accounting by the book tor the non-accountant 
Menu driven for ease o' operation Single or 
Double entry bookeeping, complete system 
allows INTERACTION between General Ledger. 
Accounts Receivable, and Accounts Payable or 
each sub-system can be ran stand alone. Main- 
tenance programs and detailed reports support 
numerous applications. User friendly support 
provided by the authors. Write for a complete 
description and sample printouts today! 

Complete System $489.00 

General Ledger $1 59.00 

Accounts Receivable $1 59.00 

Accounts Payable $1 59.00 

Check Register $ 79.00 



MUSIC TO YOUR EARS! 

For your Model I disk or tape 




Orchestra 80 S 79 95 

Orchestra 85 $129.95 

Orchestra 90 Available Soon! 



CHEXTEXT* 

Let your TRS-80* do the proofreading 
on your SCRIPSIT* text files!! 

Features of this program include: 

• Complete dictionary maintenace in- 
cluding the addition and deletion of 
words. 

• Menu driven for ease of operation. 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



Assorted Items of interest 

Lazy Writer (Mod I disk) $125.00 

Lazy Writer (Mod III disk) $1754)0 

Meal Master (Mod I & III disk) $ 24.95 

Scarfman (disk) $ 19.95 

(tape) $ 15.95 

Flextext I (mod I & III disk) $ 29.95 

Flextext II (mod II disk) $ 2900 

Big five games (mod I & III) 

disk $ 19.95 

tape $ 15.95 

MTC CALCS IV (mod I disk) $ 39.95 

ATTENTION: Our marketing department is 
constantly searching for high quality 
professionally written software 
ATTENTION DEALERS Write for our dealer 
packet today 



$29 



PROFESSIONAL FOOTBALL PREDICTIONS 

• Makes predictions for all 14 NFL games each week. 

• Game predictions are incredibly accurate. 

• Program's data base is updated weekly from your local newspaper's game statistics. 

• Keeps complete record of all final scores and standings. 

• Re-useable year after year. 

• Very sophisticated program, yet easy to operate. 

FOR YOUR TRS-80 8 Model I or III 

*NOTE: Start saving your game results at the time of your order, APPARAT will provide the data base for the previous 

weeks games on the disk. 



MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density-soft sectored-replacement guaranteed-Hard Hole 
protected (5W" only) 

Verbatim Datalife 5'/4' 40 track $24.95 

Apparat's No Name 5 V 40 track $2195 

Verbatim Datalife 8" model II $39.95 

PAPER 

9VX11" blank white, tractor feed paper, full box $24 95 

9'/»"xir blank white, tractor feed paper, half box $14.95 

i4VVxii" green bar. tractor feed paper, full box $34 95 

3'Vx15/16" tractor feed mailing labels $1995 

OTHER 

5'V plastic library case $ 3 95 

8" plaste library case $ 595 

5'V Flip-sort $29 95 

8" Flip-sort $39 95 

1 6K memory kits $ 1 995 



95 



UNPRECEDENTED 


90% DISCOUNT SALE 


On MODEL II Commercial Grade Business Software 


(LIMITED O 


jantities Availab 


e) 


TITLE 


LIST PRICE 


SALE PRICE 


General Ledger 


$300.00 


$30.00 


Accounts Receivable 


$300.00 


$3000 


Accounts Payable 


$30000 


$30.00 


Inventory 


$300.00 


$3000 


Order Entry Processing 


$300.00 


S3000 


Sales Analysis 


$300.00 


$3000 


Word Processing 


$400 00 


$4000 



•AH systems include extensive situation oriented documentation, but is 
supplied on diskette only 

•Above software sold as is and require a minimum of 64K and two 
drives 

(Sorry, but at these rediculously low prices our usual software 
support will not apply) 

ADD $3.00 for postage and handling for these items 



Apparatlnc. 



•On-going Support for Microcomputers' 



4401 S. Tamarac Pkwy. • Denver. CO 80237 • (303) 741-1778 • (800) 525 7674 

Scripsit & TRS 80 are a registered trademark of Tandy Corporation 
Freiyht FOB Denver call for shipping charges Foreign Orders shipped Air Freight 



NEW PRODUCTS 



averages produces the customary buy 
and sell signals. 

Stock Timer also includes a data base 
management system for the necessary 
price and volume information. 

It is available for Models I, II, and III in 
tape or disk versions with 16K or more of 
memory. For additional information con- 
tact Bayesian Investment Services, 757 
Santa Rosita, Solana Beach, CA 92075. 
The tape version is priced at $26.95, the 
disk at $31.95. 
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For the Bird-watcher 

Life List is a program for the bird-watch- 
er. It is a one-disk record of bird sightings 
which holds bird name, sighting date, lo- 
cation and notes for 450 sightings. 

Data in the program's search files can be 
edited to reflect species name changes or 
later sightings. The program will display 
individual records on-screen or an index of 
all sightings. A special search feature al- 
lows the user to find all birds seen on any 
date, in any month or in any year and dis- 
play them together on the screen. Similar 
searches will find all sightings at a partic- 
ular location or all birds of one name group. 

Life List is available on disk for the 
Model I for $24.95 from Manhattan Soft- 
ware, Box 1063, Woodland Hills, CA 91365, 
(213) 704-8495. 

Reader Service • 334 



Mailing List System 

Mail-M3 is an advanced mailing list sys- 
tem for the Model III and TRSDOS. This pro- 
gram features multiple labels (up to four) 
across a page, form input, a report writer, 
fast multi-sort keys, duplicate label check- 
ing, random access, search and more. 

Mail-M3 is not "on-memory" so the en- 
tire database does not have to be sorted 



each time you add records. One disk can 
store about 500 records of 127 bytes each, 
or more if you have additional drives. 

Mail-M3 comes in two versions. The en- 
hanced 48K version is priced at $79, while 
the 32K version is $59. Both are available 
from the Micro Architect, Inc., 96 Dothan 
St., Arlington, MA (617) 643-4713. 
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For Manufacturing 
Cost Estimating 

Two software packages designed for 
manufacturing, engineering, consulting 
and analytical applications are available 
from Centec Process Systems, Inc. 

The MCE package allows the user to es- 
timate detailed manufacturing costs based 
on individual specifications. Information 
is organized under both fixed and variable 
costs including categories such as labor, 
utilities and raw materials. 

The DCF package is designed for cor- 
porate managers, financial advisors, certi- 
fied public accountants, tax consultants, 
and real estate and building analyists. Ap- 
plications include detailed cash flow, rate 
of return and payback, escalation of in- 
come and individual costs, and more. 
Separate interest rates can be used for 
borrowed and working capital. 

The MCE system is priced at $75, the 
DCF at $125. Both systems are priced at 
$149 from Centec Process Systems, Inc., 
11260 Roger Bacon Drive, Reston, VA 
22090,(703)471-5999. 
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Software from Centec Process Systems 



The Control Key Hardware 

Control Keys 
For the TRS-80 

The Control Key system Is a hardware 
and software combination that allows 
control of the Model 1 32 K, or 48K disk sys- 
tem with single keystrokes. 

The hardware converts the numeric pad 
on the TRS-80 into a set of 12 program- 
mable special function keys that can be 
accessed by either machine language or 
Basic programs. When used in conjunc- 
tion with the four currently available Con- 
trol Key programs, each of the numeric 
keys perform specific functions such as 
execution of the most frequently used 
DOS functions, rapid input and debugging 
of Basic programs, and more. 

The cost of the system assembled is 
$150. Kits are also available. Contact 
Clockwork Software, Box 704, Colorado 
Springs, CO 80901, for additional in- 
formation. 
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New Software Catalogue 

Charles Mann & Assoc, has released a 
new software catalogue of office manage- 
ment software for several microcomput- 
ers including the TRS-80 Models I and III. 

The catalogue covers the field of small 
business office management applica- 
tions from simple desk management and 
appointment systems to detailed job cost 
accounting applications. 

It is available from Charles Mann & 
Assoc, Micro Software Division, 55722 
Santa Fe Trail, Yucca Valley, CA 92284. 

Reader Service *- 339 
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Master Disk Index 

The Master Disk Index (MDI), creates 
and maintains a master file of disk direc- 
tories updated by automatically reading 
each disk's directory. 

MDI records may be selectively dis- 
played, printed, or deleted by either string 
matching or record number. The entire file 
may be sorted by a fast machine code sort. 

It is available on cassette with minimum 
machine requirements of 32K, 1-disk, TRS- 
DOS, NEWDOS, or NEWDOS80 for $16. For 
more information contact Custom Soft- 
ware, Box 3241, Poughkeepsie, NY 12603. 
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T-ROM II Utility 



CBug Monitor 



The CBug monitor, offered by the Micro 
Works, has 19 commands and is relocat- 
able and reentrant. 

The monitor allows you to: examine or 
change memory using a formatted hex 
display, save areas of memory to cassette 
in binary, download/upload data or pro- 
grams to a host system, move the video 
display page through RAM and send or re- 
ceive RS-232 at up to 9600 baud. 

It will also Investigate and activate fea- 
tures of your computer, such as high-reso- 
lution graphics and machine-language 
music, or use the computer as an intelli- 
gent peripheral for another computer. 

Available on cassette, the monitor cas- 
sette price is $29.95. For additional infor- 
mation contact The Micro Works, Box 
1110, Del Mar, CA 92014, (714) 942-2400. 
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Mlcrobyte Research and Development 
Corporation currently is marketing the 
T-ROM II. 

The T-ROM II features include: blinking 
block cursor, keyboard debounce, auto re- 
peat on any key, audible key-beep, auto- 
line feed, lowercase driver, video to printer 
echo, shiftlock, screenprint and the dual- 
case typewriter function. Graphics func- 
tions are retained in the lowercase mode, 
and normal Level II Basic commands are 
unaffected. 

The cassette version sells for $15.95, 
while the disk version is $19.95. Contact 
Mlcrobyte Research and Development, 
105 Rackley Drive, Greenville, NC 27834. 
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New Disk Subsystem 

Matchless Systems now introduces the 
MS-800C disk subsystem compatible with 
the TRS-80 Model II and other microcom- 
puters. 

The subsystem includes case, power 
supply, fan, cables and a choice of four 
different d/ive configurations: one single- 
sided drive for $1050, two single-sided 
drives for $1595, one double-sided drive 
for $1395, and two double-sided drives for 
$2095. Single and double-density control- 
lers and software are available at an addi- 
tional cost. 

For more information contact Match- 
less Systems, 18444 South Broadway, 
Gardena, CA 90248, (213) 327-1010. 
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Matchless Systems MS-800C 



For the Software Author 

Programmer is a new monthly newslet- 
ter for those interested in the software 
market. Scheduled for debut this month, it 
will cover what kind of software is selling 
and who is selling it, with market updates 
of opportunities in the software field. 

Programmer's monthly columns will 
bring together professional writers and 
published programmers who will be talk- 
ing about the principles of good program- 
ming and the techniques that make a pro- 
gram saleable. The editors of Programmer 
will be examining contracts from software 
producers, surveying royalties and offer- 
ing the programmer advice on good busi- 
ness practice. 

A six month subscription is $13. For ad- 
ditional information contact Programmer 
Box 3210, Manchester, NH 03105. 
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Lunar Lander- 
Based on Physics 

Lunar Lander is a game based solidly on 
physics. The computer displays the lunar 
landscape, your landing craft and naviga- 
tional information— all of which are chang- 
ing constantly. Lunar Lander teaches the 
concepts of acceleration and velocity. 

Minimum requirements are 16K Level II 
Basic. A cassette is available for $10 from 
Custom Software, Box 3241, Raymond 
Ave., Poughkeepsie, NY 12603 
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Scriplus Modifies Scripsit 

Scriplus is a modification to Scripsit 
which enables you to take advantage of the 
special functions, features and print for- 
mats of your printer while your document 
is being printed, all in accordance with the 
limitations and capabilities of the printer. 

Scriplus will not crash programs held in 
high memory and provides the following 
features: It will alphabetically list a disk 
directory from within Scriplus; optionally 
select line feed after carriage return; sup- 
port custom printer drivers; and Is com- 
patible with VTOS, LDOS, TRSDOS, DBL- 
DOS and NEWDOS. 

For more detailed information on Scri- 
plus features contact Quality Software 
Distributors, 11500 Stemmens Exp., Suite 
104, Dallas, TX 75229. Scriplus is priced 
at $24.95. 
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NEW PRODUCTS 




The DIP-81A 



New Data Impact Printer 

DIP, Inc., is now marketing a new low- 
cost data-impact printer, the DIP-81A. 

This dot-matrix printer features a full 
96-character ASCII set and is capable of 
printing at both 40 and 80 characters per 
line on 8V2-inch paper. Operator control 
includes power, select/deselect, line feed, 
top of form, and self test. It has the ability 
to accept data as it is printing and is suit- 
ed for such applications as CRT dump for 
printouts and more. 



For additional information contact DIP, 
Inc., 745 Atlantic Ave., Boston, MA 021 11, 
(617) 482-4214. The price of the DIP-81 A is 
$499. 
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For All Gamesmen 

The Voyage of the Valkyrie, a game for 
the Models I and III, has 10 levels of skill. 

As you move through the Island of Fug- 
loy songs of success or failure ring in your 




The Radio Shack Communications Multiplexer 



ears as each battle with the bird-like crea- 
tures rages to an end. 

Voyage of the Valkyrie is available on 
cassette for $34.95, or disk for $39.95, 
from Advanced Operating Systems, 450 
St. John Road, Michigan City, IN 46360, 
(219) 879-4693. 

Reader Service ^ 348 

BASF-DPS Cassette Tape 

BASF-DPS tape is now available from 
York 10 Computerware in C-10, C-20, C-45, 
and C-90 lengths. 

BASF has an extra smooth, durable me- 
dia surface which increases head life as 
well as permitting higher density record- 
ings. A five-screw shell fits all Phillips type 
cassette recorders. 

One dozen cassettes, bulk pack, cost $8 
for the C-10 length, $10 for C-20s, $13 for 
C-45S, and $21 for C-90s. Contact York 10 
Computerware, 24573 Kittridge St., 
Canoga Park, CA 91 307, (21 3) 71 0- 1 430, for 
additional information. 

Reader Service • 166 

MicroPlan 

The MicroPlan Financial Modeling pro- 
gram, for the Model II, was developed to 
reduce time-consuming forecast and bud- 
geting functions into a 15-minute task. 

MicroPlan combines user-definable for- 
mats similar to VisiCalc with Desktop 
Plan-like consolidation capabilities allow- 
ing users to change any aspect of their 
budgets and compute new totals instantly. 

The plan runs under CP/M and is provid- 
ed with complete documentation. For 
more information contact Data Technolo- 
gy Industries, 700 Whitney St., San Leadro, 
CA 94577, (415)638-1206. 

Reader Service * 172 

A Communications 
Multiplexer 

A Communications Multiplexer, which 
allows your Model II to respond to infor- 
mation requests from as many as 16 tele- 
phone lines at once, is now available. 

This multiplexer makes the Model II 
suitable for use as a host computer in 
private Videotex information retrieval net- 
works. 

This product is available in two ver- 
sions: eight-line capability for $6000; or 
16-line capability for $8000 from Radio 
Shack Special Marketing, 1600 One Tandy 
Center, Fort Worth, TX 76102. 

Reader Service k- 167 
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A Combined General Ledger, Accounts Payable, Accounts Receivable, and Payroll, All on One Diskette • Complete 
Easy-to-follow Manual and Instructions • Demonstration Disk Available • Available now for the TRS-80 MOD E* 

Simplify Your Bookkeeping With 
A Completely Interactive System. 
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PAYROLL 

A complete payroll system Uplo 
3 stales with (™e stale 
deductions each Four use' 
defined deductions Monthly 
quarterly and year to date 
totals. Automatically posts 
to General Ledger 
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PAYROLL 



REPORTS 

Employ** Directory 
PtyroH Ledger 

Cw**H WOAHMf Oban*", i 

Checks 

PeyroM Wofkihtxl 
Chech Register 
VV2 



4 overtime schedules 

AdditKXiel FWH 

Additional pay feature 

YTO records o* Rerj 
O T . sick, vacaton & 
holidays hours maintained 

Osrttsms* 

Certified Payroll 

Job cost payroll 




OKNKRAL LEDGER 

General Ledo*r is lutometicelty 

posted from peyroe; peyebies and 

'eceneoi" entne* l>rect ooM.no 

m Miy with screen showing 

continuous balance. Up to 30 entries 

per document 

User tormutatmg o* Income 

Statement and Hue nee Sheet 

Budgeting tor current year * 

user winii to use budget lo 

actual comparisons 

Well defined Audit Trail and 

Audit Diary report* 




PAYABLES 

AND 

RECEIVABLES 

Easy invoice entry, automatically 
posting lo proper genera' ledger 
account Seperates sales tax. 
service charges, freight 
discounts, etc 
Payables checks automatically 

take discounts by due date 
User options to pay all vendors 
or selected vendors 
selected invoices o< 
all invoices 
Easy posting ol customer 
payments Customer billing is 
through date user defines 
>matic interest or service charge add-on 
User option of statement format Forms available 



Payable* Report ■ 


R *c* ivst ble> Reports 


Vendor Directory 


Customer Directory 


Payables Ledger 


Aging Report 


Payable A °ece-ao e 


Statements 


Journal 


Payables and Receivables 


Checks & Check Register 


Journal 


Mailing Labels 


MaiUng Labels 




Expand the system anytime 
you wish with fully 
compatible modular programs 



Chad of Accounts P»*y Jourweti 

Tnel Balance Monthly Journal 

income Statement Monmry Detail 

Balence Sheet by Account 

Buoget to ectoel comoeneone 



GENERAL 
LEDGER 




Inventory 
Order Entry 
Reoort Generator 
Other Special Program; 



SERVICE 

Software service and 
operational assistance is 
available under two 
different service 
agreements 



THE 

BOOKKEEPER 

SYSTEM™ 

For Microcomputers 

The system is a combined General Ledger, 
Accounts Payable, Accounts Receivable, Payroll 
and Budget Forecasting program that follows 
double entry accounting principles with only a 
single entry. 

Written in COBOL with on-screen instruc- 
tions, your bookkeeper uses simple, one key 
responses to the computer's questions. With 
three 8" floppy data diskettes, The Bookkeeper 
can handle up to 3,500 customers, vendors 
and employees on account with 10,000 trans- 
actions per month. 

Add a hard disk and your microcomputer 
has almost unlimited storage. 

Contact us today to find out how you can 
own this superior product. 



We're Writing Programs For People 




UNIVKRSN. 
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STUDIOS 



UNIVERSAL SOFTWARE STUDIOS, INC 
179 WEST SMITH ST □ GALLATIN 
TELEPHONE (615) 452-1027 




•TRADE MARK OF THE TANDY CORP 



See Us At 



Las Vegas Convention Center 
November 19-22. 1981 
Booth No 1589 




LOST 
COLONY 

By David Feitelberg 




The scene is "Warren's World," the world's first attempt at colonizing a planet in deep space. The next sup- 
port ship from Earth isn't due for about 15 years, and . . . well, let's just say that things aren't going too 
smoothly. An election was held for an economic manager to straighten things out, and guess who won! 

You are presented with all the human, natural, and industrial resources of the planet, with instructions 
either to make things better or be voted out of office in shame. A remarkable simulation, LOST COLONY 
arms you with maps and charts as tools for resource management. You assign human and robotic labor 
forces, explore new land, and allocate production quotas. At the same time you must determine equitable 
pay scales and taxes that will both optimize productivity and keep the populace happy (or at least quiet and 
working). 

Communication is handled by your TRS-80* model I or III, using sentences like, "ASSIGN 1200 SEMI- 
LITERATE MEN TO FARMING," or commands as short as "1200 FARM." A challenging game, LOST 
COLONY might give you insight into real life management as well. Available on 16K tape or 32K disk for on- 
ly $19.95 each. 



INVADERS 
FROM 
SPACE 



• • • • • • 
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By Carl Miller 

A fast machine language ap- 
proach to this classic (and ad- 
dictive) space game. The aliens 
drop bombs, move around, and 
try to overrun your bases. 

You choose the speed, enemy 
bomb frequency and accuracy, 
and how many shots and bases 
you have. Unlike other games 
of this type, you can move your 
base and simultaneously fire at 
the invaders. Fun for all ages 
and skill levels, it has full 
sound effects for even more 
excitement. 

Available for TRS-80* model I 
or III. Only $14.95 on 16K tape 
version or $20.95 on 16K disk. 



ASTROBALL 

By John Allen 

More features, thrills, and 
sound than even our famous 
PIN BALL With ASTROBALL in 
your TRS-80* model I or III the 
arrow keys become flipper but- 
tons, the screen becomes the 
play board, and you become 
the "Pinball Wizard!" 
A flying saucer and moving 
spaceships add to the fun. 
Knocking out five meteors 
earns you an extra ball, while 
black holes swallow the ball in 
play. 

ASTROBALL's five skill levels 
will have all your family and 
friends lining up for the pinball 
action. Available on 16K tape 
or disk for just $19.95 each. 




By Steven Kearns 

Huge antimatter rocks appear 
on the Tactical Display Screen 
of your spacecraft. You blast 
away but they just explode into 
smaller chunks for you to 
destroy. 

To add to your woes, alien 
ships and time bombs appear 
periodically. If the ships hit you 
or the timers reach zero— 
BOOM! Maneuver, fire lasers, 
jump to hyper-space — 
anything to avoid the on- 
slaught. For one or two players, 
with nine skill levels. 

A realtime arcade game with 
sound, for TRS-80* model I or 
III. Versions for 16K tape or 32K 
disk are $19.95 each. 




ENTERTAINMENT SOFTWARE SUPPLIED FOR TRS-80* MODELS I & III 



Acorn 

Software Products, Inc. 



^34 



634 North Carolina Avenue. S.E. 
Washington. DC 20003 

(202) 544-4259 
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EVEREST 
EXPLORER 

By William Godwin & Don Knowlton 

Towering above the clouds, the summit of Mount Everest is a forbidding spot. Only a handful of daring 
adventurers have made it to this five-mile-high pinnacle where the air is thin, violent storms erupt with little 
warning, and danger lurks at every footfall. 

EVEREST EXPLORER lets you challenge the world's highest mountain without ever leaving home. This 
logistical simulation goes beyond most adventures, forcing you to make all the life-or-death decisions re- 
quired at every step of the attempt. 

Assigned an expedition budget, you must select the manpower, food, fuel, shelter and oxygen supplies you 
will need to support your quest. Now the adventure begins as you manipulate your resources to outwit the 
elements and terrain, establishing ever higher encampments. Weather, route, season, climbers' condition 
and morale all play key roles in the final question: Will you reach Everest's 29,028 foot summit— and return 
to tell about it? 

Available for TRS-80* model I or III for $19.95. Order on 16K tape, or the 32K disk version which includes a 
"save game" feature and other enhancements. 




BASKET- 
BALL 



By John Allen 

You have to be fast to keep up 
with the action as you try to 
outscore your opponent in five 
minutes of one-on-one basket- 
ball against a friend or your 
TRS-80* model I or III. 
Steal the ball, duck around your 
opponent and slant toward the 
basket for a lay-up! The 
graphics are based on a 
3-dimensional depiction of a 
basketball court, and ball drib- 
bling sounds add to the 
realism. It's all there but the 
cheers in this fast, machine 
language game! 
Available on tape for only 
$14.95, or disk for $20.95. Re- 
quires 16K. 



MONEY 
MANAGER 



By Andrew P. Bartorillo 



A complete management tool 
for the home budget, it accu- 
rately keeps track of your check- 
book and provides an easy 
method of budget allocation. 
You can store information on 
up to 100 checkbook entries 
per month (250 with 48K), 
specify any automatic 
withdrawals, keep records of 
tax-deduct ibles, and record ex- 
penses by category. You can 
even break up charge account 
payments into the proper 
categories. 

Requires TRS-80* model I or III 
with a minimum of 32K and one 
disk drive. Order now for only 
$39.95. 




By Richard Wilkes 



Using your SUPERSCRIPT 
Modified SCRIPSIT* Word Pro- 
cessor and a compatible 
printer, you can now underline, 
boldface, insert text during 
printout, slash zeros, set type 
pitch, subscript and, of 
course, superscript! You can 
even read your directory and 
kill files without ever leaving 
SCRIPSIT*. 

Includes drivers for popular 
printers and easy instructions. 
Just $50.00 for TRS-80* model 
I (requires 32K, 1 drive, SCRIP- 
SIT/LC*) or model III (requires 
32K, 2-drives, model I version 
of SCRIPSIT/LC*). 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 



•Trademark 01 Tandy Corp. 



MAIL ORDERS: Include $2.00 shipping & handling 
(DC. residents add 6% sales tax). 

CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



Prices Si/O/ecr to Change 
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TYouble on the horizon for management and labor. 



Computerization 
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by CMs Brown 
Technical Editor 



Can it be that we, the true believers in the 
Computer Revolution, labor under a 
misapprehension? For years we have .told 
anyone who would listen that the dawn of 
the computing age would herald a renais- 
sance in the American workplace. Changes 
for the better were coming. 

We saw the machine ending the costly 
and time-consuming paper chase in the 
American office. We saw it freeing us from 
repetitive and demeaning operations on the 
production floor. We saw it enhancing our 
lives. Well, for many children of the com- 
puter age, the promise has failed. 

Early in the summer of 1981 one national 
group of workers deeply involved in com- 
puters walked off their jobs. By most stan- 

110 • 80 Microcomputing, November 1981 



dards, these people were well-paid. They 
were willing to risk fines, firing and im- 
prisonment for intangibles that had not 
been issues in the American labor move- 
ment before. Professional stature, recogni- 
tion, and the relief of job-induced stress 
lead the air traffic controllers to strike. In 
striking, the controllers were typical of a 
new breed of American worker— a worker 
involved with technology and the computer, 
the victim of problems created by the ma- 
chines in the American workplace. 

"Computer technology creates the false 
illusion that problems with the American 
workplace are over," says Harley Shaiken, 
an MIT researcher of advanced technolo- 
gies. Shaiken went on to tell 80 Microcom- 
puting that in his view a new set of labor 
related problems is spawned by the com- 
puter. He said, "Computer technology has 
always had the potential to create a better 
workplace. The reality of the situation 
however, has been the opposite. The com- 
puterized workplace has been deteriorating 
in quality." 



Shaiken understands the hostility dis- 
played by many workers involved with com- 
puters. He sees three key factors at the root 
of dissatisfaction of data processing per- 
sonnel, air traffic controllers, nurses and 
operators of computerized machine tools. 
He feels that computerizing the workplace 
limits worker skills, increases management 
control and allows constant monitoring of 
worker performance. While not particularly 
evil in themselves, these three factors taken 
together dehumanize the worker. 

A similar theme is sounded by Robert 
Shrank of the Ford Foundation. Shrank, a 
self -described Program Officer at Ford and 
an ex-tooi maker, sees time as a key issue. 
"Control of an employee's time is the key to 
how the computer Is affecting the American 
workplace. Be it a VDT (visual display ter- 
minal), machine tool, or what have you, 
where computers are involved an employee 
may be measured as to what, when and how 
much, as never before." 

Shrank told 80 Microcomputing that the 
ability to control time and employee activity 



closely is the ultimate strength of the com- 
puterized workplace. He indicated that 
management welcomes this aspect of the 
new technology but labor unions cannot 
cope with it. Both Shaiken and Shrank 
agree that trouble is on the horizon when 
American labor meets the computer. 

"The self-perception of employees in- 
volved with computers is changing," says 
Shrank. "These people realize they have a 
large amount of power in the society and 
they see themselves as white collar profes- 
sionals, even if their employers don't." 
Power is a real issue in the computerization 
of the American workplace; as in other as- 
pects of our lives, the computer alters tradi- 
tional power and political structures of the 
business world. One hundred people and a 
few computers In Gander, Newfoundland 
halted traffic in the busiest air corridor in 
the world. This scares managers who have 
contemplated computerizing their plants 
and offices. So much power in the hands of 
so few workers means vulnerability for 
American business. 

"Management must decentralize where 
the computer is involved," says Ford Foun- 
dation's Robert Shrank. "By doing so an in- 
ordinate amount of power will not be con- 
centrated in a few hands. Gander, New- 
foundland taught us that." Shrank feels the 
air traffic controllers overestimated their 
clout and were "intoxicated by their percep- 
tion of their own power," but he does not 



minimize the real problems associated with 
who wields the power of the computer. Iron- 
ically, the centralized power that allows a 
few employees to disrupt a large process 
also makes them vulnerable. They may be 
replaced by a smaller number of super- 
visors who can keep a plant from shutting 
down completely. 

MIT's Shaiken told 80 Microcomputing 
that American workplace computerization 
will change labor union operation. "Union 
power may not be great enough to deal with 
computerization," he said. "In times of 
crisis labor unions in high-technology areas 
may find themselves with only two alter- 
natives: First, to try and widen the scope of 
their strikes by involving other groups as 
the controllers unsuccessfully attempted 
to do with the machinists union, or second, 
to look internationally for support." 

The second alternative carries far- 
reaching implications. Does computeriza- 
tion of the workplace lead to a world labor 
movement? For Shaiken, the answer is yes. 
"A world labor movement could definitely 
result from the computerization of the 
workplace," he said. "In fact," he added, 
"we have already seen the seeds of this 
movement in the controller's strike when 
Canadian and Canary Islands controllers 
came haltingly to the aid of their American 
counterparts." 

Both Shaiken and Shrank believe there 
are ways to overcome the problems of the 



. trouble is on the horizon 
when American labor 
meets the computer. " 

computerized workplace short of striking. 
They agree that a decent salary for 
technically trained people is mandatory. 
They also feel other issues must be ad- 
dressed; stress is one. 

"Management has made the mistake of 
thinking that all productivity problems can 
be solved by computers," says Robert 
Shrank. "They feel that using 60 minutes 
out of each hour of an employee's time is 
possible where computers are involved. If 
you believe this, you're nuts." Shrank feels 
that 50 minutes per hour is a more realistic 
figure if job stress is to be kept within 
bounds. 

Harley Shaiken suggests, "We should 
make an effort to see the social implica- 
tions of the introduction of technology in 
the workplace before we use it, not after." 
Says Shaiken, "The design and deployment 
of computers in work environments should 
be keyed to social goals." Organizing the 
computerized workplace becomes increas- 
ingly important. Organization can heighten 
the employee's sense of identity and self- 
respect as he manages a machine that, in 
reality, controls him. 

How workers and management cope with 
the computer is subject to conjecture. 
Changes in traditional views and actions 
are imminent for both management and 
labor. The golden age of the computer may 
have arrived finally. Its promise is yet to be 
fulfilled. ■ 
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GENERAL 



Will the postman soon bring bytes? 



Digital Delivery 



by Bert Latamore 
Desktop Computing staff 



Long distance communication has been 
an issue since civilization began. The 
ancients used drums, mirror reflection and 
smoke signals. When the Egyptians and 
Chinese Invented writing, they also invent- 
ed the courier and built complex road net- 
works for their runners to travel. These cour- 
ier services developed Into the modern 
postal system. Samuel Morse started the 
electronic communication revolution, but 
not until the 1920s was the telephone wide- 
ly accepted and a real competitor to postal 
systems. 

Today the United States Postal Service 
(USPS) handles more than one billion 
first-class letters a year. Although the tele- 
phone service carries 2.5 calls for each 
first-class letter mailed, the post office is 
still a major force. Ironically, this old-fash- 
ioned method of moving information sur- 
vives at the heart of the "information 
revolution." 

The postal revolution may finally be upon 
us. A new form of message delivery, elec- 
tronic mail, is riding on the coattails of com- 
puter networking. Futurists believe It may 
replace the postal system and take part of 
the load now carried by telephone. Accord- 
ing to prognosticators, the question in elec- 
tronic mall Is not whether it will be an Impor- 
tant force in the future but how much im- 
pact It will have and what form It will take. 
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As a I way 8 when predicting the future, ex- 
perts disagree. Some expect all first-class 
mail to become electronic, with users send- 
ing and receiving messages directly from 
terminals in their homes and offices. Others 
expect a more moderate use of electronic 
mall using facsimile equipment in post of- 
fices or other central locations. 

Network Systems 

These two versions of the future reflect 
two different forms of electronic mail. The 
first, used today by businesses with local 
networks, is available to the public from 
subscription services such as CompuServe, 
Columbus, OH; The Source, Vienna, VA; 
Tymnet, Cupertino, CA; and Telenet, Vien- 
na, VA. This kind of electronic mail requires 
a central computer connected to terminals 
or microcomputers at remote locations. 

Compose and address your message on 
your terminal, then contact the electronic 
mail computer you use and send it on its 
way. The computer stores the message un- 
til the intended receiver checks In. The com- 
puter informs the contacted party of a 
message and sends it to his terminal upon 
request. 

If both parties are on line simultaneously, 
they can communicate in real time by alter- 
nately writing messages. The effect is 
much like a telephone call. 

Large businesses with local networking 
systems use this form of electronic mail for 
interoffice communications. They are slow 
to use it for Intercompany and personal cor- 
respondence, partly because various elec- 
tronic mail databases do not communicate 
with each other. These databases use 
password security systems. Upon subscrip- 
tion to a database you are given a set of 
passwords; one Identifies the service you 
want and one identifies you as a legitimate 



subscriber. The database computer recog- 
nizes the password by its length and form. 
Because these forms and lengths are not 
uniform, computers cannot communicate 
between databases. If you subscribe to the 
electronic mail database at CompuServe 
and I am on Tymnet's OnTym we cannot 
send letters to each other. 

Promoters of this version expect industry 
standards similar to those allowing the 
various common carrier packet networks to 
interconnect worldwide. A standard would 
enable the services to communicate freely. 

Meanwhile, several subscriber-supported 
electronic mail services are in operation. 
Rich Baker of CompuServe said their mail 
database is put to a wide range of uses, 
from replying to want ads posted on elec- 
tronic bulletin boards to playing electronic 
games. Newspapers use electronic mail to 
transmit stories from remote bureaus to 
their main offices and traveling salesmen 
use it to communicate with their offices. 

Facsimile Systems 

The second picture of the future Is based 
on the presumption that the dominant form 
of electronic mail will send and receive pho- 
tographic copies of documents. To use this 
system you would prepare your letter with a 
pen or typewriter. A business could prepare 
advertising packages as It does now. The 
finished product would be placed In a 
machine resembling a photocopier. The ma- 
chine would read the document and send 
an exact description to the machine at the 
location you selected. That machine would 
create an identical copy. 

The big advantage of this system is the 
control the sender has over the infor- 
mation's form. This might not be Important 
in a personal letter or interoffice memo, but 
it is very important when the information is 



"... this opposition from 
a politically strong White House 
probably means ECOM is dead" 



a graph or photograph. Unfortunately, the 
machinery is more expensive than a dumb 
terminal and less versatile than a micro- 
computer. It is unlikely that the average 
home in the year 2001 will have such equip- 
ment. This system would probably be used 
between central locations; individual docu- 
ments would be mailed from the receiving 
stations to their ultimate destinations. 

The USPS was scheduled to inaugurate 
such a facsimile system, called Electronic 
Computer Originated Mail (ECOM), in 
January. All the necessary equipment to 
connect several US cities has been pur- 
chased. The Reagan administration, how- 
ever, is opposed to the USPS entering the 
electronic mail market. The White House 
and Departments of Justice and Commerce 
have jointly filed statements with the Postal 
Rate Commission opposing the ECOM plan 
and any other move into this area by the 
postal service. David Foulger, editor of Elec- 
tronic Mail and Message Systems, a 
biweekly bulletin published by International 
Resource Development, Norwalk, Ct, said 
this opposition from a politically strong 
White House probably means ECOM is dead. 

However, he said several other firms are 
waiting in the wings, ready to start their 
own services; Federal Express, particularly, 
seems to be preparing for an overnight fac- 
simile mail delivery in competition with the 
USPS, and is renting satellite transmission 
capacity far beyond their internal needs. 

In spite of the problems with ECOM and 
competition with desk-to-desk mail, fac- 
simile apparently has a good future. The 
Report on Electronic Mail for the second 
quarter of 1981 , a publication of The Yankee 
Group, Cambridge, MA covers the market 
potential of several facsimile systems de- 
signed for office use. They conclude this 
form of message moving will retain part of 
the electronic mail market because it 
eliminates typing information already on 
paper into the system. They predict facsi- 
mile transmission equipment integrated in- 
to office work-stations rather than market- 
ed as independent items. The integrated 
systems would offer word processing, 
database access, data processing and elec- 
tronic filing as well as electronic mail. 

AT&T Entry 

The other big communications monopoly 
in the United States, American Telephone 
and Telegraph (AT&T), is also preparing for 
entry into electronic mail. Presently AT&T is 
voluntarily going through the throes of par- 
tial deregulation. 



Foulger expects AT&T will probably meet 
the deadline Congress has set to create a 
separate subsidiary operating in electronic 
information. The subsidiary is required so 
the telephone giant cannot use revenues 
from business areas in which it has a legal 
monopoly to fund adventures in other 
areas, an unfair advantage over com- 
petitors. AT&T will move quickly into elec- 
tronic mail as well as other electronic data 
service areas as soon as legal requirements 
are met. 

However, he said, "Deregulation may not 
be the gift that AT&T thinks it is." 

AT&T will be entering a highly competi- 
tive market in which several corporations, 
including GTE Telenet and Tymnet, are al- 
ready established. Foulger predicts other 
firms will unveil ambitious systems. 

Home Use 

Futurists disagree whether electronic 
mail will be major in the home for the rest of 
the century; they agree on the definition of 
electronic mail. Ray Boggs of the Consum- 
er Division of Venture Development Corp., 
Wellesley, MA, recently finished a study of 
the electronic home of the future. He con- 
cluded electronic mail "doesn't fit in" as a 
communications device and will not re- 
place the telephone. 

On the other hand, he and many others 
expect electronic money transfer arrange- 
ments in our future, allowing the consumer 
to send orders from home directly to the 
bank's computer. 

"It will be precisely this kind of applica- 
tion that will drive the home computer 
market," Boggs said. Francis O'Reilly, an 
independent business analyst for Business 
Communications Corp., Stamford, CT 
agrees with this scenario. He points out 
that financial transfers account for 90 per- 
cent of all first-class mall. 

"By the end of the century, electronic 
money transfer is going to eliminate most 
of this volume," he said, "so I think elec- 
tronic mail is going to creep in in ways other 
than the one we think of." 

The result would be less paperwork for the 
customer and less data entry for the bank. 

Your bills would come directly to your ter- 
minal through the network. Your employer 
could complete the cycle by having his 
computer deposit your pay directly into 
your bank. 

Electronic Mall and the Telephone 

O'Reilly also believes electronic mail may 
partially replace the telephone for personal 



conversations. If we communicated through 
electronic mail I could send him my inter- 
view questions on electronic mail when I 
wanted to, and he could send his answers 
and comments back at his convenience. 

"Of course we would lose the interactive 
nature of the conversation," he said. On the 
other hand, it would save days of telephone 
work spent alternately calling people and 
transcribing answers from long lists of 
questions. 

All these applications wait for home com- 
puters to become commonplace. It is not 
practical to offer these services until 
enough of the public can use them. O'Reilly 
and Foulger both predict we will reach this 
point by 1990. 

Mall by Cable 

A recent issue of Electronic Mail and 
Message Systems reported the present 
trend in cable television is to offer a huge 
selection of channels. One cable company 
now has a license to offer 150 channels in 
Princeton, NJ, and another has proposed a 
200-channel cable in Florida. 

Foulger wonders what they are going to 
put on all those channels. He suggests that 
some of those extra channels could carry 
data services into the home. The Source 
and CompuServe are already experiment- 
ing with cable. 

Another possibility is electronic data ser- 
vices offered simultaneously with voice 
telephone transmission. Telephone lines 
carry several calls at once through multi- 
plexing. According to Lawrence Roberts of 
GTE, the creator of the first operating 
packet network, there is no reason data 
transmissions could not be multiplexed 
with voice. 

The French government is experimenting 
with this kind of service. At least one 
French firm manufactures a telephone 
modem allowing simultaneous voice and 
digital data transmission, according to 
Foulger. 

Business Mail 

Vision is clearer in the business world, 
where the trend for electronic mail as part 
of the electronic office is gathering 
strength. So far, O'Reilly said, electronic 
mail is "a large corporation phenomenon. 
The smaller organizations have the commu- 
nications network to do it, and I think they 
have the need." 

Electronic mail is used in three situa- 
tions: 

• In office complexes, where it is incon- 
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"The lengthy Canadian mail strike 
divided the electronic mail sheep 
from the goats. . . " 



venient for one executive to meet with an- 
other, electronic mail replaces telephones 
and sends graphic data the telephone can- 
not display. 

• Firms with traveling sales staffs equip 
their salesmen with portable terminals 
used to send orders and receive memos 
from the home office. 

• Firms with widely separated offices 
(including overseas branches) use electron- 
ic mail databases on the common carrier 
networks for interoffice communication. 

Costs 

Electronic mail is still more expensive 
than the USPS. According to sources for 
both Tymnet and CompuServe, electronic 
"postage" for the average message is 
about 50 cents, as opposed to 18 cents for 
first class mail. The stamp, however, is the 
smallest part of a letter's cost. Electronic 
mail could save time, labor and money com- 



posing the letter with word processing. 

Electronic mall, however, is not being 
seen as a stand-alone service in the market- 
place. H. Paris Burstyn of The Yankee 
Group said the current office trend is 
towards integrated systems which offer 
word processing, database access, data 
processing and electronic filing as well as 
electronic mail. 

A similar situation can be envisioned in 
the home market. The average homeowner 
may not be interested in investing In a mi- 
crocomputer solely to have access to elec- 
tronic mail. However, if he does buy a com- 
puter for other reasons electronic mail 
becomes a useful and easily added utility. 

International Mall 

The legal situation is not entirely clear, 
depending In part on the country. Foulger 
may be correct in his opinion that the Rea- 
gan administration will prevent the USPS 



from entering the electronic mail arena. 
Furthermore, as Burstyn points out, the de- 
partment moved too late to establish a legal 
monopoly on the service. Too many other 
companies are already in electronic mail in 
the United States. 

In other countries the formula is differ- 
ent: The national telephone monopoly, 
often a part of the government, also runs 
the dominant data network. Foulger says 
Canada sees electronic mail as a direct 
threat to its postal system; the government 
is restricting its development. 

How long can they delay the inevitable? 
The lengthy Canadian mail strike divided 
the electronic mail sheep from the goats, 
according to Foulger. Firms with electronic 
mall systems in place were not greatly hurt 
by the strike, but those without it had much 
more trouble. 

Foulger said a strike alone will not cause 
businesses to adopt electronic mail, mainly 
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VOLUME I 

The most complete book yet 
on the math routines of the 
BASIC ROM, Models I & III. 
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about integer, single and dou- 
ble precision formats, advanc- 
ed math, data manipulation, 
and assembly language inter- 
facing, with examples. In- 
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VOLUME II 

Packed full of useful informa- 
tion on the model I input/ 
output routines, with de- 
tailed listings to illustrate the 
commented source code 
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video, printer port, and 
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mers, you can write your own 
routines or use fhe many pro- 
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Ever tried to read computer sales literature? 

Ever tried to talk to a computer salesman? 

Ever tried to make a decision about 
which computer to buy? 



Yes then you know what frustration is. 
Help is on its way. Desktop Computing pre- 
miers this fall. The first and only computer 
magazine written in plain En g lish. Preposter- 
ous? Not at all. It is possible to explain com- 
puters without all the "computerese." That is 
what Desktop Computing will do each month. 
Send the card today for a no- risk subscription 
that will give you the kind of understandable, 
useful information on computers you've been 
waiting for. 

Why do you need a plain-En g lish explanation 
of desktop computers? Because they have just 
come of age and are saving thousands of busi- 
nessmen like you an amazing amount of 
money. They not only save money, do things 
faster, provide access to more information, 
allow a smaller staff to do more work, they also 
allow you to get into services for your custom- 
ers which were not practical before. You can 
provide more services at lower cost. To get in on 
the savings and expanded customer services, 
you need information. Desktop Computing will 
bring you that information. Desktop Com- 
puting will cut through all the technical 
hocus-pocus. 

In this time of high interest rates, a truly low 
cost desktop computer system (usually a micro- 
computer system) is a welcome event. Let Desk- 
top Computing explain what these systems can 
do for you. The subscription price is $25 a year 

but as a charter 

subscriber you can 

get the first year 

for only $17.97, 

totally tax 

deductible. 

Call toll-free: 

(800) 888-5473 

or mail the 

coupon below. 




Here's a look at some of the articles $17.97 will 
bring you: 

•When a small Business Computer 
Arrives, What Happens to the 
Small Business? 
•Letter to Hemingway RE: Word 

Processing 
•Professional & Small Business 
Microcomputers: Buying, Using 
and Fixing a System. 
•Adequate Backup: Protecting the 
Data in Your Computer. 
Wayne Green, the publisher of Desktop Com- 
puting (and also of Kilobaud Microcomputing 
and 80 Microcomputing— both successful 
computing publications) has gone through both 
the agony and joys of working with computers. 
He has lost a quarter of a million on a mainframe 
big boy computer only to come out on the other 
side with all the frustration necessary to run a 
200 employee publishing firm on several 
TRS-80's. 

Wayne has a reputation for being honest and 
unafraid. He'll make sure you get the truth. In 
the meeting introducing the idea of Desktop 
Computing to his staff Wayne said, 

"Our objective is to be the only com- 
puting magazine written in plain 
English." 

So that is what you'll be getting— honesty and 
directness. Desktop Computing will give you all 
the information you need on computers in plain 
English. 

This charter subscription is available for a 
short time only. Send the card today for the 
premier issue— October 1981— and get the infor- 
mation you've been needing for only $17.97. 

Desktop Coimnithv* 



Relief is here for only $17.97 

r~l YFS Si ^ n me up M a Cnarfcer Subscriber to Desktop 

Computing. I will get one year of the only comput- 
ing magazine written in plain English for $17.97 (a savings of 50% 
off the newsstand) My subscription will begin with the premier 
issue— October 1981 
Your firsl issur will be arriving by mid-October 1981. 

Canadian 1 yr. only/US funds $19.97 Foreign 1 yr. only/US funds $29.97 



NAME 



ADDRESS 
CITY 



STATE. 



ZIP. 



SIGNATURE 



CARD# 



INTERBANK # 



EXPIRE DATE_ 



Desktop Computing 

80 Pine Street Peterborough. NH 03458 



31NC8 



". . . electronic mail is appropriate 
for some uses and the telephone 
for others; they will not 
really compete." 



because of the long lead time necessary to 
install a network (up to six months). If the 
business chooses the common carrier sys- 
tem it can get on tine as quickly as it can ac- 
quire terminals. The Canadian packet net- 
work Datapac is not as well developed as 
packet network systems and does not 
reach all areas of the country. 

The story is entirely different in France, 
where the new Socialist government is 
sponsoring a public experiment in home 
networking in a Paris suburb. At the open- 
ing, the new communications minister told 
reporters France is definitely in the lead in 
this area and intends to export equipment 
to the United States. 

Impact 

Electronic mail's impact on users is hard 
to assess. Certainly it will not change per- 
sonal lifestyles as the telephone did in the 
1920s. Electronic mail is simply another 



kind of electronic communications. 

The USPS and its equivalents in the other 
industrialized countries are obvious targets 
for a major impact. Most first-class mail 
will disappear if O'Reilly's model of elec- 
tronic fund transfer comes true. Tymnet 
spokesman Dick Jokinen said his firm has a 
prototype service called TymGram allowing 
a single copy of a document at one end to 
produce multiple copies at different loca- 
tions. It is a small step to electronic mass 
mailing. 

Postal officials have read the writing on 
the wall. According to O'Reilly, the USPS at- 
tempt to enter the facsimile market was a 
bid to preserve the postal system, even at 
the expense of post office jobs lost to auto- 
mation. If it is prevented from entering this 
market or if the facsimile market does not 
catch on with the public, the post office 
runs the danger of becoming the system of 
last resort. 



The new service will probably have much 
less impact on telephone companies. As 
Baker pointed out, electronic mail is ap- 
propriate for some uses and the telephone 
for others; they will not really compete. 
Which service you use will be a matter of in- 
dividual taste. 

For the average user, Foulger said, the 
important fact is that the services are there 
and growing. If you are interested in learn- 
ing more about them, subscribe to The 
Report on Electronic Mail and Electronic 
Mail and Message Systems. You might also 
be interested in The Yankee Group's report, 
Home Electronics through 1995, Strategies 
for Providing Information and Control. 

Whether you decide to jump in today or 
wait and see what happens, whether you 
are an executive in a multinational corpora- 
tion, a professional with a one-person of- 
fice, or a homebody, electronic mail may be 
somewhere in your future.! 



Do your own taxes like an expert 
with TAX/SAVER. 



TAX/SAVERI M The tax help program 
for the layman and the professional. 

• Privacy. 

• Built-in tax aids. Answers questions like "Is my father my 
dependent?" and "Are my deductions reasonable?" 

• Tax regulations programmed in by our team of accountants. 
Type in your figures and you've done your own tax return. 

• Output to video or lineprinter. (Overlays available.) 

• Tax deductible. 

• Optional text: help for novices - speed for professionals. 

• Manual: Tax information, lists of deductions, tax glossary. 

• T AX/SAVER'" I: completes long and short forms, itemized 
deductions, interest, dividends, income averaging and 
maximum tax, tax calculation (all filing statuses in one run). 

• TAX/SAVER" II: all features of TAX/SAVER" I pius 
business income and capital gains. 

• Discount on yearly updates. 



Reviews: ** 355 

"Well designed and easy to use" — D. Lubar, Creative Computing Magazine 1/81 

"TAX/SAVER™ may very well live up to its name" 

M. Tannenbaum, CPA. 80 Microcomputing Magazine 2/81 

•Registered trademark of Radio Shack 'Copyright 1981 



& 



& 



TAX/FORECASTER" converts TAX/SAVER" 
to a tax planner Lets you see how financial decisions 
wili affect your taxes. Lets you revise an already 
completed return 



Orders will be filled in late January to allow inclusion of new tax laws 
TO ORDER: 



Call collect 203-324-3009 or 203-544-8777 or mail this 
coupon to: Micromatic Programming Co. 

P.O. Bom 158, Georgetown, CT 06829 

Please enroll me in member's service and send: 

D TAX/SAVER'" I <a $79.95 Manual included 

□ TAX/SAVER" II @ $1 19.95 Manual included 
O TAX/FORECASTER" (a) $29.95 

H Manual Only (« $19.95 

O Tax Form Overlays (a' $39.95 

□ Please send me more information 

Please check one 

a TRS 80* Model I. 32K with 2 disk drives 
a TRS 80* Model 111, 32K with 2 disk drives 

Add $.i SO tor postage and handling CT residents add 7 .. I sales tax 



Nat- 



Address 
City 



.State 



Zip. 



D Check 
Card No. 



D Master Charge D Visa 



.Exp. date_ 
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Not all Spelling Checkers are the same. 



MICROPROOF 



T.M. 



stands out! 



EASY TO USE: Prepare your text on any Z 90 based micro- 
computer, using any of a number of popular word 
processing programs When you are finished, enter the 
appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the 
screen Then correcting MICROPROOF can display each 
error separately, requesting you to enter the correct 
spelling for each. You are also given the option of displaying 
errors in context or adding words to MICROPROOF's 
50.000 word vocabulary. Finally. MICROPROOF corrects 
your document. All in less than a minute. 



SELECT APPROPRIATE RESPONSE 

CORRECT MISSPELLED WORD: 
LEAVE WORD AS IS": 
DISPLAY WORD IN CONTEXT: 
ADO WORD TO DICTIONARY: 
EXIT 



ENTER CORRECT WORO 
HIT ENJTE«> KEY 

? 



WORD: 
RESPONSE 



|Ysur irrtr) 



Correcring MICROPROOF Screen Display 

SPEED is the single most important (actor in a dictionary 
program AD dictionary programs will find your potential 
errors but il the program is too slow, you are not likely to 
use it. MICROPROOF's speed is outstanding It can proof 
read a several page letter in 20 seconds 



LOW PRICES: Standard MICROPROOF is available for 
either $89.50 (TRS-80* Models 1 or III l or 
$149.50 (CP/M«. TRS-S0* Model II and all others) The 
optional correction feature can be added at any time for 
an additional $6000. Optional patches to integrate 
MICROPROOF into your word processing software can 
also be added at any time for an additional $35.00. 
(Integration patch not needed for Wordstar* ) 



MICROPROOF'S FULL 50.000 WORD VOCABU- 
LARY saves you time and allows you greater confidence 
In the lists of potential errors that MICROPROOF 
identifies. The mini dictionary programs, with their 10.000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequentially, 
they identify as potential "errors" many words that are 
actually spelled correctly; five to ten times as many such 
words as does MICROPROOF So. when you use 
MICROPROOF you will have far fewer extra words to 
evaluate, a major time savings. There will be less need to 
look up words in order to verify that they are fn fact spelled 
correctly. The extra 30.000 words in MICROPROOF's 
vocabulary assures you confidence in the error lists that 
MICROPROOF generates 

There are other proofreading programs available to choose 
from. Since MICROPROOF became available m December 
of 1980, a number of companies have announced programs 
with small dictionaries. It took us almost two years to 
develop MICROPROOF. During that time we were able to 
compress our full 50.000 word dictionary into a manageable 
size (fits on one single density SX inch disk I And we were 
able to design a proofing program which operates 
remarkably fast The chart below illustrates the compara- 
tive advantages of MICROPROOF 

ADVANTAGES OF MICROPROOF 





See your focal microcomputer dealer or writ*. to: 



CORNUCOPIA SOFTWARE 

Post Office Box 502B. Walnut Creek Californ..- 945% ♦ • 4!S)JM3-0&ti *»3's 



BUSINESS 



A Model II brings one school system out from under. 



Paper Mountain 



Theron Wierenga 
Box 2007 
Holland, Ml 49423 



The public school district where I am 
employed has for years suffered under 
a paper mountain of personnel records and 
files. Whenever it was necessary to form a 
seniority list, mail out letters to teachers, 
list personnel by various account codes or 
total salaries, it took weeks to sort through 
the personnel files for the information. 

In April, the school system I worked for 
was going to furnish the intermediate 
school district with personnel records writ- 
ten on special transmittal forms. A change- 
over to place our general ledger and payroll 
on their large computer was to take place in 
July. It became apparent that having our 
personnel records in a small computer of 
our own would be of great value for printing 
these transmittal forms as well as numer- 
ous other jobs. Someone is always asking 
for a list of special education teachers in 
the junior and senior high schools or some 
other version of the employee list. An in- 
house computer could also keep track of 
salary schedules for future projections of 
wage costs, along with being of real service 
during contract negotiations. 

After much consideration, we decided 
that Radio Shack's Model II with 64K, a Line 
Printer III and two additional floppy disk 
drivers would do the job. The cabinet for the 
additional drives has an extra slot open for 
a third drive. With three drives future expan- 
sion should not be a problem. About 1,000 
employee records needed to be stored, 
each taking up about 500 characters of da- 
ta. It was decided that I would author all of 
the software, as the district's needs were 
peculiar to its own record keeping system 
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(as is often the case). The major portion of 
the software was written in about two 
months, with several months of clean-up 
and changes after this. 

Basically, this system is designed 
around a set of personnel records that can 
be manipulated by several utility programs. 
A single employee's data is stored in two 
sectors of a disk. The employee number is 
the same as the record number in which the 
data is stored. Because a record is 256 
bytes long on the TRS-80 Model II system 
(one sector), each employee's data is divid- 
ed into two files called P1 and 92. For exam- 
ple, the first half of the data for employee 
number seven is stored in record seven of 
file P1 and the second half is in record sev- 
en of file P2. This gives a direct relationship 
between employee number and record num- 
ber, allowing much faster access to records 
when editing a file. 

The two sectors contain up to 81 different 
items for each employee. The item descrip- 
tors, the number of spaces allocated for 
each item and the necessary format (if any) 
can be found in Table 1. 

All data that is stored in an employee's 
record is stored as string (ASCII) data. Nu- 
meric values must be extracted from the 
string data if it is needed, as with monetary 
amounts. Although the Model II has Basic 
functions for changing numeric values to 
strings and back again, these were not used 
in most of the programs. (As it turns out, in 
this application it becomes more bother 
than it's worth.) Special routines are used 
within the programs to do this whenever it is 
necessary. 

There are a total of five programs used to 
create and manipulate the file. They are 
called Builder, Printer, Sorter, TMatrix and 
Teacher. 

Builder 

This program builds the employee file 
and allows the user to update and edit it. 
There are five sections: Input, where an en- 
tire employee record of 81 items can be en- 



tered in order; Edit, where individual items 
in a record can be changed; Update, where 
the same item in each record can be 
changed; List, which gives the user a dis- 
play of the item labels and Delete, where an 
employee's record is erased. 

When entering the Input section, the 
computer prompts the user to enter the 81 
individual items. The employee number en- 
tered must be the same as the record num- 
ber dislayed just before the employee num- 
ber is asked for. For any item that is to be 
left blank, Enter can be pressed without typ- 
ing any characters, and a single dash (-) will 
be entered for the blank item. After all 81 
items are entered, the computer will store 
the entire record on the disk and then dis- 
play the transmittal form, as entered on the 
screen. The user is then asked if he or she 
wishes to continue with the next employee 
record. If the answer is no the program will 
ask what section to enter next. If Edit is 
then entered, corrections or changes could 
be made in the record just entered. 

When Builder displays a label asking the 
user to enter an item, a row of asterisks will 
appear under the label. The length of this 
row shows the amount of space allowed for 
the item. If fewer characters are typed in, 
the computer will fill the rest of the item 
with blanks. If too many characters are en- 
tered, the computer will shorten the item to 
the maximum length. 

The Edit section asks you for the number 
of the employee whose record you wish to 
change. The second question is the item 
number you wish to change. After this is en- 
tered, the computer displays the entire em- 
ployee record and asks for new information 
for the item specified, while displaying the 
current entry for that item. The program will 
continue to ask for different items to be ed- 
ited until the user types in a zero to quit. 

If Enter is pressed without typing a new 
entry in, no change will be made in the 
record. 

The update section is similar to Edit ex- 
cept the program allows you to edit the 



same item in every record. The program will 
display the entire record and the current en- 
try for the item to be updated. 

After a new item is entered, the next em- 
ployee record will be displayed and then it 
can be updated. If you don't want to make 
any changes, press Enter and the item will 
not be changed from the current entry. 

The List section of the program does not 
operate on the file but can be useful before 
using Edit or Update. When an L is typed, 
the computer displays all the item labels to- 
gether with the item number and the num- 
ber of spaces allowed for each item. The 
display can be frozen by pressing the Hold 
key. (Pressing the Hold key a second time 
continues writing the items on the screen.) 
The entire list of labels will not fit on the 
screen at one time. 

Typing a Q(uit) will return the user to 
Basic. 

When the Delete section is entered, the 
program prompts the user for the employee 
number of the person whose record is to be 
deleted. After the correction employee 
number is entered, all items in the record 
will be erased except the following: 



1. Employee Number 

2. Position Title 

6. Name 

7. Social Security Number 
S Address 

9. City-State 

10. Zip 

11. Phone 

13. Term. Date 

14. Reason 
75. Residency 



The appropriate reason for deleting the 
record must be entered in item 14. Active 
employees will have a dash, i.e., nothing en- 
tered, for Reason. The entry is Reason is- 
used by the Printer program to determine 
whether a person is an active employee 
or a former employee and, consequently, 
whether the record should be printed or not. 
Note: It is important to always exit Builder 
through the Quit command. If the break key 
is used instead, some data may not be writ- 





Number of 






Characters 


Format, Etc. 


Diet— County and district numbers. The computer (ills this with 61010 






always. 






1. Employee Number— We assign a 4 digit number which is the record number 


5 


xxxx 


in our computer 






2. Position Title— A narrative description. 


20 




3. Class— Type of employee 


2 




4. Bldg.— Employee's work center 


2 




5. Dept.— Where employee is assigned 


2 




6. Name— Employee's name— last, tirst, initial with no punctuation 


25 




7. Social Security Number— 9 digits, include the two dashes 


12 


xxxxxxxxx 


8. Address— Number and street 


20 




9. City-State— City and State abbreviation, state in last two spaces at right 


15 




10. Zip 


5 




11. Phone— Home phone, Include the dash 


9 


xxx-xxxx 


Table 1. A sample of the employee transmittal form. The number of characters 


cannot be Increased or the format changed. 







ten to disk and lost. 



Printer 



This program is used to output the em- 
ployee file, or portions of it, to the line print- 
er. There are three options. 

One option prints a complete set of em- 
ployee transmittal forms. The appropriate 
forms are placed in the printer, and the print 
head is centered on the top line. Next, enter 
the employee number of the first and last 
employee to be printed. This allows you to 
start in the middle of the file, if necessary; a 
useful feature after the printer has run out 
of paper, for example. 

Option number two prints a listing of the 
file with only a few basic items. 

The items printed are: 

1. Employee number 

2. Position Title 

3. Class 

4. Building 
6. Name 

45. Total 

58. 63. 68. 73. The 4 Contracts 

59. 64. 69. 74. The 4 Accounts 

This option also allows one to specify the 
first and last employee desired. 

The third option prints the employee 
transmittal form as in option one, however, 



only one employee is done at a time. This al- 
lows the user to obtain a single set of forms 
after a record has been edited. After the 
transmittal form has been printed, the pro- 
gram asks for another employee number. 
Additional forms can be obtained, or by typ- 
ing a zero, the program will quit. If the user 
wishes to have the printer discontinue im- 
mediately, the Break key can be pressed. 

Before Printer begins to output the em- 
ployee records, the user is asked, "Should 
former employee's records be printed?" If 
the response is yes, then all records in the 
file are printed. If no is the response, then 
only those records that have a "-" for Rea- 
son (item 14) will be printed. Item 14 should 
be changed to the appropriate Reason code 
whenever an employee's record is deleted 
in Builder. 

Sorter 

The program is a general purpose sort 
and print routine. It has several features: an 
unlimited number of keys, partial keys, 
And. . .Or function, four types of printout, 
seven items that can be summed, and the 
printout can be ordered or alphabetized by a 
given item. 

At the beginning of the program you are 
taken through a series of questions to de- 




Photo 1 
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"We want a minimal printout of 

all teachers who reside in the district. 



lermine what type of a sort will be done on 
the file and what kind of printout is desired. 
As an example, consider the following sort 
through the file. We want a minimal printout 
of all teachers that are at the high school 
who are residents of the district. This will be 
an And sort because the person must be a 
teacher and a high school employee and a 
resident. We will not sum any items, but we 
want the list alphabetized by name. 
The questions asked are as follows: 

• How many keys? — you must respond 
with the number of different items that will 
be used to perform the search. In our exam- 
ple this would be three: teachers, high 
school employee and resident. 

• Enter Item number for key# — at this point 
you enter the item number for the three 
keys. They would be 3, 4 and 75. 

• Do you wish a partial key?— in this case 
no. A partial key is used only when a portion 
of an item is being searched for. An exam- 
ple of this might be a particular three 
numbers in the middle of one of the account 
numbers. 

• Enter position of first character, number 
of characters and the exact Key— this sec- 



tion prompts the user for the partial key if 
one was chosen. Three values must be 
typed in, separated by commas. The first 
value is the numerical position of the first 
character of the partial key. The second 
value is the number of characters in the par- 
tial key, and the third value is the partial key 
itself. An example would be 4, 2, AB, mean- 
ing the fourth character in the item is the 
first character in the key. The key is two 
characters long and the exact key is AB. 

• Enter exact key for —if a partial 

key is not chosen, this message prompts 
you for the exact key to be compared with 
the entire item. An error message will occur 
if the key typed in is longer than the number 
of characters used for the item. If the key 
typed in is shorter than the full number of 
characters used for the item, the program 
fills extra spaces with blanks to the right. 

• Is this an And or Or sort?— this input al- 
lows the user to choose two different types 
of sort. An And sort is when all of the vari- 
ous keys must match the items in an em- 
ployee record before that record will be 
printed. The Or sort will print the record if 
one or more of the various keys match the 



items in the employee record. 

• What type of printout do you 

desire?— there are four possible types of 

printout: 

A minimal listing of employees that in- 
cludes the employee number, position ti- 
tle, class, building, name, total and the 
four contracts amounts and the account 
numbers. This printout takes four lines 
for each employee. 

A printout of the entire record in a style 
very similar to the employee transmittal 
form, but instead it is printed on regular 
blank paper. 

A mailing label that contains only the 
name and address of the employee. Sin- 
gle width, pre-gummed labels, with a six 
line spacing from label to label, must be 
placed in the printer. 

A printout that consists of a list of 
desired items that the user has speci- 
fied. If this option is chosen the program 
asks, "How many items do you want 
printed for each match?" This can be any 
value up to 80. The program then asks 
you to Enter item #— to be printed. The 
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Now for theTRS-80 Models I & 




DOUBLE S ded & OOUBLE Density su 

AUTOMATIC Density recognition. 

' 35, 40, 77, 80 and any other track counts are supported. 
1 All available drive stepping rates are supported. 
' Hard Drive support, can be HANDLED AS A SINGLE DRIVE. 
' Hard drive partitioning, one drive can act as up to six. 
' Intermix 5", 8" and Hard drives, up to a total of 8 drives. 

• Compatible with the Model I Radio Shack Expansion Interface. 

• Upward compatible with TRSDOS (2.3 & 1.3 as documented). 

• Fully supports Microsoft language products for TRS-80. 

• Complete media compatibility Model I to Model III and back. 
1 Full support for LOBO's LX-80 interface. 

• Full support for AEROCOMPS double density control ler(DDC) 
> Full support for PERCOM's DOUBLER II. 

• Complete documentation (well over 250 pages). 

• Complete technical information. 

• A TOLL-FREE 800 number for customer service. 

• An LDOS users bulletin board on MicroNET. 

• A Quarterly LDOS users magazine (The LDOS QUARTERLY). 

• A liberal update policy. 

• An enhanced BASIC (LBASIC) including: 

> Upward compatible with Microsoft Basic. 

> High speed LOAD and SAVE. 

> Run multiple programs with common variables. 

> BLOCKED (variable length) files are supported. 

> DOS commands may be executed from LBASIC. 

> Built in string array. SORT. 

> Single stepper for debugging. 

> Several new statements and file modes. 



p led XWTONTROL LANGUAGE ( JCL). 

• CONVert utility to move files from Model III TRSDOS. 

•An Extended Debugging and Monitor program (with diskaccess). 

• CMDFILE for movement of disk and/or tape system (/CMD) files. 

• Device independent operation. 

• Full LINKing, ROUTEing, FILTERingandSETting are supported. 

• MiniDOS feature for constant access to certain DOS commands. 

• RS-232 DRIVER for serial support. 

• Sophisticated communications software included. 

• Wildcard characters and partial Filespecs are supported. 

• DATED FILES, show when a file was last written to. 

• Backup: Mirror, by Class, if Modified, by Date, by Extension, etc. 

• Selectable PURGE for fast disk "cleanup" of unwanted files. 

• Print formatter, for control of printer output. 

• Built in printer SPOOLER, to both disk and ram. 

• Joblog to record all system operations with time stamps. 

• UPPER and lower case support, throughout the system. 

• Blinking cursor with selectable cursor character. 

• 128 character TYPE AHEAD buffering for keyboard input. 

• Assign strings to individual keys with Key Stroke Multiply (KSM). 

• SUPER FAST operation with the SYSRES feature. 

• Extensive user control and system feedback. 

• Advanced PATCH utility for easy maintenance. 

• Complete transportability of software among all Z-80 LDOS 

systems through the use of the LDOS high ram supervisory 
call system. 

• Dealers to serve users Nationwide and in the Common Market. 

• The only DOS with a limited ONE YEAR WARRANTY* 

• Enjoy a professional operating system on YOUR TRS-80! 



* Specific hardware is required to use these features. 



The Ultimate In 
Operating Systems 
For Model I & III 



Only $ 



169 

Version 5.1 



00 



* Model I LDOS provided on 35 track single density media. 
'Model III LDOS provided on 40 track double density media. 

* LDOS can be provided on special media configurations at an 
additional charge. 

* Prices & Specifications are subject to change without notice. 
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For Further Information Contact The Distributor Or Dealer Nearest You: 



(West) 

LOBO DRIVES INT'L 

354 S. Fairview Ave. 

Goleta.CA 93117 

(805) 683-1576 



(Central) 
GALACTIC SOFTWARE LTD. 

11520 N. Port Washington Rd. 

Mequon, Wl 53092 

(414) 241-8030 



(East) 

MISOSYS 

5904 Edgehill Dr. 

Alexandria. VA 22303 

(703) 960-2998 



(The Common Market) 

MOLIMERX LTD. 

1 Buckhurst Rd., Bexhill 

Sussex, England 

(0424)220391 



DEALER INQUIRIES WELCOME. LDOS is a product of LSI. TRS-80 & Radio Shack are trademarks. 



i 



OGICAL 
SYSTEMS 
INC. 

Mequon, Wl 53092 
(414)241-3066 



"The program prints a complete new 
salary schedule from one to 13 years. 



list of item numbers for the desired print- 
out is then entered. Users should always 
enter several items that will easily iden- 
tify the employee when a match is found. 
Examples would be the employee num- 
ber, name, class, building, etc. If a large 
number of items are requested the user 
should keep in mind that they will be 
printed across the line in the order they 
were entered. If the length of the request- 
ed items exceeds the width as specified 
by the Forms statement the printer will 
continue on the next line. 

• Do you wish to have any items 
summed?— there are a total of seven items 
in the employee's record that may be sum- 
med as the individual employees are found 
in the sort. These items are the Total (item 
45), the four Contract amounts (items 58, 63, 
68, 73), the C— curricular percentage (item 
76) and the Longevity amount (item 81). 

If you wish to have items summed, the 
program will first ask, for "How many 
items?" and then ask the user to Enter the 
item number. If more than seven items are 
asked to be summed, the program will ask, 
"How many items?" again. The program al- 
so checks to see if the items entered are val- 
id ones for summation. If the item is invalid, 
the program asks for the item number to be 
entered again. 

• Do you want the printout to be alphabet- 
ized or ordered?— if no order is needed the 
program will simply print out the employee 
records as matches to keys found, and the 
order will be by employee number. If 
something like a printout in alphabet order 
by employee name is desired, Y should be 
answered. The program then asks the user 
to Enter the item that the printout will be 
alphabetized or ordered by. A 6 should be 
entered if alphabetizing by employee 
name is desired. Other item numbers will 
produce an ordered printout based on that 
particular item. This allows you to print 
sorted records by building number, class, 
years of service, etc. 

TMatrix 

This program must be run to calculate 
the number of employees on each step and 
level of the salary schedule. Once run, the 
program Teacher will use the data file that 



TMatrix produces and stores on the disk. 

TMatrix does a limited sort on the four ac- 
count codes and also allows the user to 
choose the class code (item 3). The ques- 
tions the user is prompted with are as fol- 
lows: 

• Enter the file name for the matrix— the 
user should enter a name for the matrix that 
is six characters or less. This same name 
must be used when running Teacher. 

• Is this an And or Or sort?— an And sort Is 
when ail keys must match the employee's 
record and an Or sort is when only one or 
more keys must match. 

• How many keys for the account 
codes?— enter the number of keys there 
will be in the search. 

• Enter item number, position of first char- 
acter, number of characters and the exact 
key for each account number desired— the 
valid item numbers are 59, 64, 69, and 74. 
The next three values are the position of the 
first character of the partial key, the number 
of characters in the key, and the key itself. 
The four values are all typed on one line, 
separated by commas. This is similar to a 
prompt in Sorter, but the item number for 
the account code must also be Included. 

The current record number being read is 
displayed on the screen as the search con- 
tinues. When the search is finished the ma- 
trix is printed along with a separate matrix 
for the longevity schedule. 

Teacher 

This program computes a new teacher 
salary schedule using the amount of the 
current base salary and the percent in- 
crease for the new schedule. Upon entry in- 
to the program the following questions are 
asked. 

• Enter the file name of the matrix you wish 
to use— a file name that was created by the 
use of the TMatrix program should be 
entered. Various matrices can be stored 
and used depending upon the employee 
group desired. 

• Enter current base and percent in- 
crease—the current base salary and the 
percentage increase (in whole number per- 
cents, for example 7.5 for 7.5 percent) 
should be entered. 

• If projections are to be on next year's ma- 
trix Enter A 1 , if on this year's Enter A 0— If a 



1 is entered, each employee will be entered 
Into the matrix on the next year's step. This 
allows the user to project the cost of next 
year's salary schedule. The program will 
print a complete new salary schedule from 
one to 13 years by half year steps and from 
14 to 40 years by yearly steps. 

After the new schedule Is computed, the 
program uses the data file produced by 
TMatrix to find the total amount of teacher 
salaries for each step and level of the salary 
schedule. A printout of this follows in which 
each step is subtotaled and a projected to- 
tal of all teacher salaries is arrived at. A sep- 
arate schedule for the longevity totals is al- 
so printed in the same format. 

Although the programs shown and de- 
scribed here are structured for the employ- 
ee file at a particular public school system, 
the basic structure can be used for the em- 
ployee file of any company or public institu- 
tion. Actually, very few changes would have 
to be made in the three main programs 
Builder, Printer and Sorter. The salary 
schedule projection programs TMatrix and 
Teacher would have to be rewritten exten- 
sively. 

Changes 

The number of items (NUM), item labels, 
and the number of characters in the data 
statement would need to be changed. The 
format of the printout on the video display 
In Builder and printing in Printer and Sorter 
will need complete changing to reflect the 
Items each employee record has. The Dim 
statement and the Open and Field state- 
ments will need to be changed depending 
on the number of items and characters in 
each record. Along with this, a few con- 
stants in the program will have to be 
changed, for example the value 254 (which 
is a record length) in several formulas. The 
specific items deleted In Builder and sum- 
med in Sorter will have to be changed to 
meet individual needs. 

Very little work was done on these pro- 
grams in terms of optimizing them for 
speed. In spite of this, they run fairly quickly 
for a microcomputer that is reading and 
writing to disks. The total time to run Sorter 
given roughly 1,000 employee records, mul- 
tiple keys and alphabetizing the output is 
under one hour.B 



100 REM 

120 REM 

140 REM 

160 REM 

180 REM 

200 REM 

220 REM 

2*0 REM 



- BUILDER 



Program Listing 1 



Thij program builds the en.plo.ee fi 1 * and allow* on* to 
to update arid edit it. There are five sections; Input » 
where an entire record ll entered* Editi where items in 
a record can be changed and Update* where the same item 
in each record can be changed. There is- alio a List option 
where a listing of the labels can be obtained on the 
screen* and a Delete function that will erase a record. 
Written b ■ Theron Wierer.ya during March 1980. 
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Program Listing 1 continued 

260 CLEAR 2000 

280 DIM L»<90).L1C90),F«<90) 

300 REM - READ IN DATA 

320 NUM=81 

340 FOR 1=1 TO NUM 

360 READ Lf(I)iLKI) 

380 DATA EMPLOYEE #.5. POSITION TITLE. 20. CLASS, 2 t BUILDING. 2 i DEPARTMENT i 2. NAME i 25 i SOCIAL SECURITY #,12, ADDRESS 

A00 DATA 20, CITY-STATE, 15, ZIP, 5, PHONE, 9, EMPLOY DATE, 8, TERM. DATE. 8, REASON, 1 , RE-EMPLOY DATE. 8. BIRTH DATE. 8 

420 DATA YRS. SERVI CE. 5, CITIZEN, 1 , ETHNIC, 1 . MARITAL STATUS, 1 . SEX. 1 . BANK ACCOUNT ft, 10. EXPERIENCE. 5 

440 DATA CERTIFICATE 1 , 6, CERTIFICATE 2, 6, CERTIFICATE 3, 6, DEGREE, 1 , HOURS, 3. INSTITUTION, 2, MAJOR 1,2. MAJOR 2.2 

460 DATA MINOR 1,2, MINOR 2, 2, MINOR 3, 2. ASSIGNMENT. 4. LEVEL. 1 . PROB. EXPR. DATE. 8. LAST TB TEST. 8 

480 DATA LAST INCREASE. 8. NEXT INCREASE. 8. DAYS. 4. HRS. /DAY, 5, TYPE, 1 , EXPR. DATE, 8 

500 DATA TOTAL, 9, PAYS, 2, FED. EXEMP. . 7. STATE EXEMP. . 7. LOCAL EXEMP. , 7. RET. ID #.5.FICA EX.. 1. AUTO PAY. 1 

520 DATA STMT. 1. INS. SUBSIDY. 7. STEP/LEVEL 1.3. CODE 1 . 1 . RATE 1.8. CONTRACT 1.9. ACCOUNT 1 . 24. STEP/LEVEL 2. 3. CODE 

> 1 

540 DATA RATE 2. 8. CONTRACT 2.9.ACC0UNT 2, 24, STEP/LEVEL 3. 3. CODE 3,1. RATE 3,B,C0NTRACT 3.9.ACC0UNT 3.24.STEP/LE 

EL 4. 3, CODE 4,1 

360 DATA RATE 4, 8, CONTRACT 4. 9. ACCOUNT 4, 24. RESIDENCY, 1 . CO-CURR. V..5.L1FE INS. , 1 , DENTAL INS. . 1 .VISION INS. . 1 

580 DATA HEALTH INS. i 4, LONGEVITY, 4 

600 NEXT I 

620 OPEN "D-. 1." PI '.254 

640 FIELD 1.254 AS Alt 

660 OPEN *D*.2.*P2*.233 

680 FIELD 2.253 AS A2* 

700 GOSUB 2100 

720 IF G*--I" THEN 1260 

740 IF G«»'U" THEN 1820 

760 IF G»»"L" THEN 4000 

780 IF G*-"D" THEN 4220 

800 REM#*«*#«#*««*«*««««*#««««««««#**«**«««#««««»»»*«*»*»»»»###**##««««#####«« 

820 REM - EDIT A RECORD 

840 PRINT" INPUT EMPLOYEE NUMBER - ENTER (ZERO) TO QUIT" 

860 S>*-1 

880 INPUT S 

900 IF S=0 THEN 700 

920 IF S>0 AND S<-L0F(1) THEN 980 

940 PRINT"BAD EMPLOYEE NUMBER" : PRINT 

960 GOTO 840 

980 GET l.S 

1000 GET 2,S 

1020 PRINT: PRINT 

1040 PRINT'WHICH ITEM - ENTER <ZERO) TO QUIT" 

1060 I— 1 

1080 INPUT I 

1100 IF 1=0 THEN 700 

1120 IF I>0 AND K-NUM THEN 1188 

1140 PRINT" INVALID ITEM NUMBER - TRY AGAIN" 

1160 GOTO 1020 

1180 GOSUB 3300 

1200 GOSUB 2320 

1220 GOTO 1020 

1240 REM»*******»«*»*#*»****«***«#**#*«#««####**#«#*»##**#«#«#**«»»»#«««*##«*« 

1260 REM - INPUT ENTIRE FILES 

1280 H»«*-" 

1300 R-LOF< 1) 

1320 R-R+l 

1340 PRINT'NEXT RECORD NUMBER IS";R 

1360 D«=*" :E*="" 

1380 FOR 1=1 TO NUM 

1400 GOSUB 284(9 

1420 PRINT 

1440 GOSUB 3040 

1460 IF I>42 THEN 1520 

1480 D»-D*+C$ 

1500 GOTO 1540 

1320 E*=E*+C* 

1540 NEXT I 

1560 LSET Al»-D* 

1580 PUT l.R 

1600 LSET A2«-E* 

1620 PUT 2.R 

1640 GOSUB 3300 

1660 PRINT l PRINT 

1680 PRINT" CONTINUE <Y OR N)"; 

1700 INPUT 6« 

1720 IF G»="Y* THEN 1320 

1740 IF G*="N" THEN 700 

1760 GOTO 1680 

1780 REM*«*»**»***»#»«#«*«»*««»#***« *♦*«*♦♦*»♦**«*«*«««#»»#«»*•»» *«*♦#««♦*##♦» 

1800 REM - UPDATE A SINGLE ITEM IN ALL FILES 

1820 PRINT" INPUT ITEM NUMBER TO BE UPDATED IN ALL RECORDS" 

1840 1-0 

1860 INPUT I 

1880 IF I>0 AND IC=NUM THEN 1940 

1900 PRINT" INVALID ITEM NUMBER - TRY AGAIN" 

1920 GOTO 1820 

1940 FOR S=l TO LOFU) 

1960 GET l.S 

1980 GET 2.S 

2000 GOSUB 3300 

2020 GOSUB 2320 

2040 NEXT S 

2060 GOTO 700 

2080 REM»*»»»«***«»*»*»««««*#*«#* *##♦•*••»»»»»**««««•#«*••»#**«*•###*#»« **«««•# 

2100 PRINT: PRINT* INPUT WHOLE RECORDS. EDIT, UPDATE, DELETE, LIST LABELS OR SUIT" Program Listing 1 continue* 
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Program Listing 1 continued 

2120 PRINT-ENTER I. E. U. L. D OR Q" 

2140 G««" .+. ■ 

2160 INPUT Gt 

2180 IF G»«".+.* THEN 2100 

2200 IF Gt-'I" OR 6»="E* OR G«="U" OR G«="L" OR G«="D" THEN 22B0 

2220 IF G*0"<J* THEN 2100 

224© CLOSE 1.2 

2260 STOP 

2280 RETURN 

2300 REM«»»#»*»»*«»«#»»«*««*«*»«»«*»*«»»»*»»»»»«»«*««»«»*»***»«**». •••••*••••• 

2320 REN - INPUT AND UPDATE AN ITEM 

2340 D**A1«IES=A2* 

2360 T*0 

2380 IF I»l THEN 2460 

2400 FOR J-l TO 1-1 

2420 T=T+LKJ) 

2440 NEXT J 

2460 GOSUB 2840 

2480 PRINT TAB(L1< I >-M0> : "CURRENT ENTRY: "» 

2300 IF 1-42 THEN 2380 

2520 H*=MID*(D».T*1.L1 (I ) > 

2340 PRINT H* 

2360 GOTO 2620 

2380 H«»MID*<E«.T+1-234.L1( I > > 

2600 PRINT H» 

2620 GOSUB 3040 

2640 IF I>42 THEN 2700 

2660 MID»<D«iT+l.Ll(I) )=C* 

2680 60T0 2720 

2700 MID»(E».T-M-254.L1 ( I) >=C* 

2720 LSET A1*=D» 

2740 LSET A2«-E* 

2760 PUT l.S 

2780 PUT 2iS 

2800 RETURN 

2820 REM« «»****«»•«*»#*•»«*»»#»*«»«»»***##»» ■•**•••••****••**•*••**••••« ««••«« 

2840 REM - PRINT OUT LABEL 

2860 PRINT i PRINT CHR«(26) ! 

2880 PRINT L*(I) 

2900 PRINT" 

2920 FOR 12-1 TO L 1(1) 

2940 PRINT"*" ! 

2960 NEXT 12 

2980 PRINT CHR»(25); 

3000 RETURN 

3020 REM»»#«»*»»*»»*#»«»««*««««#**»«#««##-*«**«**»»#**«« •**•••***•*•»*••« »••«*• 

3040 REM - FILL IN C« WITH BLANKS 

3060 C«=". ->. " 

3080 INPUT C» 

3100 IF C*<>".-." THEN 3140 

3120 C*=H* 

3140 Z=LEN(C«> 

3160 IF Z<-L1(I) THEN 3220 

3180 C«=LEFT»(C»iLl (I) ) 

3200 GOTO 3260 

3220 IF Z-LKI) THEN 3260 

3240 C*=C«*SPACE«CL1( I)-Z> 

3260 RETURN 

3280 REM»»*«»««#*»»«.»*«*****.*«*«.«*. »«««#««..»«»*».«»*.«#*«««. ..,.«#»#,#»»♦« 

3300 REM - PRINT TRANSMITTAL FORM ON VIDEO SCREEN 

3320 PRINT:PRINT 

3340 T«l 

3360 FOR J=l TO 42 

3380 F«< J)»MID*(A1«, T.LI ( J) > 

3400 T=T+L1 (J) 

3420 NEXT J 

3440 T=l 

3460 FOR J =43 TO NUM 

3480 F»<J)«MID«(A2»iT.LKJ) ) 

3300 T-T+LHJ) 

3320 NEXT J 

3540 PRINT" 61010 " iF»< 1 ) ?SPACE»(9) ;F«( 2) 5F«<3> t " *;F*(4)f '|F*<3>1 " ";F«<6) 

3560 PRINTCHR»<26) :"DIST EMP » POSITION TITLE CL BG DP NAME "SCHR«(23> 

3580 PRINT FS(7);F$(B>:- ";F«<9);" ";F«(10)«" "iFtxli) 

3600 PRINTCHR»(26) J "SOCIAL S. « ADDRESS CITY-STATE ZIP PHONE- "JCHR»<23) 

3620 PRINT F«< 12);" ";F»<13);" ":F«<14>:" "iF«(15>»- ■lF»<16>l' ■lF»C17>t a ":F»<iB)i" "jF*<19)i" "iF«(20)<* 

" «F»(21 ) ; " " ;Ft>(2 
2) 

3640 PRINTCHR«(26) ? "EMP. DATE TER.DA1F RE RE. DATE BIR.DATE YR.S CZ ET MS SX BANK ACC.# ";CHR*<23> 
3660 PRINT FS< 23) J" "1F«<24)!" ";F*i25>!" ";F*(26)i" ";F*(27M" ";F«(28)?" ";F«<29>»* "lF*(30)l* 

lF»<31);" "IF* (32)1" 

"«F«(33)I" "tF*<34>;" ";F*(35)!" ":l : *<36' 
3680 PRINTCHR*(26) ;"EXPER. CERTIFICATES DG HR IN MJ MJ MN MN MN ASMT L":CHR*<25) 

3700 PRINT F»(37) ;" "5F»(38M" ":F«<39>;- ";F«(40>;" ":F«(41>!" "!F»(42>;" "!F»(43);" ";F*(44)S" 'IF*<45) 
3728 PR1NTCHR*(26) ;"PROB.EX. TB TEST LAST IN. NEXT IN. DAYS H/DY TY EX. DATE TOTAL "?CHR»(25) 
3740 PRINT F«<46) ?SPACE«( 15) SFS(47) !" "!FS(48)t" ";F*(49):" ":F*(50);" '1F»(S1)I' "SF«(52)J" ■|F«<33)«" 

•!F«(34) 
3760 PRINTCHR»(26);"PAYS FED.EXM. ST. EXM. LOC.EXM. R. ID# FICA AP STMT IN. SUB. " ? CHR»<23 ) 

3780 PRINT F*<55):" ";F«(56)J" "?F«(57)l" "»F«(3B)J" "lF*(59)(" ";F*(77)i" "JF«<75) 
3800 PR1NTCHR*(26) I "S/L CODE RATE CONTRACT ACCOUNT " ! CHRS ( 25 ) I " " ? CHR«( 26) I "LIFE RES. 

•lCHR«<23> 
3820 PRINT F«<60>:" ";F«(61)!" ";F«(62>;" "!F»<63>I' ":F«<64):" ;F»(78)i" "SF*(76) 
3840 PRINTCHR*(26) i"S/L CODE RATE CONTRACT ACCOUNT " : CHRS( 25 1 : " " 5 CHR«< 26) ? "DENTAL CO-CUR 
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SOFTWARE CONCEPTS 

Dallas, Texas 
NOW - MORE THAN SPECIAL DELIVERY 



SOFTWARE CONCEPTS 



OTHER FINE SOFTWARE 



Who is Software Concepts? We are the originators 
of Special Delivery wordprocessing software for the 
TRS-80. We are now expanding our product line to 
include items used in our daily business operations. 
We consider these to be better than any other 
product we have tried for its price/performance 
ratio. If we sell it - we use it! 



SPECIAL DELIVERY 



"...If you're presently looking for a mailing list 

processor, this represents the current state of the 

art." 

80 MICROCOMPUTING -• 80 REVIEWS - JULY 1980 

SPECIAL DELIVERY is the best mail list processor 
available for the TRS-80, just ask our customers! 
Use Special Delivery to maintain your mailing list 
with fill-in-the-form ease. You create, edit, sort, 
extract, and otherwise manipulate your mailing list 
with the speed and ease of use possible only in 
100% machine language software. Special Delivery 
will merge data from the mail list into a letter 
created by your own text editor (Scripsit, Electric 
Pencil, etc.) to generate a "personalized form 
letter" to any or all names in the list. Print free 
form mailing labels, envelopes, even legal docu- 
ments! Print any character (including escape 
codes) your printer is capable of printing! Boldface 
and underscore is supported for most printers, now 
including the Daisy Wheel II! 

SPECIAL DELIVERY includes: 

MAILFORM: data entry at its best, just fill in the 

form! Sort, extract, page forward and back, insert/ 

delete, more! 

MAIL RITE: print letters, etc. created with your 

editor while inserting text from your MAILFORM list. 

SEVERAL printer drivers (EDAS source code as well 

as /cmd files), and letter and list samples to get 

you started. 

XTRA! SPECIAL DELIVERY includes: 
EVERYTHING in regular SPECIAL DELIVERY. 
Enhanced MAILRITE: with the ability to print varia- 
ble text from a "KEY" file (greatly expanding the 
capacity of each record in your list) . 
MAILABEL: 1, 2, 3, or 4 across label printer. 
MAILSORT: will sort by any field, a full 40 track 
double density data diskette (over 1500 names) in 
only 48K! 

ZIPSORT: sorts on zip only, but will handle over 
4500 names! 

NOTE TO 
REGISTERED OWNERS 

Registered SPECIAL DELIVERY owners can upgrade 
to XTRA! by returning their ORIGINAL disk with 
$74.00 + S2.00 shipping and handling. 

FOR YOUR MODEL I OR III: 

(requires minimum of 32K, single drive) 

SPECIAL DELIVERY $125 

XTRA SPECIAL DELIVERY $199 

FOR YOUR MODEL II: 

(requires TRSDOS version 2.0 & does NOT work 

with Scripsit) 

SPECIAL DELIVERY $199 



ALL NEW ELECTRIC PENCIL!!! 

NOW AVAILABLE FOR THE MOD III! While the original 
PENCIL set a standard that other editors have yet 
to achieve, the NEW ELECTRIC PENCIL reaches even 
greater heights with many exciting new features 
that make it the easiest-to-use text editor available 
for the TRS-80 Mod I or III!! 
Electric Pencil version 2 $84.95 

EDAS 

This is the assembler from Misosys which is used 
for all assemblies of Special Delivery. We had real 
headaches until this came along. A must for any 
assy, language programmer. 
EDAS MOD l/MOD III $75.00 

THE DISASSEMBLER 

This is simply the most advanced disassembler we 
have ever seen. Creates EDAS source code, inserts 
predefined labels, disassemble disk or memory, 
generates ORGS & EQUates. By Ed Stitt. 
THE Disassembler $89.00 



LDOS 

Features previously available only on a 
mainframe. Real powerhouse DOS. Good 
support. 

NEWDOSS0V2.0 

See above. Fantastic BASIC enhancements. 
The well equipped software developer will 
own both LDOS & NEWDOS but one or the 
other is a must. 

LDOS $159.00 

NEWDOS V2.0 $145.00 



HARDWARE 

DATA SEPARATOR 

The PERCOM lifesaver. If you have a MOD I with disk 
drives and no data separator you have problems. 
Order from us or PERCOM but get a data separator. 
Data Separator $27.95 

DOUBLER 

Another PERCOM breakthrough. Add double density 
to your MOD I. Includes built in data separator. 
DouWer $165.95 

DISKETTES 

20 Name Brand diskettes packaged in bulk. Re- 
inforced hub, double density, double sided. 
Pkgof 20 $55.00 

GREEN SCREENS 

Not much difference between green screens but 
everybody should have one. If you don't buy ours, 
buy theirs. 

MOD l/MOD III $17.95 

MOD ll/LEEDEX 100 $22.95 

MODEL II INDEX 

Now find everything you need in your Mod II manual 

with this super index and cross reference. 

Index $17.95 



NEC 8000 Computer 

Z80a compatible, 4MHZ, 64K ram, color supported, 
RS-232, 163.8K per disk, parallel interface, 5 
function keys, numeric keypad 

NEC 8000 keyboard unit $1200.00 

Green phosphor screen $250.00 

Expansion Interface $800.00 

Disk Drives (2) $1200.00 

Parallel Printer Cable $44.00 

EPSON PRINTERS 

Epson has become the standard by which other low- 
cost printers are measured. Highly recommended! 

MX80 $500.00 

MX80 F/T $650.00 

MX70 $419.00 

MX100 $785.00 

Printer Cable $35.00 

TRS80 Bus Board/Cable $100.00 

GRAPHTRAX80 $80.00 

Ribbons $14.00 

Print Heads $28.00 

Apple Board/Cable $110.00 

DRIVE TABS 

Dress up your system with professionally engraved 

drive number tabs. Numbers thru 3. Avoid 

confusion. 

Setof4 $3.50 

PRODUCTS WANTED 

If you have a machine language program that is the 
best there is, contact Software Concepts. We are 
interested in publishing all first rate software. 

DISCOUNTS 

Users groups and computer clubs, write for group 
discount information. 

Al products are warranted as specified by the 
manufacturer. Liability of Software Concepts is 
imrted to the deivery of undamaged merchandise. 

OTHER SOFTWARE AVAILABLE. 
Cal if you don't see what you need. 

Add 3% Shipping & Handling 
Texas Residents add 5% Sales Tax on 

all hardware items. 

Specify whether MOD I, II, or III when 

ordering. 

• CALL COLLECT * 

(214) 247-8731 

MasterCard & Visa charge customers 

may leave order on 

Micronet 70130,232 

SOFTWARE CONCEPTS 

13534 Preston Rd. Suite 142 

Dallas, Texas 75240 ^299 

Dealer enquiries invited. 

TRS-80 & Scripsit are Reg. Trademarks of Tandy Corp. 



Program Listing 1 continued 

• I CHR« < 25 ) 
3B60 PRINT F«<65)J" ",F*C66)»" 
3880 PRINTCHR»<26) 1"S/L CODE RATE 



".F*<67>1- "«F»<68)5" ",F*<69H I 
CONTRACT ACCOUNT 



iF$<79);" , iF»<81) 

•»CHR*(25)J" ";CHR«(26>;"VISI0N LONGEV 



TY "»CHR»C25> 

3900 PRINT F»(70)i" ";F$<71)5" "1F*<72)»" "SF»(73)J" " JF»(7A) J ' 

3920 PRINTCHR«(26>;'S/L CODE RATE CONTRACT ACCOUNT 



lF«<80) 

• JCHR*(25> i 1 



JCHR»(26) ("HEALTH 



• I 

3940 
3960 
39B0 
4000 
4020 
4040 
4060 
4080 
4100 
4120 
4140 
4160 
4180 
4200 
4220 
4240 
4260 
4280 
4300 
4320 
4340 
4360 
4380 
4400 
4420 
4440 
4460 
4480 
4500 
4520 
4540 
4560 
4580 
4600 
4620 
4640 
4660 
4680 
4700 
4720 
4740 
4760 
4780 
4800 
4820 
4840 
4B60 



CHR* ( 25 ) 
RETURN 



REM* 



REM - LIST OUT THE LABELS ON THE SCREEN 

J*l 

FOR 1-1 TO NUM 

PRINT TAB(J) ;I ;L«<I>;- - 'ILKDI' SPACES - 1 

J«J+40 

IF J<50 THEN 4140 

PRINT 

J-l 

NEXT I 

PRINT 

GOTO 700 



REr 



REM - DELETE A RECORD 

R-- 1 

PRINT-ENTER THE NUMBER OF THE EMPLOYEE THAT YOU WISH TO DELETE" 

INPUT-ENTER A (ZERO) TO QUIT" JR 

IF R=0 THEN 700 

IF R>0 AND R<-L0F<1) THEN 4380 

PRINT'BAD EMPLOYEE NUMBER - TRY A6AIN" 

GOTO 4240 

D*-"" :E»-"" :H»="-- iT=0 

GET l.RtGET 2.R 

FOR 1=1 TO NUM 

IF 1=1 THEN 4480 

T-T+LK 1-1) 

GOSUB 3120 

IF 1 = 1 OR 1=2 OR 1=13 OR 1=14 THEN GOSUB 4780 

IF I>5 AND K12 THEN GOSUB 4780 

IF 1=75 THEN GOSUB 4820 

IF I>42 THEN 4620 

D*=D«*C« 

GOTO 4640 

E*-E**C« 

NEXT I 

LSET A1*=D« 

LSET A2*=E» 

PUT l.RiPUT 2.R 

GOSUB 3320 

PRINT 

GOTO 4240 

C»-MID»<A1«.T+1.L1 (I ) ) 

RETURN 

C»=MID*<A2».T+ 1-254. LI (I) ) 

RETURN 

REM«##*«*««»*END OF PROGRAM«»»«**»»»» 



100 
120 
140 
160 
180 
200 
220 
240 
260 
280 
300 
320 
340 
360 
380 
400 
420 
440 
460 
480 
300 
520 
340 
360 
380 
600 
620 
640 
660 
680 
700 
720 
740 
760 



Program Listing 2 

REM - PRINTER - This- program prints out the entire file as either a list 

REM with basic information or on the Employe* Transmittal 

REM Forms. Sin9le Transmittal Forms can also be produced. 

REM Written by Theron Wieren9a during March 1980. 

CLEAR 2000 

DIM L1<90).F»<90> 

OPEN -D-.li'Pl"i234 

FIELD If 254 AS Alt) 

OPEN -D-.2i "P2"i253 

FIELD 2.233 AS A2« 



REM« 



REM - READ IN DATA 

NUM-81 

FOR 1-1 TO NUM 

READ LI (I) 

DATA3.20.2.2.2.25. 12. 20. 15. 3. 9. 8. 8. 1 .8.8.3. 1 . 1 . 1 . 1 . 10. 5. 6. 6. 6. 1 

DATA2. 4. 1.8.8.8.8.4.3. 1.8.9.2.7.7.7.3.1.1.1.7.3.1.8.9.24.3.1.8. 

DATA24.3. 1.8.9.24.1.5.1.1.1.4.4 

NEXT I 

INPUT-SHOULD FORMER EMPLOYEE'S RECORDS BE PRINTED <Y OR N)";G« 

IF G»=-Y- OR G«-*N' THEN 540 

GOTO 480 

PRINT-WHAT TYPE OF PRINTOUT IS DESIRED ?" 



(3.2, 

9.24i 



2,2.2.2 
3. 1.8.9 



PRINT- 
PRINT" 
PRINT- 
INPUT Z* 
IF Z*-'l" 



1. Complete set of records on the Employee Transmittal Forms." 

2. List of employees with basic information." 

3. A sinsle Employee Transmittal Form at a time." 

THEN 1340 



IF Zt>-"2" THEN 1080 
IF Z.»"3" THEN 760 
GOTO 540 
REM«*«a**e***«**»««*««*«»*«**«««»*««*««««»««»««««« #<# « <>> «««« # 4 

REM - PRINT SINGLE TRANSMITTAL FORM 

PRINT'Be sure that Transmittal Forms are aliened in the printer 
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the HOW-TO, SHOW&TELL, 

STEPbySTEP book of creating 

DOS RANDOM ACCESS 
PROGRAMS. 



NEW! 



DOS RANDOv' 
& BASC Rf HAM,t 



Written for TRS-80 and all computers using 

Microsoft basic. The breakthrough book for 

non-programmers . . . businessmen and 

professionals who wanl to solve in ho^sc 

problems by writing your own customized 

program . . . and the hobbyist with the 

desire to get beyond the cassette and into 

disk data storage and file manipulation 

"DOS Random Access ft File Handling' la 

the plain speaking, easy to r ea-j 150 page 

booh for learnng HOW TO WRITE 



•nailing lists, work schedules, recorfl 

Keeping and more, Your acquaintance with 

Level l and Level II basic and this sen 

instruction tutorial will assure quick 

progress 



a. 



?flni^a 



2 Dogwood Dr 
PO Box 769 
Danbi.r,. CT 06810 



lYes. I want to expand rry programming 

knowledge 
I Please send me a copy ot "008 Random 

Access ft FMt HandNrtg tor 24.50 • 1 SO 

shipping a 

Also send me the compatible program disk 

for 28 50 ♦ 1.50 shipping. D 

Overseas add 8.00 par book and disk 

airmail. 

iName 

[Address 

[City 

State 



Z'P 



Master Charge □ 
Expiration Date . 
Card * 



VISA D 



Check D Money Order O 
COD (2 00 extra) O 
Signature 



Phone Orders (203) 74B-3231 
|CT. orders add 7 b% sales tax 



^Smw i %l <* Anfinm-k W upa Mil 
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Program Listing 2 continued 

780 PRINT 

800 INPUT"Enter Employee Number or (Zero) to wit. "If) 

820 IF R-0 THEN 1820 

840 IF R>0 AND R<-L0F(1) THEN 900 

860 PRINT "BAD EMPLOYEE NUMBER - TRY AGAIN" 

B80 GOTO 800 

900 GET l.R 

920 GET 2.R 

940 GOSUB 1960 

960 IF G*«"Y" THEN 1020 

980 IF F*(14)<>'-" THEN PRINT-FORMER EMPLOYEE" 

1000 IF F*(14)<>"-" THEN 800 

1020 GOSUB 2240 

1040 GOTO 800 

1060 REM**«****«**»* ***«**********♦♦. ****** »****•**»****.******** **#***♦****•**»* 

1080 REM - PRINT OUT LIST WITH BASIC INFORMATION 

1100 PRINT" ■ 

1120 PRINT" •** WIDTH MUST BE SET TO 100 CHARACTERS MINIMUM ON THE PRINTER *** " 

1140 PRINT" - 

1160 PRINT :PRINT"ALI6N PAPER TO TOP OF PAGE THEN" 

1180 PRINT" INPUT THE FIRST AND LAST EMPLOYEE NUMBER DESIRED" 

1200 PRINT "EXAMPLES: 1.999 OR 256,512" 

1220 INPUT F1.F2 

1240 LPRINT CHR*(31 ) 5 DATE*! " " 5T1ME* ! CHR* ( 30) : LPRINT 

1260 REM - HEADING HERE 

1280 FOR R-Fl TO F2 

1300 GET l.R 

1320 GET 2.R 

1340 GOSUB 1960 

1360 IF G*«"Y" THEN 1400 

1380 IF F*(14)<>"-" THEN 1480 

1400 LPRINT F«(l) ;" "iF*(2)i" ";F*<3)5" *;F*<4);" ":F*<6);" ";f*(45)i" ";F*<56>;" ";F*<59> 

1420 LPRINT TAB(69> iF«(63) i" ";F*<64) 

1440 LPRINT TAB (69) SF*(68) I" ";F*(69> 

1460 LPRINT TAB (69) IF* (73) !" "IF* (74) 

1480 NEXT R 

1300 GOTO 1820 

1320 REM»«*».****«*«********».*******». .»»♦.»♦.♦....»»...♦........*... ........ 

1340 REM - PRINT SET OF EMPLOYEE TRANSMITTAL FORMS" 

1560 PRINT'ALIGN TRANSMITTAL FORMS IN THE PRINTER THEN" 

1580 PRINT" INPUT THE FIRST AND LAST EMPLOYEE NUMBER DESIRED" 

1600 PRINT "EXAMPLES: 1.999 OR 256.512" 

1620 INPUT F1.F2 

1640 FOR R=F1 TO F2 

1660 GET l.R 

1680 GET 2.R 

1700 GOSUB 1960 

1720 IF G*="Y" THEN 1760 

1740 IF F*<14><>"-" THEN 1780 

1760 GOSUB 2240 

1780 NEXT R 

1800 REM«»***********#*««******«************** ************************ •«•••*»* 

1820 REM - ADVANCE PAPER AND STOP 

1840 FOR 1-1 TO 20 

1860 LPRINT 

1880 NEXT 1 

1900 CLOSE 1.2 

1920 STOP 

1940 REM*************.********.*..*.. .***....♦***.. ......... «•••••••*«•••••«•• 

1960 REM - BREAK DOWN THE RECORD INTO ITS PARTS 

1980 T-l 

2000 FOR J-l TO 42 

2020 F*(J)«MID*<A1*.T,L1(J)> 

2040 T=»T+L1 (J) 

2060 NEXT J 

2080 T=l 

2100 FOR J=43 TO NUM 

2120 F*(J)-MID*(A2*.T.L1(J) ) 

2140 T-T+LKJ) 

2160 NEXT J 

2180 RETURN 

2200 REM*««***********«*.**.«************.****«#**#. ***•••«•*••***#*«•«**««««« 

2220 REM - PRINT ENTIRE RECORD ON FORMS 

2240 LPRINT"61010 " ! F*( 1 ) !SPACE*(9> IF* ( 2 ) S F*( 3) 5 " "IF*(4);" "F*(5)5" ":F*(6) 

2260 LPRINT «LPRINT 

2280 LPRINT F*(7) J" "IF*(8)! N "lF*(9)5" ■;F*(10)I" "5F*(11) 

2300 LPRINT iLPRINT 

2320 LPRINT F*(12) I" "IF*(13>!" ";F*(14)I" "!F*(15);" 'lP*<16)f "!F*<17);" ";F*(1B)?" ";F*(19);" "|F*(20 

;" " ;FS(21 ) ; " " ; 

F*(22) 

2340 LPRINT:LPRINT SPACE* ( 64 ) !LEFT*(F»(35 ) . 2) 

2360 LPRINT F*(23) I " "5F*(24)l" "•,F*(25);" " ; F* ( 26 ) I ■ ";F*(27)l" ";F*(28)l" "IF*(29)I" ■|F*<»)l a 

"lF*(31);" "IF*(32)5 

• "IF* (33) I" ";F*(34)»" " !RIGHT*<F*(35).2) I" " *F*(36> 

2380 LPRINTsLPRINT 

2400 LPRINT F*(37)i" "IF*<38);" "?F*(39);" ";F*(40)i" -;F*<41);" -|F*142);" "5F*(43U" •;F*(44M« ■tF*<43) 

2420 LPRINTiLPRINTiLPRINT 

2440 LPRINT F*(46)?SPACE*< 16) ?F*(47) l" "?F*(48>!" ";F*(49)l" "IF*(30)5" "SF*<31)s" ";F*(52)f ■JF»(33)I 

" IF«(54> 
2460 LPRINTiLPRINT 

2480 LPRINT SPACE«(40) i " RES: " I F*(75 ) ; " CO-CUR: " ;F* ( 76) I " LONG: " ;F*(B1 ): LPRINT 
2500 LPRINT F*(55)f 'iPttMH' "5F*(57)l" " $ F*(58) I " « 5F*(59) I " LIFE "(F*(77) Program Listing 2 continues 
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AT LAST! 

Mass production prices lor high quality software Buy direct and save 50° n Also 
available for CPM and HDOS 

DATA BASE MANAGER Mod I & III $69. £149 (48K) Mod II S199 

Maintain a data base and produce reports, all without user programming Define 
file parameters and report formats on-line. Key random access, fast multi-key 
sort, field arithmetics, audit log. label No time-consuming overlays 500 happy 
users in one year Mod-ll and 4SK versions have over 50 enhancements, including 
40 fields maximum. IOM-M2 is great! - 80-US 

A/H Mod-IS69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry. Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc. 

WORD PROCESSOR S49 

Centers, justifies, indents, and numbers pages. Modi version features 
upper/lower case without hardware modification! File merge option available 

MAILING LIST Mod I & III S59. S79 I48K). Mod-ll S99 

The best 1 Compare and be selective. Includes forms input. 5-digit selection code 
zip code extension, sort on any field, and multiple labels Who else offers a report 
writer and merges with word processor'' 

INVENTORY Mod I & III S89. S109 (48K) Mod-ll S149 

Fast key random access. Reports include order info, performance summary. F.0Q 
and user-specified reports Many people have converted to our system 1 Next to 
impossible to damage the file. ' 

GL. A/R. A/P. PAYROLL Mod-ll S129 each 

Integrated accounting package 100* page manual As opposed to Osborne s slow 
binary search and 64 column screen, we use fast ISAM and 80 columns Dual disk 
and TRSDOS required. 

L2I6 $59 

A cassette package of 10 business programs for Level I1 16 K systems. Includes 
word processor and data base manager. Poker game S19. 

Most programs are on-line, interactive, random-access, bug-free, documented, 
and delivered on disks. Mod-I programs require 32K TRSDOS We're #1 in business 
software— don t let our low price fool you 1 Ask for our free 20-page catalog il 
you're still not convinced Compiled versions are available 



^ 



MICRO ARCHITECT. INC. ^m 

96 Dothan St., Arlington. MA 02174 




DISK DRIVE WOES? 
PRINTER INTERACTION? 
MEMORY LOSS? 
ERRATIC OPERATION? 

Don't ™ — so, 
Blame The 
Software! 

Power Line Spikes, Surges 4 _ , ,. ~- ... iso-2 

Hash could be the culprit! Pat • 4 - 2SB - 705 

Floppies, printers, memory & processor often interact! Our 
patented ISOLATORS eliminate equipment interaction AND curb 
damaging Power Line Spikes, Surges and Hash. 

• ISOLATOR (ISO-1) 3 filter Isolated 3-prong sockets; integral 
Surge/Spike Suppression; 1875 W Maximum load, 1 KW load any 
socket $62.95 

• ISOLATOR (ISO-2) 2 filter Isolated 3-prong socket banks; (6 
sockets total); Integral Spike/Surge Suppression; 1875 W Max 
load, 1 KW either bank $62.95 

• SUPER ISOLATOR (ISO-3), similar to ISO-1 except double 
filtering A Suppression $94.95 

• ISOLATOR (ISO-4), similar to ISO-1 except unit has 6 
Individually filtered sockets $106.95 

• SUPER ISOLATOR (ISO-1 1) similar to ISO-2 except double 
filtering * Suppression $94.95 

• CIRCUIT BREAKER, any model (add CB) Add $ 8.00 

• CKT BRKR/SWiTCH/PILOT(CBS) Add $16.00 

aUPJUL MasterCard, Visa, American Express 

DEALERS Order Toll Free 1-800-225-4876 

(except AK, HI, PR 1 Canada) 




WHATS THE BEST WORD??? 

How many times have you racked your brain for just the right word 
when writing an important letter, report, or article? How many times have 
your ideas been misunderstood because the words you used didn't express 
your thoughts clearly and accurately? How many times have your turned in 
a report or mailed an important letter and then hours later kicked yourself 
lor not having thought of the best and most accurate words to use at the 
time you wrote it. 

Now. by using the remarkable new REFWARE THESAURUS programs, 
your computer can speedily find those words that are on the lip of your 
tongue but that you can't quite remember at the moment. And it tells you 
how to spell them! 

Just slip a REFWARE THESAURUS disk into your disk drive. Then type 
in your sentences or paragraphs. The computer will quickly offer a variety 
o> alternatives, retyping your sentences or paragraphs with substitute 
possibilities chosen from its multi-thousand word vocabulary. It displays 
the revised sentences on your monitor or types them on your printer as you 
choose, so that you can mull them over and choose the one that most ac- 
curately expresses what you REALLY mean to say. 

Having helped thousands ol writers learn to express themselves with 
clarity as editor of such publications as the World Book Encyclopedia, the 
Encyclopedia Americana, and the Reader's Digest Almanac and Yearbook, 
David C. Whitney has drawn on decades of editorial experience to prepare 
the revolutionary REFWARE THESAURUS programs, bringing the speed 
and power of the computer to the aid of anyone who wishes to improve his 
writing or speaking. 

In addition to the specific programs capable of substituting suggested 
alternate words for nouns and adjectives, REFWARE THESAURUS Builder 
enables engineers, physicians, lawyers, educators, business, physicists, 
chemists, and other professionals and specialists to develop their own in- 
dividually tailored computer vocabularies of hard-to-remember technical 
words. 

REFWARE THESAURUS Adjectives 1.0 Order No. 1001 RT $39.95 

Utilizes 6,200 adjectives to assist you in choosing the most accurate 
modifiers to describe nouns and pronouns in your letters, reports, and 
speeches. 

REFWARE THESAURUS Nouns 1.0 Order No. 2001 RT $39.95 

Draws on a vocabulary of 6,200 nouns to suggest alternates for the names 
of persons, places, things, and ideas that you use in your writing and 
speaking. 

REFWARE THESAURUS Builder 1.0 Order No 5001 RT $149.95 

Series of eight utility programs enables the user to develop specialized 
computer thesaurus disk programs of hard-to-remember technical words 
and their alternates for personal use. Functions independently of Adjec- 
tives and Nouns programs. 

R EFWARE T H ESAU R US User's M a nual Order No. 600 1 RT $9.95 

Complete description of use of each of the above programs. Included at no 
additional charge with each of program disks listed above. If ordered 
separately, price of documentation is refundable upon receipt of order and 
payment for program disk. 

MINIMUM System Required TRS 80' Mod I or Mod III 48K with two disk drives 
' A Trademark of Tandy Corporation 



REFWARE* Reference software division David C. Whitney Associates, Inc. 

P.O. Box 451, Chappaqua, N.Y. 10514 
'A trademark of Oavid C. Whitney Associates, Inc. 

Specify Mod I ( ) or Mod III ( ) 



Qty. 


Order No. 


Title 


Unit Price 


Total 
































Sales tax (N.Y. state residents only) 




Postage and handling 


$ 2.00 


Enclosed* ( )Check ( ) Money Order TOTAL 

Bill: ( )Visa ( ) MasterCharge 


$ 



Card # 

Exp. Date interbank # 

Signature 

Name Phone ( > 

Address 



City State Zip 

Mailed First Class, but allow 3 to 4 weeks for delivery . no COO. orders • 374 



.'See List ol Advertisers on page 402 
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2320 LPRINT 












2340 LPRINT F«<60>1* 


*1F*<61>»* "?F»<62>;" 


• ; F* < 63 ) 5 " 


* »F*<64)< " 


DENTAL 


"SF»<78> 


2360 LPRINT 












2SB0 LPRINT F»<63)1" 


"JF»<66)1" ";F»(67H* 


" ; F« < 68 ) ; " 


• tF$<69M* 


VISION 


*»F*<79) 


2600 LPRJNT 












2620 LPRINT F»<70)f 


•sF«<7l)5" "iF*<72)«" 


■SF«(73)5" 


" »F«(74> »• 


HEALTH 


■;F*<80) 


2640 LPRINT (LPRINT 












2660 RETURN 












2600 REM*a»#«**»»«END 


OF PROGRAM********** 











Program Listing 3 



100 REM - SORTER - This program i« 4 general pui-pom sort and print routine. 

120 REM Iti feature? arts An unlimited number of kevj » partial keys. 

140 REM AND/OR function for the sort, four types of printout) seven 

160 REM items can be summed and the printout can be ordered or 

100 REM alphabetized. 

200 REM Written bv Theror, Wi*ren9a d'jrir.9 March 1980. 

220 CLEAR 10000 

240 DIM L»<90).L1<90).F»(90),Y( 100) .El ( IBB) , E2( 100) , K* ! 100>,W1 < 1000) , W2*( 1000) 

260 DIM P4<B0) 

200 REM******************************************** *********** **************** 

300 REM - READ IN DATA 

320 NUM»81 

340 FOR 1-1 TO NUM 

360 READ LltDiLKI) 

300 DATA EMPLOYEE #,5. POSITION TITLE. 20, CLASS. 2. BUILDING. 2. DEPARTMENT, 2. NAME. 23. SOCIAL SECURITY *, 12, ADDRESS 

400 DATA 20. CITY-STATE. 15, ZIP. 5. PHONE. 9. EMPLOY DATE.8.TERM. DATE. 8. REASON. 1 , RE -EMPLOY DATE.8.BIRTH DATE, 8 

420 DATA YRS. SERVICE. 3. CITI ZEN. 1 , ETHNI C. 1 . MARITAL STATUS. 1 .SEX. 1 . BANK ACCOUNT «> 10, EXPERIENCE, 5 

440 DATA CERTIFICATE 1 ,6, CERTIFICATE 2,6, CERTIFICATE 3, 6, DEGREE, 1 .HOURS, 3, INSTITUTION, 2, MAJOR 1,2, MAJOR 2.2 

460 DATA MINOR 1.2. MINOR 2. 2. MINOR 3. 2, ASSIGNMENT, 4, LEVEL, 1 , PROB. EXPR. DATE. 8, LAST TB TEST, 8 

480 DATA LAST INCREASE ,8, NEXT INCREASE, 8, DAYS, 4, HRS. /DAY, 3, TYPE, 1 , EXPR. DATE, 8 

300 DATA TOTAL, 9. PAYS, 2. FED. EXEMP. , 7. STATE EXEMP. . 7, LOCAL EXEMP. , 7, RET. ID #,5,FICA EX., 1, AUTO PAY, 1 

320 DATA STMT, 1, INS. SUBSIDY, 7, STEP/LEVEL, 3. CODE. 1. RATE. 8. CONTRACT, 9, ACCOUNT. 24, STEP/LEVEL, 3, CODE, 1 

540 DATA RATE, 8, CONTRACT, 9, ACCOUNT, 24, STEP/LEVEL, 3. CODE, 1 , RATE, 8, CONTRACT, 9, ACCOUNT. 24. STEP/LEVEL. 3. CODE, 1 

360 DATA RATE, 8, CONTRACT, 9, ACCOUNT, 24, RESIDENCY, l.CO-CURR. Xi 5, LIFE I NS ., 1 , DENTAL INS. , 1 , VISION INS. . 1 

380 DATA HEALTH INS. , 4, LONGEVITY, 4 

600 NEXT I 

620 FOR 1-1 TO 7 

640 READ S2(I) 

660 DATA 45,39,64,69,74,76,81 

680 NEXT I 

700 FOR 1-0 TO 9 

720 READ S3*(I) 

740 DAT A0, 1,2,3,4,5,6,7,8,9 

760 NEXT I 

780 OPEN *D", 1,*P1*,254 

800 FIELD 1,234 AS Al* 

820 OPEN "D"»2,*P2",253 

840 FIELD 2,233 AS A2« 

860 REM*********************************************************************** 

880 REM - SET UP THE QUALIFIERS 

900 INPUT "HOU MANY KEYS' ; X 

920 IF X<1 OR X>100 THEN 900 

940 FOR 1-1 TO X 

960 PRINT'ENTER ITEM NUMBER FOR KEY #"Jl5 

980 INPUT Y(I> 

1000 IF Y(I)>0 AND YUK-NUM THEN 1060 

1020 PRINT* INVALID ITEM NUMBER - TRY AGAIN" 

1040 GOTO 960 

1060 INPUT'DO YOU WISH A PARTIAL KEY (Y OR N) " ;£* 

1080 IF E*-'Y* THEN 1140 

1100 IF E»="N" THEN 1300 

1120 GOTO 1060 

1140 PRINT" ENTER POSITION OF 1ST CHARACTER, NUMBER OF CHARACTERS" 

1160 PRINT" AND THE EXACT KEY FOR " !L»(Y< I) > I ■ . EXAMPLE! 4,2,AB WHICH MEANS START" 

1180 PRINT "LOOKING AT THE 4TH CHARACTER, THE KEY IS 2 CHARACTERS" 

1200 PRINT-LONG AND THE KEY IS AB." 

1220 K*<I>-».-»." 

1240 INPUT E1(I),E2<I),K«(I) 

1260 IF K»(I>-".-*." THEN 1140 

1280 GOTO 1500 » 

1300 PRINT'ENTER EXACT KEY FOR "!L*(V(I))» 

1320 K*< I > = ".-». " 

1340 INPUT K«<I) 

1360 IF K*< I )-*.+." THEN 1300 

1380 Z=LEN<KSU ) > 

1400 IF Z<=LHY<I>) THEN 1460 

1*20 PRINT "THE KEY" IS TOO LONG" 

1440 GOTO 1300 

1460 IF Z-L1(Y(I>> THEN 1500 

1480 K*< I)=K*< I)+SPACEt<LKY(I) )-Z) 

1300 NEXT I 

1320 REM************************************** ft******************************* 

1340 REM - IS AN AN AND/OR SORT 

1360 INPUT" IS THIS AN 'AND' OR 'OR' SORT"5G2« 

1380 IF G2*='AND" THEN 1640 

1600 IF 62«-"0R" THEN 1680 

1620 GOTO 1360 

1640 P3-1 

1660 GOTO 1740 

1680 P3-2 

1700 rem********************************************************************** Program Listing 3 continues 
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Pntgnm Listing 3 contlnumd 

1728 REM - DETERMINE THE TYPE OF PRINTOUT 

1740 PRINT'WHAT TYPE OF PRINTOUT DO YOU DESIRE ?" 

1760 PRINT* 1. HiniiMl printout for each match." 

1780 PRINT' 2. Entire record for each match." 

18M PRINT' 3. A Mi1in9 label for each natch.' 

1828 PRINT' 4. Print onW specific itam* ratuas-ted. " 

1848 INPUT PI 

1868 IF Pl-1 OR PI -2 OR PI -3 THEN 2068 

1888 IF Pl<>4 THEN 1748 

1988 INPUT'HOW MANY ITEMS DO YOU WANT PRINTED FOR EACH MATCH* IP2 

1928 FOR !a| TO P2 

1948 PRINT'ENTER ITEM flll'TO BE PRINTED* » 

1968 INPUT P4(I) 

1988 IF P4(I)<1 OR P4<1)>NUM THEN 1940 

2888 NEXT I 

2020 REn««««««««a«««»««»»*«*«*«»*-»*»*»»»***«**««**»»««««»««*. «»♦»•»»»»• «.♦»♦♦ 

2040 REM - ARE ANY ITEMS SUMMED "> 

2868 INPUT'DO YOU WISH TO HAVE ANY ITEMS SUMMED (Y OR N)*:G» 

2080 IF G»-*Y* THEN 2140 

2108 IF G»-*N* THEN 2488 

2128 GOTO 2868 

2148 INPUT'HOW MANY ITEMS" «N 

2168 IF N>8 AND N<-7 THEN 2220 

2188 PRINT-ONLY SEVEN ITEMS CAN BE SUMMED - ENTER AGAIN" 

2288 GOTO 2140 

2220 FOR 1-1 TO N 

2240 INPUT-ENTER THE ITEM NUMBER* ;S< I > 

2268 FOR J-l TO 7 

2288 IF S2(J)-S(I) THEN 2360 

2300 NEXT J 

2320 PRINT' INVALID ITEM NUMBER FOR SUMMATION - ENTER AGAIN" 

2348 GOTO 2240 

2368 NEXT I 

2388 REMaaaaaaaaaaaaaa»aaaaaaaaa»«««a##a##a«»»»«*«*»«*«»»«»» #•*»*«*« *##•»«##*«• 

2488 REM - ALPHABETIZE OR ORDER THE PRINTOUT ? 

2428 INPUT'DO YOU WANT THE PRINTOUT TO BE ALPHABETIZED OR ORDERED <Y OR N)"!0« 

2448 IF 0*"'Y' THEN 2380 

2468 IF 09- *N* THEN 2628 

2488 GOTO 2428 

2388 INPUT'ENTER ITEM THAT THE PRINTOUT WILL BE ALPHABETIZED OR ORDERED BY" ;01 

2328 IF 01 >8 AND 01ONUM THEN 2620 

2348 PRINT* INVALID ITEM NUMBER - TRY AGAIN* 

2368 GOTO 2388 

2388 REMaaaaaaaaaa«aaaaaaaa«aaaaa»»««**»««»«#«»«««»«»««»#«#*»«#*«## # «#,«#«*#, 

2608 REM - START OF THE SEARCH LOOP 

2628 60SUB 3768 

2648 PRINT' ••••• WIDTH MUST BE SET TO 110 CHARCTERS ON THE PRINTER «••»«" 

2660 GOSUB 3760 

2688 INPUT'ALIGN PAPER TO THE TOP OF PAGE - THEN PRESS ENTER" -,F9« 

2788 REM - PRINT HEADING 

2728 LPRINT CHRtM 31 >» 'SORTER - " »DATE» 

2748 LPRINT" tM»tttMMMt*Mt#tttt«t»##tt»#**t*tttt»*#t»»**## » 

2768 LPRINT' FOR THE "162*!" SORT THE KEYS ARE*" 

2788 FOR 1-1 TO X 

2800 LPRINT L»<Y<I))l" « 'lK»«I) 

2B20 NEXT I 

2848 LPRINT CHR9 ( 30 ) I LPRINT 

2868 R-l 

2888 CLS 

2900 PRINT a<10il)."NOW READING RECORD NUMBER' 

2920 FOR 1-1 TO LOFU) 

2940 GET 1,1 

2960 GET 2 1 1 

2988 PRINT 3(10,27), I 

3800 GOSUB 4700 

3020 FOR J-l TO X 

3040 IF El(J>-0 THEN 3160* IF NOT PARTIAL SKIP OVER 

3060 IF P3-1 THEN 3128 'AND SORT ? 

30B0 IF MID9(F9(Y(J))iEKJ).E2(J) )»K»(J) THEN 3280'DOES PARTIAL KEY MATCH ? 

3100 GOTO 3240 

3120 IF HID9<F»<Y<J))iEl<J)iE2(J> ><>K«(J> THEN 3440' PART I AL KEY NOT MATCH ? 

3148 GOTO 3248 

3168 IF P3-1 THEN 3228 

3180 IF F«(Y(J))-K»(J) THEN 3288' DOES KEY MATCH ? 

3288 GOTO 3248 

3228 IF F»<Y<J))OK»<J) THEN 3440'DOES KEY NOT MATCH ? 

3240 NEXT J 

3268 IF P3-2 THEN 3448 'OR SORT ? 

3280 IF 69-"N' THEN 3320 'CAN SUMMING BE SKIPPED 7 

3300 GOSUB 4140 'DO THE SUMMING 

3320 IF 09-'N" THEN 3420 'CAN ALPHABETIZING BE SKIPPED ? 

3340 W1(R)«I 

3368 W29(R)-F»(01) 'SAVE DATA 

3388 R=R+1 

3488 GOTO 3448 

3428 ON PI GOSUB 3880,4940,6020,6120 

3440 NEXT I 

3460 IF 0»«'Y* THEN 3388 MS LIST ORDERED ? 

3488 IF G9-*N* THEN 3348 'CAN SUMMING BE SKIPPED ? 

3300 GOSUB 4348 

3328 CLOSE 1,2 

3340 STOP 

3368 REM««#»*»aa»a»«a«»»«««»e»e»»«ee»e««««»#e«»««eee. .».».«*. ♦»♦♦•••»••»♦..,», 

3388 REM - ORDER THE LIST FOUND 

3600 PRINT 8(101 D.'NOW ORDERING THE LIST OF RECORDS FOUND" 

3628 N2-R-1 

3648 D- INT ( N2/2 ) Program Listing 3 continues 
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3660 
3680 
3700 
3720 
3740 
3760 
3780 
3800 
3820 
3840 
3860 
38B0 
3900 
3920 
3940 
3960 
3980 
4000 
4020 
4040 
4060 
4080 
4100 
4120 
4140 
4160 
4180 
4200 
4220 
4240 
4260 
4280 
4300 
4320 
4340 
4360 
4380 
4400 
4420 
4440 
4460 
4480 
4300 
4520 
4240 
4260 
4580 
4600 
4620 
4640 
4660 
4680 
4700 
4720 
4740 
4760 
4780 
4800 
4820 
4840 
4860 
4880 
4900 
4920 
4940 
4960 
4980 
2000 
5020 
5040 
5060 
5080 



IF D >0 THEN 3920 

L2-N2-D 

FOR J*l TO L2 

FOR I -J TO 1 STEP -D 

IF W2»< I+D)->W2»(I > THEN 3820 

SWAP W2«< I+D)iW2»<I) 

SWAP WKI+D)»W1 < I > 

NEXT I 

NEXT J 

D*INT<D/2) 

GOTO 3660 



REM* 



REM - PRINT OUT THE ORDERED RECORDS 

FOR 1-1 TO N2 

GET ltUKI) 

6ET 2* Ml ( I) 

GOSUB 4680 

ON PI 60SUB 5B80i 4940.6020*61 20 

NEXT I 

IF G*=-N" THEN 4100 

GOSUB 4540 

CLOSE 1 i 2 

STOP 

REM**. **»♦»«♦#».»♦♦♦»♦... ».,.,,».,. . 



REM - SUM FOP TOTALS 

FOR J 2-1 TO N 

T7*)=0:NN»=.01# 

N3=9 

IF S(J2)=76 THEN N3=5 

IF S(J2)«B1 THEN N3=4 

IF S<J2>=»81 THEN NN#=1# 

FOR J3=l TO N3 

T1*=MID«<F*(S<J2) ).N3+1-J3i 1 ) 

FOR J4-0 TO 9 

IF S3«(J4)=T1« THEN 4400 

NEXT J4 

GOTO 4440 

T7#=T7»*NN*t*J4 

NN#=NN»»10 

NEXT J3 

T8» ( J2 ) =T8# ( J2 ) +T7# 

NEXT J2 

RETURN 

REM**»»****««««****«#***<**********«**«*«:*««**»*-******«**«****««*«#«*#**«« 

REM - PRINT OUT THE TOTALS 

LPRINTsLPRINT 

FOR 1-1 TO N 

LPRINT:LPRINT-SUM FOR •;L»<S<I>>;- = "?T8#(U 

NEXT I 

RETURN 

REM»«»»«»*****««««**»*«««**««**»«**»****-*##»»*it •*•••*•••••**«**••••****•• 

REM - BREAK DOWN RECORD INTO ITS PARTS 

T=l 

FOR J-l TO 42 

F*( J>-MID*<AH>iTtLl (J)) 

T=T+L1(J) 

NEXT J 

T-l 

FOR J=43 TO NUM 

F*< J)«MID*<A2».T.LMJ) ) 

T-T+LKJ) 

NEXT J 

RETURN 

REM*»»***»«*»«*«*#»***«*«»«»«»**«««»»»#««»*»»»»»»«*»»*«#«#««*» *•**•****•• 

REM - PRINT ENTIRE TRANSMITTAL FORM 

LPRINT"61010 "!F*<l)iSPACE«<9)lF«(2><F*<3>;» MF»<4)?- "1F«<3);" " JF*(6) 

GOSUB 5660 

LPRINT'DIST EMP » POSITION TITLE CL BG DP NAME" 

LPRINTiLPRINT F*<7);" "tF*<8){* ■;F»(9);' "JF»<10)J - "iF«(ll> 

GOSUB 5660 

L PR I NT "SOCIAL S. * ADDRESS CITY-STATE ZIP PHONE' 

LPRINTsLPRINT F»( 12) 5" *tFt<13>l" *IF*<14>»" ";F$<13)J" , iF*(16)l" "JF«<17> 



*<20)(" ";F»<21);- 

"?F«(22) 
5100 GOSUB 5660 

5120 LPRINT*EMP.DATE TER. DATE RE RE. DATE BIR.DATE YR. S CZ £T MS SX BANK ACC.#" 
5140 LPRINT:LPRINT F«(23) I" "1F«<24)»' ";F*<25)i" •»F*(26)I" "»F*<27)S 

(30>i' ";F«(31>;- ■; 

F«<32);" *tFtC33>l* ■;F«<34)s- ";F*(35);" MF«(36> 

5160 GOSUB 5660 

5180 LPRINT'EXPER. CERTIFICATES DG HR IN MJ MJ MN MN MN ASMT L" 

5200 LPRINTiLPRINT F*<37)5" -JF*(38)? - "5F«(39)J' -;F«<40);- '|P*(41)|* a tF«(42)f ' 



" !F»< 18) 



•|F»<28)5" "•F«<29)|- 'IF 



?F*<43)I* •1F»<44)»" "|F«< 



5) 

5220 60SUB 5660 

5240 LPRINT'PROB.EX. TB TEST LAST IN. NEXT IN. DAYS H/DY TY EX. DATE TOTAL" 

5260 LPRINTILPRINT F*(46) ;SPACE»<15) lF0(47> |» ™;F»<48)5" "!F*(49);' ■lF»<50)« 1 

F»(53)!" "sF«<54) 

5280 GO SUB 5660 

5300 LPRINT-PAYS FED.EXM. ST. EXM. LOC.EXM. R. ID*) FICA AP STMT IN. SUB.' 

5320 LPRINT:LPRINT SPACE»(40) ?" RES: " ;F«< 75 ) ! " CO-CUR: ■ 5F»< 76) I " LONG: * ;F«<81 > 

5340 LPRINT:LPRINT F«(55)5" -!F«(56)»- -JF»<57);" "SF»(5BM" •&F*><59)J" 'IFtC??) 

5360 GOSUB 5660 

5380 LPRINT-S/L CODE RATE CONTRACT ACCOUNT LIFE" 

5400 LPRINTsLPRINT F»(60) !" "SFK61);" ■lF$<62>»" ";F»<63>»" "iF*(64)»* MF»<78) 



;F»(31) I' 



!F*(32) !' 
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DISPLAYED VIDEO IS DRIVING 
DOWN PRICES ON DISKS 

DISPLAYED VIDEO is now offering TRS-80* MODEL III with disk drives, one of the 
most reliable disk drive systems on the market, for incredibly low prices!! 

MODEL III with 48K ram. dual 80 track double-density disk drives, complete, 

PLUG IT IN AND GO $2,275 

MODEL III with 48K ram. dual 40 track double-density disk drives, complete, 

PLUG IT IN AND GO $1,875 

Disk Drives: Includes case and power supply 

40 track disk drive $289 

80 track disk drive $395 

80/80 track disk drive $520 

Disk Drives: Not including case and power supply 

40 track (bare) disk drive $250 

80 track (bare) disk drive $345 

•5 80/80 track (bare) disk drive $450 

Drive Cases and Power Supplies: 

5 l A inch single drive unit and power supply $ 80 

5V4 inch dual drive unit and power supply $110 

8 inch single drive unit and power supply $140 

16K RAM Memory Chip (200 NS) $1.95 each 

TRS-80* MODEL III 1 6K t , . •; $839 

MODEL III Internal Drive Kit: Includes controller board, dual drive mounting bracket, 
dual power supply, all hardware, cables and connectors $410 



INTRODUCING THE MEMORY BOX 
MEMORY THAT NEVER NEEDS PROTECTION 

Plugs directly into the CPU or expansion interface. 

Includes its own regulated power supply and ribbon cable. 

1024 bytes of ram in an unused area on the memory map 

(3000-33FF HEX). 

Solves memory allocation problems when using monitor 

programs and utility support routines. 

Programs stay In the memory box even when the CPU Is 

turned off. 

For Model I Level II and all DOS systems (4. 16. 32. 48K) 
Price $49.95 

Two utility software programs written for the Memory Box 
are: 

1. Micmon-A powerful machine language monitor (avail- 
able at a keystroke without disturbing main programs). 

Price $19.95 

2. U3000-A utility including cassette level meter program, 
adjustable keyboard debounce. screen print driver, page 
numbering, smart line termination, and more (all available 
at a keystroke). 

Price $12.95 

Special offer complete package $69.95 



<> 



< 




THE 2K HIDEAWAY EPROM BOARD 

Accepts 2716 compatible memory chips (not Included). 

Includes its own power supply and connector. 

Install a pre-programed eprom or use a ram chip in 

combination with the powerful monitor and utility programs 

sold above "Micmon or "U3000" (not included) 

2K Hideaway $49.95 



THE EPROM PROGRAMER 
Attaches to cassette interface on Model I or III. 
Programs 5 volt 1 K. 2K. and 4K eproms. 
Includes driver program. Instructions, cable, and power 
supply. 
Programmer $69.95 



Eprom Eraser Lamp $49.95 

Eprom Chip $ 8.95 



■0- 



u.v 

2716 

2K Ram Chip $29.95 




IMMEDIATE DELIVERY 

90 Days Parts and Labor Warranty 
Dealer inquiries invited 



Displayed Video 

7538 Jackson Road 

Ann Arbor, Michigan 48103 

(313)426-5086 



'OfO 




• 30 



To Order: Call (313) 426-5086 or (313) 482-4424 or write DISPLAYED VIDEO. 
7538 Jackson Road. Ann Arbor, Michigan 48103 

•TRS-80 is a trademark of the Tandy Corporation Prices subject to change without MM 



< 




"•r!)i: 



sx. 



DISPLAYED VIDEO'S CERTIFIED DATA CASSETTES 
Made of top grade tape formulated by Agfa-Gevaert of 
Germany. 

Cases are of superior grade five-screw construction. 
Guaranteed 100% error-free or your money back, 
l-ength C-10 C-20 

12 pack .68 .88 ea. 

24 pack .58 .78 ea 

Norelco style hard plastic cassette cases .21 ea. 
Special offer with every order of 24 cassettes: 
a Pilot Razor Point pen will be Included. 
DISKETTES (BOX OF 10) 
Verbatim certified diskettes 
Guaranteed 100% error-free or your money back. 
5V« inch MD525-01 
10 pack $26 90 
100 pack $25.90 
Add $1 .50 for shipping & handling. To Order: Send check 
ney order or call (313) 426-5086 or (313) 482-4424., 



■See Lis I ol Advertisers on page 4U2 
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Program Listing 3 continued 

5420 608UB 5660 

5440 LPRINT-S/L CODE RATE CONTRACT ACCOUNT DENTAL" 

5460 LPRINTsLPRINT F*<65) «" ":F*(66>!" -:F«<67);" *;F«(68)i - *!F*(69>f "tF*(79> 

5480 GOSUB 5660 

5300 LPRINT"S/L CODE RATE CONTRACT ACCOUNT VISION' 

3520 LPRINTiLPRINT F*(70) I" "lF*<7t)l" »*F*I72>*" ";F*(73)l" *!F*<74);* *;F*(80) 

3540 GOSUB 5660 

5360 LPRINT-S/L CODE RATE CONTRACT ACCOUNT HEALTH" 

3380 LPRINT:LPRINT:LPRINT 

3600 RETURN 

5620 REM************************* •••••••«•**•«•«•••*•••••••••*••••••«••••••«*« 

5640 REM - DRAW LINES OF STARS AND DASHES 

5660 FOR D7«l TO 70 

5680 LPRINT"*" I 

5700 NEXT D7 

3720 LPRINT 

5740 RETURN 

3760 FOR D7«l TO 70 

3780 PRINT"-*? 

3800 NEXT D7 

5820 PRINT 

3840 RETURN 

5860 REM*******************»****»« «*****»*♦***»»« «**#■********************#**** 

3880 REM - PRINT OUT MINIMAL. DATA 

5900 LPRINT F*<l)t* "lF«<2>t» ";F»<3»:" "*F*<4)I" **F«<6)I" ";F*(45);" *SF*(58M" ";F*<59> 

5920 LPRINT TAB(69) !F*( 63) ; " "sF*(64) 

3940 LPRINT TAB( 69) !F*< 68) ; " ";F*(69> 

3960 LPRINT TAB<69) ?F*( 73) ! ■ "sF*(74> 

5980 RETURN 

6000 REM««************************»»»*#»**#****»****************«********»***« 

6020 REM - PRINT A MAILING LABEL 

6040 LPRINT F*(6)iLPRINT F*(8):LPRINT F*<9);" -;F*(10) 

6860 LPRINT:LPRINT:LPRINT 

6080 RETURN 



Program Listing 4 



100 REM - TMATRIX - This program reads the entire personnel file and creates a 
120 REM Mtrix that represent; the number of teachers on each step 

.140 REM and level of the saltrv schedule for the next .ear. The 

160 REM matrix is stored in a file to be used b. a pro9ram to do 

180 REM salary schedule modeling. 

200 REM Written bv Theron Wi*ren9a during March of 1988. 

220 CLEAR 2000 

240 DIM A<33.5).S*<55>.Y(55).Z(50>.E1(50>.E2<50>.K*<5O).B(55.5) 
260 INPUT-ENTER THE FILE NAME FOR THE MATRIX" ;FIL* 
280 OPEN "D"i It "PI -.254 
300 FIELD 1.234 AS Al* 
320 OPEN 'D'.2i "P2-.253 
340 FIELD 2.253 AS A2« 
360 OPEN "D*. 3. FIL* .20 

380 FIELD 3.4 AS T»(l),4 AS T*<2).4 AS T*(3).4 AS T»(4).4 AS T*(5) 
400 OPEN *D".4.FIL*«-"L* .20 

420 FIELD 4.4 AS T2*(l).4 AS T2*<2).4 AS T2*<3).4 AS T2*(4).4 AS T2*(5> 
440 FOR 1-1 TO 32 
460 READ Y<I).S*<I ) 

480 DATA l.A. 1.3.B.2.C2.5.D.3.E.3.5.F.4.G.4.5.H.5. 1 . 5. 5. J. 6.K, 6. 5.L. 7. M 
500 DATA 7.5.N.8.O.8.5.P.9.Q.9.5.R.1O.S.10.5.T.11.U.11.3.V. 12.W.12.3.X 
520 DATA 13. Y. 14. Z. 15. a. 16,b.l7.c. IB. d. 19. e. 20. f . 21 . 9.22. h. 23. i.24. j.23 
540 DATA k.26. I . 27. m. 28. n. 29. o. 30. p. 31 . -.. 32. r. 33. s. 34. t . 35. u. 36. v. 37. ui 38 
560 DATA x. 39. v. 40.2 
580 NEXT I 
600 FOR I»0 TO 9 
620 READ Ltd) 
640 DATA0. 1.2.3.4.5.6.7.8.9 
660 NEXT I 

680 INPUT-ENTER CLASS WANTED FOR THE SEARCH" »CL* 
700 INPUT" IS THIS AN 'AND' OR 'OR' SORT" IAN* 
720 IF AN*" "AND" OR AN*- "OR" THEN 760 
740 GOTO 700 

760 INPUT'HOW MANY KEYS FOR THE ACCOUNT CODES" J NK 

780 PRINT-ENTER ITEM NUMBER. POSITION OF 1ST CHARACTER. NUMBER OF CHARACTERS" 
800 PRINT'AND THE EXACT KEY FOR EACH ACCOUNT NUMBER DESIRED* 
820 FOR 1=1 TO NK 
840 K*(I >«*.-». " 

860 INPUT Z(I).E1( I).E2< I ).K*(I ) 
880 IF K*( I ><>•.■*.* THEN 940 
900 PRINT*BAD ENTRY - TRY AGAIN" 
920 GOTO 860 

940 IF Z(I)»59 OR Z(I>»64 OR Z(I)-69 OR Z(I>-74 THEN 980 
960 GOTO 900 
980 NEXT I 

1000 REM*********************************************************************** 
1020 REM - START OF MAIN SEARCH LOOP 
1040 CLS 

1060 PRINT 3(10. 1).*N0W READING RECORD NUMBER* 
1080 FOR R=l TO LOF(l) 
1100 GET l.RiGET 2. R 
1120 PRINT 3(10. 27). R 

1140 IF MID*(Al*.26.1)OCL* THEN 1760 
1160 FOR 1-1 TO NK 
1180 Z2-(Z(I)-34)/3 
1200 Z3=77+<43*<Z2-1>> ♦€•<!> Program Listing 4 continues 
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Word Processing? You need a 

SPELLING CHECKER 



_ This is an exanple of a text being checked by 

HEXSmirThe text scrolls <j> the screen as it is checked. Mien 

for correctness, then inserted in the 

j is correct, leave it as it is. 
uord as it is. AND tell HEXSfELL to 
ure referer.ce, with just one keystroke. 
r*.iv is ready to print as soon as rCXSPELL 
is finished. The uord in error t.q. « 




HexspeLL 

zaps those j wa eky typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete new language. 
Program*, wordllst t manual $69us. Manual only $12. ■ "^jf?™ ^M^ 

Requires 4«K TRS-dO Mod I with 2 Drive 4 TRS00S tl ■»— '. ' ^e^W 

Tested against Scrips*! & Electric Pencil, should work with most word processor 



av, HA KAGON P0 - Box 397 - statkxi A 

fa^EwnlwiIL Vancouver, BC. Canada V6C2N2 
T m!f tfYtl I inVRf Telephone (604) 682 7646 



!!NOW AVAILABLE!! 

^ -n. I NDEX 

^a^v Sequential 
Access 
Method 



&* 



#* 



* Get and Put Records to Disk File by "KEY" 

* Read File in Key Sequence Without Sorting 

* Delete Records Without Recopying File 

* Add Records to Disk Files in Any Sequence 

* Variable Key Length From 1 to 50 Characters 

* Machine Language or Basic Subroutines. 

BUSINESS APPLICATION ADVANTAGES 

- Improved Disk Utilization 

- Easier Program Development 

- Improved Operating Characteristics 

- Reduce or Eliminate Sorting 
* Improved Performance 



ISAM SUBROUTINES 
ISAM UTILITIES 



Documentation 

On Diskette S90 00 



NEW! MACHINE LANGUAGE ♦ BASIC SUBS - $140 

— PLUS — Free Mailing List Sample Application 

Add 6% Sales Tax for California Orders 

TRS-80 MODEL I, II, & III and CPM SOFTWARE FROM 
Johnson Associates -or- Telephone Order Line 
P.O. Box 1402 For Bank Card Sales 

Redding, CA 96001 (91 6) 221 -0740 

WRITE FOR FREE CATALOG 



• 85 



r 



$ LYNN'S A/R SYSTEM $ 



1 2 Intergrated Account Receivable Programs 
Tested In Service For Over 2 Years 

User's Coments: 

e increased cash flow 
e saved over 50 hours a month in secretarial hours 
e almost completely eliminated billing errors 



N 



LYNN'S A/R 

e print invoices e store 1 ,100 open invoices e tell you your 
account's receivable total, amount of total invoices out- 
standing, average amount of total invoice's e tell you at any 
time how many invoices an individual account has open, the 
total amount owed, the average per invoice, the invoice date, 
and the invoice amount • total sales on account for given 
month, number of invoices sent, average sale per invoice 
e how much an account purchased during month, how many 

LYNN COMPUTER SERVICE 



SYSTEM WILL 

invoices were sent, average invoice for month • tell you 
what percent of sales an account is to total sales by month 
e tell you what percent of accounts receivable an account is 
e print labels for your accounts e print statements at end of 
month and/or beginning of month and/or any time during 
month, (either individual or all accounts)* print alphabetical 
hardcopy of accounts and account numbers e print all items 
sold for the month e AND MUCH MOREII e 

$4995 



Only 



+ $2.00 Shipping & Handling 



Illinois Residents Add 6% Sales Tax 

Send $10.00 For Printouts 

And Documentation 

Credit Given On Order 



<. 



6831 W. 157th St. 

Tin ley Park. II 60477 

(312)429-1915 

Send state sales tax rate, company name - address - phone #, TRS-80 model #, number of drives, 
and whether you will be using NEWDOS or NEWDOS80 for model I, or TRSDOS/NEWDOS80 for 
model III. 

Equipment Needed: 48K model I or III, lineprinter, 2 
disk drives. Model I users will need NEWDOS or NEWDOS- 
80 operating system by APPARAT, INC. 



TRS80 and TRSDOS are trademarks o» TANDY CORP 

NEWDOS and NEWD0S80 are registered trademarks of APPARAT INC 



•See List ol Advertisers on page 402 
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1220 IF AN*='AND - THEN 1280 

1240 IF MID*(A2*.Z3,E2(I ) )=K*(I) THEN 1340 

1260 GOTO 1300 

1280 IF MID*(A2*.Z3»E2<I>>OK*<I) THEN 1760 

1300 NEXT I 

1320 IF AN*='OR' THEN 1760 

1340 FOR 1-1 TO 52 

1360 IF S*<I)OMID*<A2*.57, 1 > THEN 1740 

1360 FOR J-l TO 5 

1400 IF L*<JK>MID*<A2*>59, 1 ) THEN 1720 

1420 T7#=0tNN#=.01# 

1440 FOR K=5 TO 1 STEP -1 

1460 H*-MID*(A1*,249+K, 1 ) 

1480 FOR L=0 TO 9 

1300 IF L*<L)=H* THEN 1560 

1520 NEXT L 

1540 GOTO 1600 

1560 T7#-T7#+NN**L 

1580 NNN«NNtt*10 

1600 NEXT K 

1620 M=T7f»/8 

1640 A< I, J)=A( I > J)+M 

1660 IF K27 THEN 1760 

1680 B(I. J)=B<I» J)*M 

1700 GOTO 1760 

1720 NEXT J 

1740 NEXT I 

1760 NEXT R 

1780 REM************************** •«*•*»••*«•*•*••*•**#**••*«**•**•**•• «•***««« 

1800 REM - WRITE MATRIX TO DISC 

1820 FOR R=l TO 52 

1840 FOR 1=1 TO 3 

I860 LSET T*( I >=MKS*(A(R, I > ) 

1880 LSET T2«< I)=MKS*CB(R. I) ) 

1900 NEXT I 

1920 PUT 3.R 

1940 PUT 4iR 

1960 NEXT R 

1980 REM - PRINT OUT THE MATRIX 

2000 LPRINT CHR*(31> '." EMPLOYEE DISTRIBUTION MATRIX - ";FIL*5" ■ '.DATE*'. CHRS( 30) SLPRINT 

2020 LPRINT TAB( 10) S-BA" ; TAB (20) ;'BA+20* ! TAB (30) ;"MA" ; TAB (40) 5 "MA+30" STAB (50) S'MA+60" t LPRINT 

2040 J=13 

2060 FOR R=52 TO 1 STEP -1 

2080 IF R<26 THEN 2140 

2100 LPRINT R-12?'YRS.-? 

2120 60T0 2180 

2140 LPRINT J5-YRS."; 

2160 J-J-.5 

2180 GET 3.R 

2200 FOR 1=1 TO 3 

2220 LPRINT TA8(I*10> ;CVS(T*(I> M 

2240 NEXT I 

2260 LPRINT 

2280 NEXT R 

2300 LPRINT.'LPRINT CHR* ( 31 ) S "L0N6EVI TY MATRIX " ', CHRS ( 30) SLPRINT 

2320 FOR R=52 TO 27 STEP -1 

2340 LPRINT R-12? * YRS. " 5 

2360 GET 4.R 

2380 FOR 1=1 TO 5 

2400 LPRINT TAB< 1*10) SCVS(T2*( I > ) S 

2420 NEXT I 

2440 LPRINT 

2460 NEXT R 

2480 REM»*»**»»*»»END OF PROGRAM********** 





Program Listing 5 


100 


REM - TEACHER - Th»s pro9ran. does ?al«r. schedule modeling for teachers. 


120 


REM Tot*1 costs »re confuted tor various increase: In teacher 


140 


REM salaries. 


160 


"EM Written b . Theron Wteren9a during March 1980. 


180 


DIM Ml 13.5). S( 55.5), N( 55,5), N2< 55,5 > 


200 


INPUT'ENTER THE FILE NAME OF THE MATRIX VOU WISH TO USE" !FIL* 


220 


OPEN "D",3,F1L*.20 


240 


FIELD 3.4 AS T*<1),4 AS T*<2>,4 AS T*<3)»4 AS T*(4).4 AS T*(5> 


260 


OPEN ■D"t4.FIL*e*L*.20 


280 


FIELD 4.4 AS T2*(l).4 AS T2*(2>,4 AS T2*(3>.4 AS T2*(4),4 AS T2*(5) 


300 


LPRINT 


320 


REM** ********************* »•*••******«•••«*»•*« »**••#**••*•••*•••••*••••#« 


340 


REM - READ THE STEP MULTIPLIERS 


360 


FOR 1=13 TO 1 STEP -1 


380 


FOR J=l TO 5 


400 


READ M(IiJ) 


420 


DATA 163. 171. 179, 182, 184. 163. 164, 171. 173, 175, 155, 157, 164, 166, 168 


440 


DATA 148, 150, 157, 159, 161, 141, 143. 150, 152, 154, 133. 137, 143, 143, 147 


460 


DATA 129, 131. 136. 138. 140, 123. 125. 130. 132. 134, 1 IB. 120. 124, 126, 128 


480 


DATA 113. 113. 119. 121. 123. 108, 1 10, 1 14, 1 16, 1 18, 104, 106, 1 10, 1 12, 1 14 


500 


DATA 100,102,106,106,110 


520 


NEXT J 


340 


NEXT I 


360 


REM***#*«*«**#»«*»«##*********** »«*•**•*••«•••*«•*•#*•***••••#**•« •#•*•*«« 


380 


REM - COMPUTE NEW SALARY SCHEDULE FOR THE INCREASE Program Listing 5 continues 
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Program Listing 5 continu*) 

600 PRINT-ENTER CURRENT BASE AND PERCENT INCREASE" 

620 PRINT'EXAMPLEs 12777.7.5" 

640 INPUT BiK 

660 PRINT" IF PROJECTIONS ARE TO BE ON NEXT YEARS MATRIX ENTER A i. IF ON THIS" 

680 PRINT- YEARS ENTER A (ZERO)"! 

700 INPUT X9 

720 IF X9-0 OR X9=l THEN 740ELSE 660 

740 LPRINT CHR» ( 31 )S "SALARY SCHEDULE FOR A"sKt"X INCREASE" 

760 LPRINT'ON A* SB» "DOLLAR BASE USING MATRIX ■ ;FIL*l CHR* ( 30 >: LPRINT 

780 REM - CALCULATE NEW BASE 

800 B2=1NT(B»< l+K/100)+.3) 

820 LPRINT TAB< 16) ?"AB" J TAB (30) S"AB+20" STAB (44) 5 "MA" STAB (58) S "MA+30" I TAB (72) S'MA+60" 

840 GOSUB 2320 

860 FOR I-A0 TO 14 STEP -1 

880 LPRINT I !"YRS. " ! 

900 FOR J-l TO 3 

920 S< 1 + 12. J)-INT(B2«(M(13» J ) / 100)+. 5 )+INT < ( I-10)/5>«300 

9A0 IF IOA0 THEN 980 

960 Sd + 12. J)-S(I+12. J)-300 

980 LPRINT TA8(14»J+1> ;S( 1+12. J) ! 

1000 NEXT J 

1020 LPRINT 

10A0 NEXT I 

1060 N-25 

1080 FOR 1-13 TO 1 STEP -.5 

1100 LPRINT I ;"YRS. " S 

1120 FOR J-l TO 3 

11*0 Z-INT(I) 

1160 IF I-INT(I) THEN 1260 

1180 X-(M(Z.J)+M(Z+1. J) >/2 

1200 S(N. J)-INT(B2«(X/100)+.5) 

1220 LPRINT TAB( 14»J-4) ; " -;S(N.J); 

1240 GOTO 1300 

1260 S(N. J)=INT(B2*(M(Z. J)/100>+.5> 

1280 LPRINT TAB( 14»J-4> SM(Z. J)SS(N. J>S 

1300 NEXT J 

1320 LPRINT 

1340 N=N-1 

1360 NEXT I 

1380 LPRINT«LPRINT:LPRINT 

1400 REM««««««***«««*#»««*«»**»»####»«#««««#«#***«»«*#««**#»»**#*«#«*»#««»«#«*« 

1420 REM - READ MATRIX SHOWING EMPLOYEE DISTRIBUTION 

1440 FOR R-l TO 52 

1460 GET 3.R 

1480 GET 4.R 

1300 FOR 1=1 TO 5 

1520 N(R. I )=CVS(T»(I) ) 

1340 N2(R. I )-CVS(T2«< I ) ) 

1360 NEXT I 

1580 NEXT R 

1600 REM - COMPUTE PRODUCT MATRIX 

1620 C2=0:l=13 

1640 LPRINT CHR*(31) S "EMPLOYEE SALARY DISTRIBUTION" 

1642 LPRINT "WITH A";X9i"YEAR STEP INCREASE TO CURRENT FILE" ; CHR*( 30) SLPRINT 

1660 GOSUB 2420 

1680 FOR R-52 TO 1 STEP -1 

1700 IF R<26 THEN 1760 

1720 LPRINT R-12S*YRS."S 

1740 GOTO 1800 

1760 LPRINT I:"YRS." ! 

1780 I-I-.5 

1800 C1=Z 

1820 FOR J-l TO 3 

1840 T9-S(R. J)»N(R-X9. J) 

1860 LPRINT TAB( 12*J) ;T9s 

1880 C1-C1+T9 

1900 NEXT J 

1920 LPRINT TAB<73) J'/ - IC1 

1940 C2-C2+C1 

1960 NEXT R 

1980 LPRINTILPRINT'TOTAL OF ALL TEACHER SALARIES »"! C2: LPRINT 

2000 LPRINT CHR»(31) ? "LONGEVITY DISTRIBUTION" ; CHR* ( 30) : LPRINT 

2020 GOSUB 2420 

2040 C2-0 

2060 FOR R-52 TO 26 STEP -1 

2080 LPRINT R-12S*YRS."S 

2100 C1=0 

2120 FOR J-l TO 3 

2140 T9-N2(R-X9. J)«(INT< < R-22) /5 > »300 ) 

2160 LPRINT TAB< 12*J) !T9? 

2180 C1-C1+T9 

2200 NEXT J 

2220 LPRINT TAB( 73) t " /* SCI 

2240 C2-C2+C1 

2260 NEXT R 

2280 LPRINT JLPRINT-TOTAL OF ALL LONGEVITY =";C2 

2300 STOP 

2320 FOR 11*1 TO 90 

2340 LPRINT**'; 

2360 NEXT II 

2380 LPRINT 

2400 RETURN 

2420 LPRINT TAB(13)!"AB" STAB (23) S'AB+20- J TAB (37) ;"MA" ; TAB (49) ; "MA + 30" ; TAB (61 ) I 

2440 LPRINT -MA+60" STAB (73) ; "TOTAL* 

2460 GOSUB 2320 

2480 RETURN 

2500 REM**»»»««»«»END OF PROGRAM***»««»«»« 
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BUSINESS 



Computerize your rental records before the first of the month. 



The Tenant Tracker 



George Kwascha 
8007 Mahogany Drive 
Charlotte, NC 28212 



Tenant 


Address 


Month 


Rent 


Date Rec. 


Amt. Rec. 


Rec* 


Code 


Smith Jonathan 


1800 Century Av 


01-80 


250.00 


01-02-80 


250.00 


1234 


T 


Smith Jonathan 


1 800 Century Av 


12-80 


265.00 


12-04-80 


265.00 


1400 


T 


Smith Jonathan 


1 800 Century Av 


11-80 


265.00 


11-14-80 


275.00 


1399 


L 


Smith Jonathan 


1800 Century Av 


02-80 


250.00 


02-01-80 


250 00 


1245 


T 


Smith Jonathan 


1800 Century Av 


03-80 


250.00 


03-03-80 


250.00 


1250 


T 


Smith Jonathan 


1800 Century Av 


05-80 


250.00 


0^04-80 


250.00 


1300 


T 


Smith Jonathan 


1800 Century Av 


04-80 


250.00 


04-01-80 


250.00 


1405 


T 


Smith Jonathan 


1800 Century Av 


06-80 


265.00 


06-11-80 


265.00 


1470 


N 


Smith Jonathan 


1800 Century Av 


07-80 


285.00 


07-02-80 


265.00 


1500 


T 


Smith Jonathan 


1800 Century Av 


10-80 


265.00 


10-01-80 


265.00 


1801 


T 


Smith Jonathan 


1800 Century Av 


09-80 


265.00 


09-02-80 


265.00 


1659 


T 


Smith Jonathan 


1800 Century Av 


08-80 


265.00 


08-15-80 


275.00 
S3 125.00 


1645 


LB 




Fig. 1. 


Rental Record Input File Dump. 







If you need a method of computerizing 
records for rental property that you may 
be managing, I have written the following 
program for a local real estate manage- 
ment firm. The program is designed to 
keep a record of every rental unit's 
monthly rent payments for one year. Ad- 
mittedly, it is a simple program that can be 
altered to suit your particular needs. This 
modified version will run on a TRS-80, 
Level II 16K with cassette. 

How the Program Works 

After CLOADing and typing Run, the pro- 
gram prints out a heading on the screen 
and, after a brief delay, will display a menu 
of options. Option 1 allows you to enter in- 
itial rental information. The program 
prompts for the following fields: 

• Tenant name— Enter last name first, 
then first name (without commas). 

• Address— Enter as you wish without 
commas, but be consistent in format 
or you may have difficulty retrieving 
data. In my sample run I used "#### 
street name." 

• Rental month— Enter two digits for 
the months, dash, two digits for the 
year (MM-YY). 

• Date payment received— This, of 
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Month 


Tenant Name 


Rent 


Date Rec. 


Amt. Rec. 


Rec.* 


Code 


1-80 


Smith Jonathan 


$250.00 


01-02-80 


$250.00 


1234 


T 


2-80 


Smith Jonathan 


$250.00 


02-01-80 


$250.00 


1245 


T 


3-80 


Smith Jonathan 


$250.00 


03-03-80 


$250.00 


1250 


T 


4-80 


Smith Jonathan 


$250.00 


04-01-80 


$250.00 


1405 


T 


5-80 


Smith Jonathan 


$250.00 


05-04-80 


$250.00 


1300 


T 


6-80 


Smith Jonathan 


$265.00 


06-11-80 


$265.00 


1470 


N 


7-80 


Smith Jonathan 


$265.00 


07-02-80 


$265.00 


1500 


T 


8-80 


Smith Jonathan 


$265.00 


08-15-80 


$275.00 


1645 


LB 


9-80 


Smith Jonathan 


$265.00 


09-02-80 


$265.00 


1659 


T 


10-80 


Smith Jonathan 


$265.00 


10-01-80 


$265.00 


1801 


T 


11-80 


Smith Jonathan 


$265.00 


11-14-80 


$275.00 


1399 


L 


12-80 


Smith Jonathan 


$265.00 


12-04-80 


$265.00 
$3125.00 


1400 


T 




Fig. 


2. Rental Record History for 1980 







Variable 


Program Function 


M$< ),L$( ) 


Rental Month (MM-YY) 


D$< ).0$( ) 


Date payment was received (MMDD-YY) 


Al( ),P!( ) 


Rental amount ($$$.00) 


R( ).T( ) 


Receipt number or other control number 


A$( ).J$( ) 


Address of rental property (no commas) 


N$( ).K$( ) 


Name of tenant (no commas) 


B!( ),S!( ) 


Amount received ($$$.00) 


BB.SS 


Totaled amount received 


C$< ),U$( ) 


Code to describe status of payment 




Codes used in this program: 




T - payment In time 




L - late payml with late charge 




N - late paymt w/o late chge 




B - bounced check 




D - deposit forfeiture 




- other 




Table 1. Variable Listing 



"The program is designed to keep a record 
of every rental unit's monthly rent payments for one year." 



course, is very important to any real 
estate management firm. Use format 
'•MM-DD-YY." 

• Rental amount— Enter rent due as a 
dollar amount (ex:200.00). 

• Amount received— Enter same as 
above. 

• Receipt number— or some other con- 
trol number, if one is used by your 
firm. 

• Code— Refer to Table 1 for list of 
codes used In the sample run. You 
may wish to add your own. 

Type Enter after each field entry and 
End in the tenant name field to close the 
file and display the option menu. 

Option 2 allows you to change data in a 
file in case an error exists. The program 
prompts for the tenant name and rental 
month. Only the first five characters of the 
name need be entered. However, the entire 
rental month field (MM-YY) must be 
entered exactly. When a match occurs in 
the file, the program will prompt each field 
once again for the correct data. You need 
only enter data In the field that needs cor- 
recting. In all other fields, type Enter to 
maintain already existing data. After- 
wards, the program will ask whether you 
want to enter another correction; indicate 
either yes or no. The Option menu will then 
be displayed. 

Option 3 allows you to inspect the entire 
file in order of entry. The program will 
display two months of data per screen. 
Type Enter to continue scrolling. 

Option 4 also permits you to display the 
file except you must specify the tenant's 
name. Once again, only five characters of 
the name are needed. 

In Option 5 by specifying the address the 
file is displayed. You must enter at least 
nine characters of the address to obtain a 
match. In my sample run I used "1800 
Cent." 

Option 6 enables you to save your data 
on cassette tape. Type 6, press record-play 
on your recorder and hit Enter. The pro- 
gram will prompt you for a menu when it 
has completed saving the data on tape. 

Option 7 allows you to input data from 
cassette. Type 7, press play on your 
recorder and hit Enter. The program will 
prompt you for a menu when it has com- 
pleted loading. 

In Option 8 typing 8 will display the 
sorting options available. 

In Option 9 typing 9 will terminate the 
program. It also erases all data that you 
may have in memory, so be sure to save it 
on tape before ending the program. 

Output Reports and Sorting Options 

Requesting Option 8 in the above section 
will display another menu of sorting op- 
tions. It needs to be pointed out that Op- 



tions 2,4,5 and 6 are not Included in this 
program listing. Output reports In the area 
of real estate management depend on 
each firm's needs and must be written as 
such. I have included two output reports as 
examples. For example: 

• Option 1 will print a hard copy report 
of the entire file. See Fig. 1 for my 
sample run. This form of output 
report is not very practical. It Is strict- 
ly designed as a control report. 



Option 3 will print a hard copy annual 
report of each requested address. 
This option will also sort the data in 
descending numerical order by 
month. See Fig. 2 for my sample run. 
The program will first prompt you for 
an address. Enter the full address. 
The program then will prompt you for 
"# line feeds to heading." Enter the 
number of lines you wish skipped 
before the heading is printed. 



Uhm 


Program Function 


10-20 


Initialize program and print heading 


28-30 


Dimension variables 


as-ao 


Display available options 


85-05 


Direct program to chosen option 


100-155 


Option 1 - enter payment to file 


160-195 


Option 2 - make corrections to file 


200-220 


Option 3 - display entire tile 


225-260 


Option 4 - display individual tanant file 


265-300 


Option 5 - display address file 


305-330 


Option 6 - save current file on tape 


335-360 


Option 7 - Input existing file from tape 


365-400 


Option 8 - list sorting options for output reports 


405-415 


Direct program to chosen sort option 


420-455 


Sort Option 1 - Print dump of entire file 


460 


Sort Option 2 - (unavailable In this listing) 


465-532 


Sort Option 3 - Annual report sorted by address 


535 


Sort Option 4 - (unavailable In this listing) 


540 


Sort Option 5 - (unavailable In this listing) 


545 


Sort Option 6 - (unavailable in this listing) 


550-555 


Terminates program 


560-565 


Subroutines - formatted print for output In Options 3,4,5 


570-610 


Subroutine - sorts data In descending order, rental month 


615-620 


Subroutine - used in options 2,4,5 




Table 2. Program Summary 



Program Listing 

10 CLEAR2000:CLS:PRINTSTRING$(64,191) ;STRING$(64,143) 

15 PRINTG142,"* * * RENTAL RECORD PROGRAM * * *■ :PRINTSTRING$(64 

,188) ;STRING$(64,191) 

20 F0RXX«1T0999:NEXT 

25 DIMM$(50) ,D$(50) ,A1 (50) ,R(50) ,C$(50) ,A$<50) ,N$(50) ,BI (50) ,L(5 

0) 

30 DIMJS(50) ,K$(50) ,L$(50) f O$(50) f Pl (50) f Sl (50) ,T(50) ,U$(50) 

35 CLS:PRINT§10,"* * OPTIONS AVAILABLE * *■ :PRINTxPRINT: YY-0 

40 PRINT"TO ENTER PAYMENT TO FILE TYPE 1" 

45 PRINT-TO MAKE CORRECTIONS TO FILE TYPE 2" 

50 PRINT'TO DISPLAY ENTIRE FILE ...TYPE 3" 

55 PRINT'TO DISPLAY INDIVIDUAL TENANT FILE... TYPE 4" 

60 PRINT"TO DISPLAY ADDRESS FILE TYPE 5" 

65 PRINT"TO SAVE CURRENT FILE ON TAPE TYPE 6" 

70 PRINT"TO INPUT EXISTING FILE FROM TAPE.. ..TYPE 7" 

75 PRINT"TO LIST PROGRAM SORTING OPTIONS TYPE 8" 

80 PRINT"TO END PROGRAM TYPE 9" 

85 Q$«INKEY$:IFQ$-""THEN85ELSE90 

90 W«VAL(Q$) :ONWGOTO10 0,160, 200, 225,265,305,335,365,550 

95 PRINT "INCORRECT ENTRY... TRY AGAIN" :GOT085 

100 CLS:PRINT"TO CLOSE FILE, TYPE. .. 'END' IN NAME FIELD" iPl-Pl+1 

105 FOR I-Pl TO 50:PRINT"ENTER TENANT NAME (LAST FIRST)" 

110 INPUTN$(I) :IF N$(I)-"END" THEN Pl-I-l:GOT0155 

115 INPUT"ENTER TENANT ADDRESS(#### STREET) "jA$( I) 

120 INPUT"ENTER RENTAL MONTH (MM-YY) ";M$(I) 

125 INPUT'ENTER DATE PAYMENT RECEIVED (MM-DD-YY) ";DS( I) 

130 INPUT'ENTER RENTAL AMOUNT ( $$$.00) " ;AI (I) 

Program continues 
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MD 



MOO-DGSIGN 



ANNOUNCES 

THE NEW 

MDX-3 

INTERFACE EXPANSION BOARD 



IMTItr ACI IXPANIION IOARD 

FOR THI TRS-IO 

MODIL III COMRUTIR 

FEATURES: 

• Phone Modem 

• RS-232 Port 

• Floppy Dtek Controller 
Dual Density 

Data Separator 

• SHk Screen 

• Solder Mask 

• User Manual 

Also Available 
TheMDS-1 

• Plug in data separator 

tdrtheMDX-2 

• Fuly assembled and tested 

• User Manual 



STILL AVAILABLE FOR 
THETRS-80MODELI 

MDX-1 and MDX-2 Boards. 

FEATURES: 

• Phone Modem 

• 2K-4KE PROM Option 

• 32K MEMORY Expansion 

• Floppy Disk Controller on MDX-2 

• Real Time Clock 

• Poralel Port 

• RS-232 and 20mo Serial Port 

• Dual Cassette Line 

• On Board Supply 

• Slk Screen 

• Solder Mask 

• User Manual 



IN STOCK NOW! 



PC Board & Manual 
MDX-1 $64.95 

MDX-2 $74.95 

MDX-3 $74.95 

MDS-1 $21.95 



User Manual 



$7.95 



All Boards Add S6.00 Shipping 
Assembled Boards Available 
...Call For Prices 



•U A 'l -\bt E 



MICRO DG^IGN 

P Box 748 

Md'ichaca Texas 7Bf>b2 

Si? 282 072b 



Program continued 



135 INPUT"ENTER AMOUNT RECEIVED ( $$$.00) ■ jBl (I) 

140 INPUT'ENTER RECEIPT NUMBER (HM)';R(I) 

145 PRINT'BNTER CODE...T-ON TIME" :PRINTTAB(13) "L-LATE W/CHG":PRI 

NTTAB(13) "N-LATE W/0 CHG" :PRINTTAB(13) "B-BOUNCED CHECK" 

150 PRINTTAB(13) "D-DEPOSIT FORFEITURE" :PRINTTAB( 13) "0-OTHER" :INP 

UTC$(I) :NEXT 

155 CLS:PRINTe46 8, "* * * FILE CLOSED * * *" :F0RXX«1T0999:NEXT:G0 

T035 

160 CLS: INPUT'ENTER NAME (LAST FIRST) " ;N$j INPUT'ENTER RENTAL MON 

TH(MM-YY)'|M$ 

165 F0RI-1T0P1 t IFLEFT$ (N$ ( I) , 5) »LEFT$ (N$ , 5) ANDM$-M$ ( I ) GOT0175 

170 NEXT: PRINT "NAME NOT IN PILE" :GOT0195 

175 PRINT: PRINT "RE-ENTER INFO WITH CORRECTIONS' : INPUT'ENTER NAME 

" ;N$ ( I) i INPUT" ENTER ADDRESS" ;A$( I) 

180 INPUT'ENTER RENTAL MONTH(MM-YY) ";M$(I) : INPUT'ENTER DATE PAYM 

T RECEIVED(MM-DD-YY)";D$(I) 

185 INPUT'ENTER RENT AMOUNT" ;A1 (I) :INPUT"ENTER AMOUNT REC";B1(I) 

190 INPUT"ENTER RECEIPT * ";R( I) : INPUT'ENTER CODE: ";C$(I) 

195 N$«""iM$-""iGOSUB615:IFX$-"Y"THEN160ELSE35 

200 CLS: FOR I»1TOP1:GOSUB560:YY«YY+1 

205 IFYY02THEN215 

210 YY«0:PRINT§960,"TYPE ENTER TO CONTINUE LISTING" ;: INPUT 

215 NEXT 

220 INPUT'TYPE ENTER TO DISPLAY OPTIONS" ;X»G0TO3 5 

225 CLS: INPUT'ENTER TENANT NAME (LAST FIRST) " ;N$: PRINT 

230 FOR I*1T0P1:IFLEFT$(N$(I) ,5) <>LEFT$(N$,5)THEN250 

235 GOSUB560:YY»YY+1 

240 IFYYO2THEN250 

245 YY-0:PRINT@960 f "TYPE ENTER TO CONTINUE LISTING"; : INPUT 

250 NEXT 

255 PRINT i PRINT "END OF FILE SEARCH. .." :PRINT:YY«0 

260 N$-"" :GOSUB615 : IFX$«"Y'THEN225ELSE35 

265 CLS: INPUT'ENTER RENTED ADDRESS (#### STREET) ";A$: PRINT 

270 FOR I*lTOPl:IFLEFT$(A$(I) ,9) <>LEFT$(A$,9) THEN290 

275 GOSUB560:YY»YY+1 

280 IFYYO2THEN290 

285 YY-0:PRINT§960,'TYPE ENTER TO CONTINUE LISTING"; : INPUT 

290 NEXT 

295 PRINT: PRINT "END OF FILE SEARCH. .." :PRINT:YY«=0 

300 A$»"":GOSUB615:IFX$-"Y"THEN265ELSE35 

305 CLS: INPUT" PREPARE CASSETTE TO SAVE DATA FILE, WHEN READY TYPE 

ENTER" | X 
310 CLS:PRINT§460,"* * * COPYING FILE ONTO TAPE * * *■ 
315 PRINT 1-1, PI 

320 FOR I-1T0P1:PRINT #-l,N$(I) ,A$ (I) ,M$(I) ,D$(I) ,Ai (I) ,B1 (I) ,R( 
I) ,C$(I) :NEXT 

325 CLS :PRINTe455,"... BURP 1..* COPYING COMPLETE *...NOTE TAPE LO 
CATION" 

330 PRINT§896,"TYPE ENTER TO LIST OPTIONS" ;: INPUTX:GOT035 
335 CLS: INPUT" PREPARE CASSETTE FOR DATA INPUT... WHEN READY TYPE 
ENTER" | X 

340 CLS:PRINT§460,"* * * COPYING FILE FROM TAPE * * *" 
345 INPUT #-l,Pl 

350 FOR I-1T0P1:INPUT #-l,N$(I) ,A$(I) ,M$(I) ,D$(I) ,AI (I) ,Bl (I) ,R( 
I) ,C$(I) :NEXT 

355 CLS:PRINT8466,'* * * INPUTING COMPLETE * * *■ 
360 PRINT8896,"TYPE ENTER TO LIST OPTIONS"; : INPUT :GOT035 
365 CLS:PRINTei0,'* * SORTING OPTIONS AVAILABLE * *': PRINT: PRINT 

370 PRINT'TO PRINT A DUMP OF ENTIRE INPUT FILE TYPE 1 

375 PRINT'TO PRINT ANNUAL REPORT SORTED BY RECEIPT # TYPE 2 

380 PRINT'TO PRINT ANNUAL REPORT SORTED BY ADDRESS TYPE 3 

■ 

385 PRINT'TO PRINT ANNUAL REPORT SORTED BY TENANT NAME.... TYPE 4 

390 PRINT'TO PRINT MONTHLY REPORT BY ADDRESS... TYPE 5 

395 PRINT'TO PRINT MONTHLY REPORT BY TENANT NAME TYPE 6 

■ 

400 PRINT'TO LIST ORIGINAL OPTIONS TYPE 7 

■ 

405 Q$»INKEY$:IFQ$-"THEN405ELSE410 

410 K-VAL(Q$) :ONKGOTO420,460,465,535,540,545,35 

415 PRINT" INCORRECT ENTRY... TRY AGAIN" :GOTO405 

420 BB«0:LPRINTTAB(20)"* * * RENTAL RECORD INPUT FILE DUMP * * * 

":LPRINT" " 

425 LPRINTTAB(3) "TENANT ADDRESS MONTH RENT D 

ATE REC AMT REC REC# CODE" 

430 FORI-1TOP1 

Program continues 
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Software Breakthrough. . . 

NEW QUIKPRO Program 
WRITES Programs For You 

in Minutes. 




Review of QUIKPRO 
by Technical Writer 
Wayne Hepburn 

QUIKPRO by ICR FutureSoft is the 
name given a new breakthrough in 
software. It is written for use on TRS- 
80 Model I Disc System, Model II 
and Model III Disc System. 

Until now, whenever you 
wanted a new program, you either 
had to pay good money for each and 
every new application program or, if 
you are capable, spend hours upon 
hours writing your own. Thanks to a 
marvelous new program, those 
choices are obsolete. 

Now you can do it yourself. 
Anytime you want a new program, 
easily and quickly, you can make 
your own. Anybody who can turn a 
computer on and off can do it with 
Quikpro ..ifs that easy and fast. 

This important breakthrough 
is the invention of Joseph Tamargo 
of Florida. His brilliant approach to 
program writing allows you, finally, 
to tap the real power of your com- 
puter in new ways. I located Mr. 
Tamargo and interviewed him about 
the Quikpro. He told me "The best 
part of this program is that it gives 
you a separate BASIC program every 
time you use it. You can List each 
program you create from it, look at 
it, and actually see what makes it 
tick." 

Whaf s more, I found out you 
can modify, alter and enhance, even 
copy, programs you create from 
using Quikpro. I believe there is no 
other program even close to Quik- 
pro for flexibility and ease of 
program generation. This flexibility 
may well make Quikpro superior to 
every other Filing, Data Entry 

>-See List of Advertisers on page 402 



or Data Base Management Program. 

The applications are virtually 
unlimited. Anyone who uses a com- 
puter at home, in business, in schools 
or other educational situations will 
find hundreds of applications. 
Teachers, Students, Hobbiests, Small 
and Large Businesses can all find 
great benefits in using Quikpro in 
any of hundreds of applications like 
these examples: 

Using Quikpro you can 
quickly write programs for Financial 
Records, Stocks, Checking Accounts, 
Receiveables, Inventories, Schedules, 
Personal Records, Statistics, Invoices, 
Catalogues, Reference Banks, Ac- 
counting Data of all kinds, and the 
list just goes on and on, almost 
without limit. 

Quikpro cuts program 
development time dramatically. ..to a 
fraction of what it would take the 
old way (the way you do it now). It 
will generate File and Data Entry 
sequences for mainframes to remote 
or host computers. You can create 
and run a demonstrator! program in 
a few minutes. 

Unlike novelty programs you 
play with for a while and grow tired 
of, Quikpro is one you will regard 
like a good right arm. Year after year 
you will use it to create all the new 
Filing and/or Data Entry programs 
you will ever need. You never have 
to buy them again. 

Thanks to this invention, the 
power and speed promised by com- 
puters from the beginning have now 
become a reality. Since I had seen 
announcements about a program to 
be imported from a foreign nation, 
one that supposedly writes programs 
like Quikpro but sells for over six 
times as much money, I asked Mr. 
Tamargo for his comments about 



that. What he told me is "Quikpro is 
so good, anyone can use it im- 
mediately. To prove that point and 
the tremendous capacity it gives the 
user, ICR FutureSoft will send 
QUIKPRO directly to users with an 
absolute moneyback guarantee of 
satisfaction. The user can try it out 
on his/her own computer, writing as 
many programs as desired, for 15 
days after delivery, and if not fully 
satisfied can return the materials for 
a full refund with no reason given. 
That's how good Quikpro is." 

I couldn't argue with that. 
When the supplier stands behind the 
product with a 100% refund guaran- 
tee, it has to be as good as they say 
or even better, and I believe it is. 

The best news is you don't 
have to wait to get QUIKPRO from 
ICR FutureSoft or a dealer. You can 
get it right now by writing or calling. 
QUIKPRO will be delivered im- 
mediately by mail with instruction 
manual and full documentation on 
the moneyback guarantee basis. To 
get yours, just write on a plain piece 
of paper your name and address, 
specify if you want QUIKPRO for 
TRS-80 Model I. II, or III. Include 
your check or money order for only 
$89.95 or furnish your Visa or 
Mastercard number and expiration 
date to charge. Mail to : ICR 
FutureSoft, 2031 Zeta, P.O. Box 1446, 
Orange Park FL 32073. 

If you prefer to call and get 
immediate delivery, you can phone 
24 hours daily to 1-904-269-1918 
Please have your credit card number 
and computer model information 
ready. Operator is not qualified to 
answer questions about the program. 
Order your QUIKPRO right now. 
Every day you delay is costing you 
time and money. v ae 
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SCRIPMOD 

By TERRY FIVEASH 



Scripmod Features 

For use with any smart printer (MX -80. Micro- 
line 80, LP IV, DW II. IDS 440. IDS 460. NEC. 
DIABLO. OUME. and more.) 
Underline. Superscript, Subscrip. Bold Tpye, 
Pitches, Pause and enter text Irom keyboard or 
change print wheels. 

"FIX" included to make unlimited backups 
Any ASC II Code Irom 1 to 255 
Print special characters. 



SUPPLIED ON DISC WITH DOCUMENTATION 

Model I, 32K, with lower case $39.05 

Model III. 32K $39.95 




by Dan Case 
Super adventure with 
sound! Rescue fair prin- 
cess from people of Rah. 
Model I. III. 16K. 



Level II 



Video Screen Filter 
Hard acrylic plastic screen 
that's easy to install — 
easy on your eyes. 
Model I, II, III $14.95 



.$14. IS Special sizes available 



COLOR COMPUTER PROGRAMS 

Rainbow Files / Data Base Mgr.. 16K. Ex- 
tended Basic $19.95 

Rainbow Small Business System / Dome Book- 
keeping format, 16K, Extended Basic . . . $24.95 
Rainbow Game Pack I / Hangman. Target Shoot. 
Boggle, Craps. 4K $19.95 



Send Check or Money Order / COD's Welcome 

Oklahoma Residents add 2% tax. 

mgpe , ®(olt!!]©'&® 

P. 0. BOX 7544 / TULSA, OKLAHOMA 74108 
CODs Call (918)747-9846 ^598 



". . . there is no direct method 
of deleting a record completely. 



Program continued 



% 

fttt 



% 



% % % % % ###.## 

%";N$(I),A$(I) ,M$(I),Al(I),D$(I) ,BI 



435 LPRINTUSING" 
% % *•#.** 

(I),R(I),C$(I) 

440 BB-BB+BKI) 

445 NEXTI 

450 LPRINTTAB(59)STRING$(7 r 45) : LPRINTTAB( 58) ;: LPRINTUSING" $#### . 

M-tBB 

455 LPRINTCHR$(27) ;CHR$(11) :GOT0365 

460 GOT0535 

465 J=0:KK-0: PRINT: INPUT" ENTER ADDRESS OP DESIRED REPORT"; A$: Z$=» 

"-":SS«0:INPUT"ENTER « LINE FEEDS TO HEADING" jGK 

470 F0RI-1T0P1 t IFLEPT$ ( A$ , 9) <>LEFT$ ( A$ ( I) , 9) THEN480 

475 J-J+1:J$(J)«A$(I) xK$(J)-N$(I) iL$(J)=M$<I) :0$ ( J) =D$ ( I) :P1(J)» 

Al(I):Sl(J)-Bl (I) :T(J)-R(I):U$(J)=C$(I) :KK=1 

480 NEXTI 

482 IFKKO1G0T0532 

485 JW:GOSUB570:G$-RIGHT$(L$(1) ,2) 

490 F0RX«1T0GK:LPRINTCHR$(138) :NEXT 

495 LPRINTTAB(20) "* * * 19";G$;" RENTAL RECORD HISTORY * * *":LP 

RINTTAB(30)A$:LPRINT" " 

500 LPRINTTAB(5) "MONTH TENANT NAME RENT DATE REC 

AMT REC RECt CODE" 
505 F0RJ-1TOJ1 
510 LPRINTUSING" ##!%% % % $*#!.#♦ % 

% $•*#.** **#* % %"|L(J) ,Z$,G$ f K$(J) ,PI(J),0$(J) ,Sl(J) ,T( 
J),U$(J) 
515 SS-SS+SMJ) 
520 NEXT J 

Program continues 



ADVENTURES!!! 
For TRS-80 and COLOR -80. These Ad- 
ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adventures 
are interactive fantasies. It's like reading a 
book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch.") 

Adventures require 16K. They sell for 
$14.95 each. 
ESCAPE FROM MARS (by Rodger Olsen) 
This ADVENTURE takes place on the 
RED PLANET. You'll have to explore a 
Martian city and deal with possibly hostile 
aliens to survive this one. A good first 
adventure. 

PYRAMID (by Rodger Olsen) 
This is our most challenging ADVEN- 
TURE. It is a treasure hunt in a pyramid 
full of problems. Exciting and tough I 
TREK ADVENTURE (by Bob Retelle) 
This one takes place aboard a familiar 
starship. The crew has left for good reasons - 
but they forgot to take you, and now you 
are in deep trouble. 

DEATH SHIP (by Rodger Olsen) 
Our first and original ADVENTURE, 
this one takes place aboard a cruise ship - 
but it ain't the Love Boat. 
VAMPIRE CASTLE (by Mike Bassman) 
This is a contest between you and old 



QUEST 



QUEST - A NEW IDEA IN ADVEN- 
TURE GAMES! Different from all the 
others. Quest is played on a computer 
generated map of Alesia. Your job is to 
gather men and supplies by combat, bargain- 
ing, exploration of ruins and temples and 
outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock 
in a life or death battle to the finish. Play- 
able in 2 to 5 hours, this one is different 
every time. 
16K COLOR-80 OR TRS-80 ONLY. $14.95 




Drac - and it's qetting a little dark outside. 

si™ 95 each l^\ Please specify system on all orders 

~" This is only a partial listing of what we have to offer. Send for free catalog to: 

AARDVARK-80 *m 



ARCADE AND THINKING GAMES 
16K and extended or level II BASIC 

TIME TREK, REAL TIME REAL 
GRAPHICS TREK. See the torpedoes fly 
and Klingons explode. No more scoll- 
ing displays, no more turn taking. -- This 
one has real time and real displays. In 
BASIC - for 16K level II or extended color 
BASIC. $14.95. 

STARFIGHTER - This one man space 
war game pits you against spacecruisers, 
battlewagons, and one man fighters. You 
have the view from your cockpit window, a 
working instrument panel, and your wits. 
Another real time goody. $9.95. 

BATTLEFLEET - This grown-up ver- 
sion of Battleship is the toughest thinking 
game available on 80 computers. There is 
no luck involved as you seek out the 80's 
hidden fleet. This is a topographical toughie. 
$9.95. 

SLASHBALL - A two player game of 
strategy and skill, this is like nothing you 
have ever seen before. This takes fast 
fingers, quick wits and concentration. Play- 
able from age 6 to 65, it is a good family 
game. $9.95. 

MINOS - 8K - Features amazing 3D 
graphics. You see a maze from the top, the 
screen blanks, and when it clears, you are in 
the maze at ground level finding your way 
through on foot. Realistic enbugh to cause 
claustrophobia. $12.95. (COLOR-80 ONLY) 




TRS-80 



2352 S. Commerce, Walled Lake, Ml 48088 
(313)669-3110 



COLOR-80 
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• Option 7 will return you to the original 
options menu. 

A Few More Pointers 

You may have noted that there is no 
direct method of deleting a record com- 
pletely. To do this, I recommend that you 
use Option 2 and enter at least one blank In 
all fields. 

You will need to consider changing 
dimension statement values and the string 
space value to suit your needs. One idea 
that Is somewhat useful is to set up an en- 
tire year's file with tenant names, ad- 
dresses, and rental amounts. Then, through- 
out the remainder of the year, Option 2 can 
be used to add data each month as the rent 
is paid. 

Sort Option 2 was originally designed to 
print an annual report sorted by receipt 
number. Sort Option 4 printed an annual 
report sorted by name, much like sort Op- 
tion 3. Sort Options 5 and 6 printed monthly 
reports sorted by name and address. As 
you can see, an output report can take 
many forms. Only you can determine 
which report best suits your needs. ■ 



consider changing dimension statement vatues 

and the string space vaiue 
to suit your needs." 



Program continued 

525 LPRINTTAB(53)STRING$(7,45) *LPRIWTTAB(52) j 

530 LPRINTUSING"S####.##-;SS:GOT0365 

532 CLS:PRINT§465, "REQUESTED ADDRESS NOT IN FILE" iFORXX«1T0999:N 

BXT:GOT0365 

535 CLS:PRINT§465, "OPTION UNAVAILABLE AT THIS TIME" tPORXX-lT0999 

:NBXT:GOT0365 

548 GOT0535 

545 GOT0535 

550 PRINTSTRINGS(64 f 191);STRING$(64 r 143) tPRINTTAB(15) "• * * PROG 

RAM TERMINATED * * •■ lPRINTSTRING$(64 f 188) > STRING$(64 ,191) 

555 END 

568 PRINTA$ ( I) ,N$ ( I) t PRINT-RENTAL MONTHi ";M${I) tPRINT"DATE PAYM 

EOT RECEIVED: " ;D$( I) s PRINT "RENTAL AMOUNT: "; 

565 PRINTUSING"###.M"jAl(I):PRINT"AMOUNT RECEIVED: "nPRINTUSIN 

G"###.##"»BI(I)|:PRINT" RECEIPT! "jR(I)|" CODE: "»C$(I):PR 

INT: RETURN 

578 F0RJ-lTOJl:L(J)-VAL(LBFT$(L$(J),2)) :NEXTJ 

575 PORI-lTOJl-1 

588 PORJ-I+lTOJl 

585 IFL(I)<-L(J)THEN685 

598 L-L(I) :K$«KS(I) :0$«0$(I) :P-P! (I) :S-S1 (I) :T-T(I) :U$-U$(I) 

595 L(I)-L(J):K$(I)-K$(J):0$(I)«0S(J):PI(I)-P1(J):SI(I)-S1(J):T( 

I)-T(J):U$(I)«U$(J) 

688 L(J)-L:K$(J)-K$:0$(J)-0$:PI(J)-P:S1(J)-S:T(J)-T:U$(J)-U$ 

685 NEXT J 

618 NEXTI: RETURN 

615 PRINT'FOR ANOTHER NAME OR ADDRESS TYPE Y-YBS OR N-NO" 

628 X$-INKEY$:IFX$-""THEN628ELSERETURN 



STOCK MARKET 
SOFTWARE 

By H AH Trading Company for Mod. I. II, A HI TRS-80«s 

STOCK TRACKER™ times trades on individ- 
ual stocks and options. Uses a technical volume 
analysis. Completely objective. Gives buy, sell 
signals. 

MARKET TRACKER™ times tops & bottoms 
on the Dow Industrials; a composite of six tech- 
nical indicators. Some judgement required. 
Gives buy, sell signals. 
These two programs are accurate. 
Hundreds of satisfied users. 

ASK FOR THE EVIDENCE ! 

FOR MORE INFORMATION OR TO ORDER. CONTACT: 

H <* x5W WIPING C&VL&1NY 



POST OFFICE BOX 2354S 

PLEASANT HILL. CALIFORNIA 94523 

T«t«phon« 4IS/937-I030 



-223 



VISA ft MASTERCARD 



ORaod.T.Mof Rod* Shock 



HOW ACCEL2 WORKS 

TRS-80 Model I /III BASIC Compiler 

ACCEL2 uses a novel translation technique that keeps code growth down and insures 
highest compatibility with BASIC source programs while giving huge speedups Only a 
carefully chosen subset ol BASIC instructions is translated. The non-compilable state- 
ments are left in the compiled program in their original source form and at run-time are ac- 
tually given to the BASIC interpreter to execute. Program flow may flip into direct execution 
of the compiled machine instructions and then flop back to interpretation many times dur- 
ing execution 

Why Compilation improves performance 

* Name Resolution Term gnren lo Ihe process ol lOeniilyiog the value ol a variable given us 
name As a program runs, the interpreter builds a dictionary consisting ol a cham of items. 
each containing a variable name, data type and current value Every time a variable is to be 
resolved the interpreter must sequentially search this dictionary By contrast. ACCEL 2 builds 
the variable dictionary once at compile tune and therealter can refer to the variable names by 
direct address, with no run- time search 

'Line Resolution The interpreter has to lake the line number lollowing a GOTO or GOSUB 
convert it to binary, and then search the program sequentially lo find the target line At 
compile- time ACCEL 2 generates single machine-instructions for GOTO or G0SU8 using the 
actual address ol the target line. For the interpreter, both name resolution and line resolution 
get slower as the program gets more complex . whereas lor compiled code these two operations 
are independent of program size or number of variables 

'Computational Operations The interpreter must parse each statement every time, tind the 
one byte codes thai correspond lo the operations, look ahead to the next operator to establish 
the precedence rules and check lor data- type mismatch and conversion. Constants must be 
converted from character strings lo internal binary But under ACCEL2 constants are converted 
and embedded right in the Z80 instruction stream, and operations are translated once and lor 
all at compile time into sequences ol calls to ROM or the run-lime component INTEGER opera- 
tions are actually turned into directly executing straight-line 280 code! 

The result is a mixture of BASIC statements and machine language instructions, usually 
not more than IV? -2% times the size of the original but running much faster (can be 
50-100 times as fast with some programs) 

ACCEL2 32K TRS-80 Model I /III Compiles selected subset mall variable types, local and 
global compilation options, output save to ES/F wafer, disk under TRSDOS. NEWOOS. 
NEWD0S/80 

$88.95 + $2.00 shipping 



Developed in Britain 
Of Southern Soltware 



TRS-80 TRSDOS im Radio Shack 



ALLEN GfclDER SOFTWARE 
Box 11721 Mam Post Olhce 
San Francisco. CA 94101 
(415)387-3131 
i Stringy/ Floppy tmexaironmc NEWOOS tmApparat. inc 



Mastercharge/Visa 
CAadd6% 

W9 



.'Sea List ot Advertisers on page 402 
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BUSINESS 



To landlord or not to landlord: that is the calculation. 



Investment Property Analysis 



Leslie E. Sparks 
1014 Evergreen Drive 
Durham, NC 27712 



investment. A hard copy option is also 
available. 

Overview of the Program 

First, enter the data for the program 
from the keyboard by filling in a five-page 
menu. The data you enter will concern ex- 



penses, income, and capital costs of the 
Investment. When the menu is full and you 
are sure that the data are correct, you can 
initiate calculations by pressing Q. 

The program calculates the loan pay- 
ment schedule for the life of the invest- 
ment (not the life of the loan). It also does a 



The analysis of a real estate investment 
involves some rather tedious calcula- 
tions. For example, mortgage payment 
schedules must be calculated in order to 
find loan costs. You also need to figure 
present values of all the cash flows from 
investments in order to calculate their 
present worth. 

You can use tables to help with the cal- 
culations, but often the tables don't have 
the values you need. And if you have sev- 
eral investments to analyze, the use of 
tables soon becomes more work than you 
bargained for. The obvious thing to do is to 
let your TRS-80 do the tedious math for 
you. 

The program presented here is designed 
to do all the needed calculations to eval- 
uate an investment in rental property. It 
calculates the taxable and spendable 
rental income expected from the invest- 
ment, along with the expected capital 
gain. The program can handle both first 
and second mortgages, which can have 
both different interest rates and different 
lives. The life of the investment can be less 
than, greater than or equal to the life of 
either of the loans. 

The program presents a summary of the 
calculations which shows total rental in- 
come (after tax), total spendable income 
(after tax), capital gain profit, total profit 
and the total spendable profit from the 
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Program Listing 

1 REM ******************************************************* 
20 REM RENTAL PROPERTY INVESTMENT ANALYSIS BY L. E. SPARKS 
30 REM VERSION 2.0 19 JULY 1980 32K TRS-80 DISK BASIC 
40 REM ******************************************************* 

50 CLS 

60 CLEAR 1000 

7 PRINT 

80 PRINT STRINGS (63,"*") 

90 PRINT TAB (15) "RENTAL PROPERTY INVESTMENT ANALYSIS " 

100 PRINT TAB (15)" BY" 

110 PRINT TAB(15)" L. E. SPARKS VERSION 2.0" 

120 PRINT STRINGS (6 3,"*") 

130 GOSUB 7060 

140 PRINT STRINGS (64,"=") 

150 PRINT"ENTER PROPERTY IDENTIFICATION INFORMATION." 

160 LINEINPUT ZZS 

170 CLS 

180 PRINT "INITIALIZATION " 

190 DEFINT J,K 

200 DEFSTR F 

210 DIM' F(41),E(20),EF(20),FT(12),R(12),RY(12),NU(12),Z(30),EQ(2 

0) ,EY(20) ,DS(30) 

220 REM PI INTEREST PAID ON 1ST MORTGAGE P2 PRINCIPAL PAID 1ST 

P3 INTEREST PAID 2ND MORTGAGE P4 PRINCIPAL PAID 2ND 

230 DIM P1(35),P2(35),P3(35),P4(35) 

240 REM TX TAX PAID,RA AFTER TAX INCOME, CF CASH FLOW AFTER TAX 

250 DIM RX(30),RF(30),RZ(30),RT(30),RL(30),RI(30),RG{30) 

260 DIM TX(30),RA(30),CF(30),DF(30),SF(30) 

270 GOSUB 7350 

280 GOSUB1150 

290 JM - +1 

300 CLS 

310 GOSUB 3390 

320 IF JM = -1 THEN 280 

330 GOSUB 3860 

340 GOSUB 46 90 

350 PRINT"DO YOU WANT HARD COPY ?" 

360 GOSUB 410 

370 IF Y$="Y"THEN GOSUB56 30 

Program continues 



Program continued 

380 PRINT n DO YOU WANT TO DO ANOTHER ANALYSIS ?" 

390 GOSUB 410 

400 IF Y$="Y" THEN 280 ELSE END 

410 REM GET CHARACTER 

420 Y$=INKEY$:IF Y$=""THEN 420 ELSE IX=ASC(Y$) 

430 RETURN 

440 REM NUMERIC INPUT 

450 IC » JV 

460 IF IC = THEN IC =55 

470 V$=Y$ 

480 IF Y$="$" THEN V$="" 

490 IF Y$="," THEN V$="" 

500 Z$=Y$ 

510 REM 

520 PRINT§JP*64+IC,Z$;CHR$(140) ;" "; 

530 GOSUB 410 : 'GO GET A CHARACTER 

540 IF IX=13 RETURN : 'RETURN IF ENTER PRESSED 

550 IF IX = 8 THEN 560 ELSE 580 

560 IF LEN(V$) - THEN 580 

570 IF MID$(Z$,LEN(Z$) ,1) <> "," THEN V$« LEFTS (V$,LEN (V$)-l) 

580 IF IX» 8 THEN IF LEN(Z$)>0 THEN Z$=LEFT$ (Z$,LEN(Z$)-1) 

590 IF IX * 8 THEN 510 

IF IX>31 THEN Z$=Z$+Y$ 



600 

610 IF Y$« 



THEN 650 



620 
630 



890 
900 



IF Y$="$" THEN 650 

IF Y$«"%" THEN 650 
640 V$=V$+Y$ 
650 GCTO510 
660 STOP 

670 REM INSTRUCTION SUBROUTINE 
680 PRINT " MAY BE USED TO CHANGE PAGES. "; 
690 PRINT CHR$(91);" " ;CHR$ (92) ; " ";CHR$(93); 

ACTIVE . "; 

700 PRINT"USE G TO START CALCULATIONS. " ; 
710 PRINT"ENTER DATA TO CHANGE"; 
720 RETURN 

7 30 REM UPDATE INSTRUCTIONS 
740 PRINT @ 8 96, STRINGS (6 3,"*") ; 
750 PRINT 8JZ, STRINGS (6 3," "); 

760 PRINTe960,"USE ";CHR$(93); " FOR CORRECTIONS "; 
770 PRINT"ENTER REST OF ITEM AND <ENTER> TO CHANGE"; 
780 RETURN 

7 90 REM POINTER CONTROL 
800 PRINT§JP*64+JV,CHR$(94) ; 
810 GOSUB410:'GO GET A CHARACTER 
820 PRINTGJP*64+JV," "; 
830 ID=0 
840 JD=0 

850 IF IX=27 OR IX=91 OR IX=123THEN ID— 1 
860 IF IX=26 OR IX=10 OR IX=13 THEN ID-ID+1 
870 IF IX =8 THEN JD — JA ELSE IF IX=9 THEN JD-+JA 
880 JV=JV+JD 

IF JV>JM THEN JV=JN ELSE IF JV<JN THEN JV-JM 

IP=IP+ID 
910 IF IP<1 THEN IP=MX 
920 IF IP>MX THEN IP=1 
930 JP=IP+IJ 
940 RETURN 

950 REM POINTER CONTROL FOR INCOME SUB 
960 IF IP = 8 THEN JV = ELSE JV - IC 
970 PRINTGJP*64+JV,CHR$(94) ; 
980 GOSUB 410 

990 PRINT JP*64+JV," "; 
1000 ID = : JD = 
1010 IF IX = 27 OR IX = 91 OR IX 
26 OR IX - 10 OR IX 

8 THEN JD —14 

9 THEN JD ■ +14 
MX AND ID - -1 THEN IP 
+ ID 
+ JD 

1080 IF IP <1 THEN IP = MX 

1090 IF IP = 7 THEN IP = MX:JV = 

1100 IF IP > MX THEN IP = 1 

1110 IF IC >30 THEN IC » 16 

1120 IF IC < 16 THEN IC = 30 

1130 JP = IP + IJ 

1140 RETURN 

1150 REM PAGE 1 

1160 JP=6 

1170 IP=1 

1180 IJ =5:JV»28 

1190 IF JM = -1 THEN 2710 

1200 JN=28:JM»48:JA=20 

1210 CLS; PRINT: PRINT STRINGS (6 3, "«" 

* FIXED EXPENSES *" 



;CHR$(94) ;" ARE 



1020 IF IX 
1030 IF IX 
1040 IF IX 
1050 IF IP 
1060 IP = IP 
107 IC = IC 



123 THEN ID 
13 THEN ID ■ 



« -1 

+1 



IP -2: GOTO1080 



PRINT"* PAGE 1 OF 5 PAGES 
Program continues 



MMSFORTH VERSION 2.0: 
MORE FOR YOUR RADIO SHACK 
TRS-80 MODEL I OR MODEL III ! 

• MORE SPEED 

10-30 lima* tutor than Level II BASIC 

• MORE ROOM 

Very compact compiled coda plus VIRTUAL 
MEMORY makes your RAM act larger Variable 
number ol block butlers. 31 -char-unique word- 
names use only 4 bytes in header! 

• MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARO-plus 

Instruction set! 

Far more complete than most Forths: single 4 

double precision, arrays, string-handling, clock. 

more. 

• MORE EASE 

Excellent full-screen Editor, structured & 

modular programming 

Word search utility 

THE NOTEPAD letter writer 

Optimized for your TRS-80 with keyboard 

repeats, upper/lower case display driver, full 

ASCII, single- S double-width graphics, etc. 

• MORE POWER 

Forth operating system 

Interpreter AND compiler 

8080 Assembler 

(Z80 Assembler also available) 

Intermix 39- to 80-track disk drives 

Model III System cen read, write & run Model I 

diskettes! 

VIRTUAL I/O tor video end printer, disk and tape 

(10-Megabyte hard disk available) 




FORTH 



THE PROFESSIONAL FORTH 
FOR TRS-80 

(Over 2,000 systems in use) 

MMSFORTH Disk System V2.0 (requires 1 disk drive 4 
I6K RAM. 32K for Model III) 8128.88' 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Programming staff can provide advice, modifications 

and custom programs, to lit YOUR needs. 

MMSFORTH UTILITIES DISKETTE, includes FLOATING 
POINT MATH (L.2 BASIC ROM routines plus Complex 
numbers, Rectangular-Polar coordinate conversions. 
Degrees mode. more), plus a lull Forth-style Z80 ASSEM 
BLER; plus a powerful CROSS REFERENCER to list 
Forth words by block and line All on one diskette 
(requires MMSFORTH V2.0. 1 drive 4 32K RAM) 838.85* 

FORTMCOM: communications package provides RS 232 
driver, dumb terminal mode, transfer of FORTH blocks. 
and host mode to operate a remote TRS-80 (requires 
MMSFORTH V2.0. t drive 4 32K RAM) $38.85* 

THE DATAHANDLER VI 2: a very sophisticated data- 
base management system operable by non-pro- 
grammers (requires MMSFORTH V? 0. 1 drive 4 32K 

ram) sse.es* 

MMSFORTH GAMES DISKETTE: real-time graphics 4 
board games w/source code Includes BREAKFORTH. 
CRASHFORTH, CRYPTOOUOTE, FREEWAY, OTHELLO 
4 TICTACFORTH (requires MMSFORTH V2.0. 1 drive 4 
32K RAM) 838.8S* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL without Appendices, lor 
non-owners $17.50* 

STARTING FORTH - best companion to our man- 
ual $15.85* 

INVITATION TO FORTH - detailed beginner book on 
flgFORTH $17.50* 

THREADED INTERPRETIVE LANGUAGES advanced, 

excellent analysis ol MMSFORTHiike lan- 
guage $18.88* 

PROGRAM DESIGN 4 CONSTRUCTION • Intro, to struc- 
tured programming, good for Forth . $13.85* 

FORTH -79 STANDARD MANUAL official reference to 
79-STANDAR0 word set, etc $13.88* 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug. 1880) 
we stock this collector's item tor Forth users and begin- 
ners 84.00* 

* - ORDERING INFORMATION: Soltware prices include 
manuals and require signing ol a single system, single- 
user license SPECIFY lor Model I or Model III! Add 
$2 .00 S/H plus $3.00 per M MSFORTH and $ 1 .00 per addi- 
tional book. Mass orders add 5V. tax. Foreign orders 
add 30%. UPS COD. VISA 4 M/C accepted, no unpaid 
purchase orders, pleasa. 

Sand SASE lor free MMSfORTH information 
Good dealers sought 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (M11) 

61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 

• 112 



^■See List of Advertisers on page 402 
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Computer Information Exchange 
Box 159 (714) 757-4849 ^.; 
San Luis Rev CA 92068 



Shack- 80 Model -1 Users: 
Restore Reliability 

Tired of spontaneous re-booting, "loss" of 
memory, UL ERROR on programs that are 
correct. "BAD RAM" or ROM that is good and 
other symptoms of dirty edge connectors? 

CIE Cramol in cleaningkit lets you quickly, 
safely strip away coatings of high -resistance 
oxide films built upon ..S-80's non-gold- 
plated edge fingers, and coat them to reduce 
further buildup. Contains one bottle cleaner, 
one lubricant/sealer. 
CIE Cramolin $8.95 ($9.49 CA) 

Silver Solder Rejuvinates 
Shack -80 Edge Connectors 

Ratty Radio Shack edge fingers require 
frequent Cramolin cleaning for system 
reliability. Tandy did not gold plate them, but 
after you silver them you can tug cables and 
jar computer without system reboot! 

Kit contains special high-quality flux and 
16" (about 1.5 oz) of solder. 5-6% silver, 
balance tin (contains no cadmium, zinc, or 
lead). Caution: do not resolder fingers with 
ordinary solder, or system will be totally 
unusable! 
CIE $4.50 ($4.77 CA) 

Media Buys: 

Diskettes 

5" Unbranded, single-density. 10, in 
envelopes, fully guaranteed $19.95* 
5" Memorex sngl dens., box 10 $24.75* 
5" Memorex dbl. dens., box 10 $26.55* 
5" Dysan, plastic box of 10, double -density 
ultra-reliable $44.95* 
55* 
98* 
75* 
95* 
46* 



5" Wabash SSSO with hub ring $26 
5" Wabash DSDD with hub ring $$38 
Reinforcements, 50 rings for 5" $7 
Ring tools- -apply reinforcements $4 
Cleaning kits. 3M or FD, 2 disks $22 



GUARANTY E 

All CIE disks qiiar dntpf-r) 

If you gel a bad disk, CIE will replace it 



Hardware: 

Percom, LNDoubler Savings 

DOUBLE DENSITY attachments 

$153.50/$157.50/$207* 
Double disk storage with either Percom or 
LNW Research plug- in adapters. No 
soldering. Percom Doubter 2 comes with 
DoubleDOS TRSDOS varient. is $153.50*. 
LNDoubler 1 includes DOS-plus deluxe 
operating system. LNDoubler 5/8, with 
operating system, allows use of double 
density with either 5" or 8" drives! .just 

Lowest Prices 
On Disk Drives! 

TEAC40-track single/double density, single 
headed (writes, reads on one side of disk), 
with incredible 1-yr. factory guarantee! 
Case, power supply disassembled for 
shipping, just insert 6 screws. Exclusive: no 
exlender cable needed! $269 # . 

•0-TRACK. 1-HEADED $395» 

80-TRACK. 2-HEADED (dbl sided) $550» 
Bare 40 -track, unpowered $215* 

Bare-80-track $225* 

SOFTWARE to 50% off 

Leading brands including Acorn, Allen 
Gelder, Alternate Source, Apparat, 
Blechman Enterprises. Breeze Computing. 
CIE. Data Soft, Dorsett, Edu Ware, Ellis 
Computing, Hexagon Systems, Micro Clinic, 
Micro Works, Microsoft, Modular Software, 
Nepenthe, Personal Computer Service. 
ProSoft, and Ramware. 
BOOKS, leading publishers, 10% off 



Discounts: 

•prices CIE net, including 10't discount 

for S50or more total order. 3 or more items 

nominal shipping charge on all but books and 

softwre 



S/YR' 



$###, ##t.**";E 



Program continued 

1220 PRINT STRINGS (6 3,"=") 

1230 PRINT " ITEM " ;TAB( 40) ; "$/MO 

1240 PRINT STRINGS (63,"-") 

1250 FOR J = 1 TO 6 

1260 PRINT" "; 

127 PRINT USING F (J) ;EF(J) ; : PRINT USING " 

Y(J) 

1280 NEXT J 

1290 JZ = 832 

1300 PRINT@832,"> "; 

1310 GOSUB670 : 'PRINT INSTRUCIONS 

1320 IC =45:MX=5 

1330 GOSUB 790 

1340 IF IDO0 THEN 1330 ELSE ID-1 

1350 IF IX<32 THEN 1330 

1360 IF Y$="G" THEN RETURN 

1370 IF Y$-">" THEN 1580 

1380 IF Y$ - "<" THEN 1150 

1390 GOSUB730 

1400 GOSUB 1480 

1410 GOSUB 1540 

1420 IP-IP+1 

1430 IF IP<1 THEN IP-MX 

1440 IF IP>MX THEN IP-1 

1450 JP-IP+IJ 

1460 CLS 

1470 GOTO1210 

1480 REM UPDATE INFORMATION 

1490 GOSUB 440 

1500 IF JV=JM THEN EY (IP) -VAL(V$) :EF(IP) ■EY(IP)/12:RETURN 

1510 EF(IP) = VAL(VS) 

1520 EY(IP)-12.*EF(IP) 

1530 RETURN 

1540 REM CALCULATE TOTAL COSTS 

1550 EF(6) = EF(1)+EF(2)+EF(3)+EF(4)+EF(5) 

1560 EY(6) - EY(1)+EY(2)+EY(3)+EY(4)+EY(5) 

157 RETURN 

1580 REM PAGE 2 

1590 IP=l:JP=3:IJ-2 

1600 JV-28:JN-28:JM«48:JA-20 

1610 CLS 

1620 PRINT "** PAGE 2 OF 5 PAGES ** OPERATING COSTS •«" 

1630 PRINT"ITEM";TAB(33);"$/MO $/YR" 

1640 PRINT STRING$(63,"-") 

1650 FOR J- 1 TO 12 

1660 PRINT USING F(J+6) ; E(J) ; : PRINT USING " $#♦#,#♦#.##"; 

EQ(J) 

1670 NEXT J 

1680 JZ « 896 +64 

1690 PRINT @ 896, "< OR >"j 

17 00 MX-lli IC -45 

1710 GOSUB670 

17 20 GOSUB7 90 

1730 IF IDO0 THEN 1720 ELSE ID-1 

1740 IF IX<32 THEN 1720 

17 50 GOSUB 7 30 

1760 IF Y$="G" THEN RETURN 

1770 IF Y$="<" THEN 1150 

1780 IF Y$=">" THEN 2000 

17 90 GOSUB 1860 

1800 GOSUB1920 

1810 IP=IP+1 

1820 IF IP<1 THEN IP-MX 

1830 IF IP>MX THEN IP-1 

1840 JP = IP + IJ 

1850 GOTO 1610 

1860 REM UPDATE COSTS 

1870 GOSUB 440 

1880 IF JV-JM THEN EQ( IP) «VAL(V$) :E(IP)-EQ(IP)/12. :RETURN 

1890 E(IP)=VAL(V$) 

1900 EQ(IP)=E(IP)*12. 

1910 RETURN 

1920 REM SUM TOTAL EXPANSES 

1930 E(12)=0 

1940 EQ(12)-0 

1950 FOR JJ = 1 TO 11 

1960 E(12)-E(12)+E(JJ) 

1970 EQ(12) - EQ(12)+EQ(JJ) 

1980 NEXT JJ 

1990 RETURN 

2000 REM INCOME ESTIMATES GO HERE 

2010 IJ - 2 

2020 MX - 8 

2030 IP-1 

2040 IF IP = MX THEN 2590 

2050 IC = 16 

Program continuea 
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Program continued 

2060 JP = 3 

2070 JV=28:JA=20:JN=28:JM=48 

2080 CLS 

2090 IF IP = MX THEN JV = ELSE JV « IC 

2100 PRINT "*** PAGE 3 OF 5 PAGES *** INCOME ESTIMATES ***" 

2110 PRINT STRING$(63,"=") 

2120 PRINT"TYPE OF UNIT " ;TAB(18) ; "• UNITS" ; TAB (30) ; "RENT $/MO" ; 

TAB (50) ;"RENT $ YR" 

2130 FOR J « 1 TO NT 

2140 PRINT " 

2150 PRINT FT(J) ;TAB(20) ;NU(J) ;TAB(30) ; 

2160 PRINT USING "$###,##«. M" ;R( J) ; : PRINT TAB(45); 

2170 PRINT USING F(0);RY(J) 

2180 NEXT J 

2190 PRINT "**** TOTAL " ;TAB( 20) ;NS;TAB(30) ; 

2200 PRINT USING "$#,•#####.##" ;RM; : PRINT TAB(45); 

2210 PRINT USING F(0)jRY 

2220 PRINT" "; 

2230 PRINT USING F(41);VA 

2240 PRINT"****";: PRINT USING " DOLLAR COST OF VACANCY $###,## 

l.##/YR";VA*RY/100. 

2250 RG = RY*(100.-VA)/100 

2260 PRINT "****" ;:PRINTUSING" ADJUSTED GROSS RENTS $#,##♦#*# 

•##/YR";RG:PRINT STRING? (63, "-") 

227 PRINT ? 896, "< & > MAY BE USED TO CHANGE PAGES "; 

2280 PRINT CHR$(91);" " ;CHR$ (92) ; " ";CHR$(93); " ";CHR$(94)j" AR 

E ACTIVE"; 

2290 PRINT " ENTER NEW DATA TO CHANGE. PRESS G TO START CALCULA 

TIONS "; 

2300 GOSUB 950 

2310 MX = 8:IJ=2 

2320 IF ID <> THEN 2300 ELSE ID = 1 

2330 IF IX < 31 THEN 2300 

2340 IF Y$ = "G" THEN RETURN 

2350 IF Y$ ="<" THEN 1580 

2360 IF Y$ = ">" THEN 2710 

2370 JZ = 832 

2380 GOSUB7 30 

2390 GOSUB 2500 

2400 GOSUB 26 00 

2410 IF IP = MX THEN 2440 

2420 IF IC <30 THEN IC = 30 :GOTO2080 

2430 IF IC > 16 THEN IC =16 

2440 IP «• IP + 1 

2450 IF IP >MX THEN IP =1 

2460 IF IP < 1 THEN IP =MX 

2470 JP = IP+IJ 

2480 IF IP = 7 THEN IP = MX 

2490 GOTO 2080 

2500 REM DATA ENTRY 

2510 GOSUB 440 

2520 IF IP - MX THEN 2590 

2530 IF IC " 30 THEN 2560 

2540 NU(IP) = VAL(V$) 

2550 GOTO2570 

2560 R(IP)-VAL(V$) 

2570 RY(IP) = R(IP)*NU(IP)*12 

2580 RETURN 

2590 VA = VAL(V$): IC - 16 : RETURN 

2600 REM SUM UP TOTALS 

2610 NS -0 

2620 RM = 

26 30 RY =0 

26 40 FOR JJ = 1 TO NT 

2650 NS - NS+NU(JJ) 

2660 RM ■ RM + NU(JJ)*R(JJ) 

2670 RY = RY + RY (JJ) 

26 80 NEXT JJ 

26 90 RETURN 
2700 END 
2710 REM ENTER MORTGAGE COSTS ETC 

27 20 CLS 

2~'d JV=0:JA=0:JM=0:JN-0 
27s3 IC = 60 
2750 IP = 1 

= 12 
= 1 

2 

896+64 



REM TO ENTER RENTS 



27 60 MX 
2770 IJ 
27 80 JP 

27 90 JZ 
2800 CLS 

2810 PRINT "**** PAGE 4 OF 5 **** 
2820 PRINT STRINGS (6 3, "«") 

28 30 FOR JJ- 1 TO 12 
2840 PRINT " "; 

2850 PRINT USING F (JJ+18) ; Z ( JJ) 
2860 NEXT JJ 



INVESTMENT DATA ****• 



Program continues 



REMsoft, Inc. 

Let Your TRS-80* 
Teach You 

ASSEMBLY LANGUAGE 

Tired ol buying book after book on assembly 
language programming and still not knowing your 
POP from your PUSH' 

REMsoft proudly announces a more effi- 
cient way. using your own TRS-80* . to learn the 
fundamentals of assembly language programming 
-at YOUR pace and at YOUR convenience 

Our unique package, 'INTRODUCTION TO TRS-80* 
ASSEMBLY PROGRAMMING", will provide you with 
the following: 

• Ten 4 5- minute lessons on audio cassettes 

• A driver program to make your TRS-80* video 
monitor serve as a blackboard for the instructor 

• A display program for each lesson to provide 
illustration and reinlorcement for what you are 
hearing 

• A textbook on TRS-80* Assembly Language 
Programming 

• Step-by-step dissection of complete and useful 
routines to test memory and to gain direct control 
over the keyboard, video monitor, and printer 

• How to access and use powerful routines in your 
Level II ROM 

This course was developed and recorded by 
Joseph E Willis and is based on the successful 
series of courses he has taught at Meta Technologies 
Corporation, the Radio Shack Computer Center, and 
other locations in Northern Ohio. The minimum 
system required is a Level II. 16K RAM 

REMASSEM-1 only $69.95 



LEARN TRS-80® 

ASSEMBLY LANGUAGE 

DISK I/O 

Your disk system and you can really step out with 
REMSOfTs Educational Module REMDISK-1 a 
short course revealing the details ot DISK I/O 
PROGRAMMING using assembly language 

Using the same format as Our extremely popular 
introduction to assembly language programming, 
this "ASSEMBLY LANGUAGE DISK I/O PROGRAM- 
MING* course includes 

• Two 45-mmute lessons on audio cassette 

• A driver program to make your TRS-80*' video 
monitor serve as a blackboard »or the instructor 

• A display program lor each lesson to provide 
illustration and reinforcement for what you are 
hearing 

• A booklet ol comprehensive, fully-commented 
program listings illustrating sequential file I/O. 
random-access tile I/O and track and sector I/O 

• A diskette with machine-readable source codes 
tor all programs discussed, in both Radio Shack 
EOTASM and Macro formats 

• Routines to convert from one assembler format 
to the other 

This course was developed and recorded by 
Joseph E Willis, tor the student with experience 
in assembly language programming, it is an mter- 
mediate-to advanced -level course Minimum hard- 
ware required is a Model I Level II. 16 K RAM one 
disk drive system 



REMDISK-1 



only $29.95 




Dealer inquiries invited 

REMsoft. inc. 

571 E 185 St. 

Euclid. Ohio 44119 

(216)531-1338 



% 



wo 



Incud* Si 50 'or slipping and handing 
Ohio r»s cents add 5'/»% sales tai 

TRS-80" is a trademark pi the laid* Ccp 



•See List ol Advertisers on page 402 



80 Microcomputing, November 1981 • 147 



". . . if you have several investments to analyze, 
the use of tables soon becomes 
more work than you bargained for." 



Program continued 

2870 PRINT e 896, "< OR > "; 

2880 MX - 12 : IC - 55 

2890 GOSUB 670 

2900 GOSUB 7 90 

2910 IP ID <> THEN 2900 ELSE ID 

2920 IP IX < 32 THEN 2900 

2930 GOSUB 7 30 

2940 IF Y$ ■= "G" THEN RETURN 

2950 IF Y$ - ">" THEN 3070 

2960 IF Y$ = "<" THEN 2000 

2970 GOSUB 3030 

2980 IP ■ IP + 1 

2990 IF IP > MX THEN IP = 1 

3000 IF IP < 1 THEN IP - MX 

3010 JP - IP + IJ 

3020 GOTO 2800 

3030 REM UPDATE INFORMATION 

3040 GOSUB 440 

3050 Z(IP) = VAL(V$) 

3060 RETURN 

307 REM MORTGAGE ETC DATA CONT. 

3080 IP = 1 

10 

2 



3090 MX 

3100 JP 

3110 JZ = 896+64 

3120 CLS 

3130 PRINT "***** PAGE 5 OF 



5 PAGES ***** INVESTMENT DATA CONT * 



3140 PRINT STRING$(63,"«") 

3150 FOR J = 1 TO MX 

3160 PRINT " "; 

3170 PRINT USING F(J+30) ; Z (J+12) 

3180 NEXT J 

3190 PRINT g 896, "< "> 

3200 IC - 55 

3210 GOSUB 670 

3220 GOSUB 7 90 

3230 IF IDO THEN 3220 ELSE ID - 1 

3240 IF IX < 32 THEN 3220 

3250 GOSUB 730 

3260 IF Y$ ="G" THEN RETURN 

3270 IF Y$ = "<" THEN 2710 

3280 IF Y$ »">■ THEN 3070 

3290 GOSUB 3350 

3300 IP = IP+1 

3310 IF IP > MX THEN IP » 1 

3320 IF IP < 1 THEN IP - MX 

3330 JP - IP + IJ 

3340 GOTO 3120 

3350 REM UPDATE INFORMATION 

3360 GOSUB 440 

3370 Z(IP+12) - VAL(V$) 

3380 RETURN 

3390 REM CHECK DATA INPUT 

3400 SC»Z(1)-Z(2)-Z(3)-Z(7)+Z(11)+Z(12) 

3410 CLS 

3420 PRINT STRING$(64,"*") 

3430 IF SC <> THEN PRINT "POSSIBLE ERROR IN DATA INPUT"ELSE 35 

10 

3440 PRINT"THE SUM OF THE DOWN PAYMENT THE FIRST AND SECOND MORT 

GAGES" 

3450 PRINT"DOES NOT EQUAL THE PURCHASE PRICE PLUS CLOSING COSTS" 

3460 PRINT "DO YOU WISH TO REVIEW DATA ?" 

3470 GOSUB 410 

3480 IF Y$ = "N" THEN 3510 

3490 JM - -1 

3500 RETURN 

3510 REM CHECK TO SEE IF INTEREST RATES ARE NON ZER0 

3520 CLS 

3530 PRINT STRING${64,"*") 

3540 IF Z(4) = AND Z{3) > THEN 3550 ELSE 3600 

3550 PRINT'POSSIBLE ERROR. INTEREST RATE FOR FIRST" 

3560 PRINT"MORTGAGE IS ZERO. " 

3570 PRINT"DO YOU WISH TO REVIEW DATA?" 

3580 GOSUB 410 

3590 IF Y$="Y" THEN JM - -1: RETURN 

3600 IF Z(7)>0 AND Z(8) - THEN 3610 ELSE 3660 



Property tax $4,400/yr 

Insurance $l00/mo 

License $6007yr 

Replacement reserves $75/mo 

Other fixed exp $30/mo 

Janitor $450fmo 

Soc aec, unemp $45/mo 

Garbage collection $25/mo 

Utilities $25/mo 

Supplies $25/mo 

Maintenance $«00/yr 

Advertising $40/mo 

Management SSOO/mo 

Purchase price $380,000 

Down payment $130,000 

1st mortgage- $200,00 

2nd mortgage' $50,000 

interst rate 12% both 

Life 1st 25 years 

Ufa 2nd 10 years 

Payments per year 12 for both 

Life of Investment 5 years 

Life of bldg for dep — 33 years 

Per cent for land 20% 

Esclatlon for Investment 15% per year 

Esclatlon for rent g% per year 

Esclatlon for expense- 10% per year 

Discount rate ■ 9% 

Marginal Income tax 50% 

Capital gains rate- 25% 

Cost of setting 6% of selling price 

2 one bedroom unfur rent at $400Vmo, 
2 two bedroom fur at $475/mo 
4 three bedroom fur at $635/mo. 
Vacancy allowance = 6% 

Fig. 1. Data for Example. 



year by year calculation of the income and 
expenses (escalated as specified by the 
user) for the life of the Investment. Straight 
line depreciation is also used as part of the 
taxable income calculation. Both taxable 
and spendable income are calculated. 

At the end of the last year of the invest- 
ment, the program calculates the ex- 
pected selling price (based on a user- 
specified escalation factor), capital gains 
tax, total rental income, total capital gain, 
and total profit from the Investment. The 
program also calculates the present value 
of various cash flows from the investment 
and compares the present value of the 



* Page 1 of 5 pages * Fixed Expenses * 



Program continues 



Item 



$/Mo 



Property Tax — $ 0.00 

Insurance $ 0.00 

License S 0.00 

Replacement Reserves $ 0.00 

Other Fixed Expenses $ 0.00 

Total Fixed Expenses $ 0.00 



$m 

0.00 
0.00 
0.00 
0.00 
0.00 
0.00 



> May Be Used To Change Pages. H— • Are Active. Use Q 
To Start Calculations. Enter Data To change 

Fig. 1. First Page of Menu, Fixed Ex- 
penses. 
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• • Page 2 of 5 pages * * Operating Costs * * 

Item S/Mo S/Yr 

Janitor -$ 0.00 $ 0.00 

Gardener $ 0.00 $ 0.00 

Soc. Security & Unemp $ 0.00 $ 0.00 

Garbage Collection- - $ 0.00 S 0.00 

Utilities $ 0.00 $ 0.00 

Supplies $ 0.00 $ 0.00 

Maintenance $ 0.00 $ 0.00 

Advertising $ 0.00 $ 0.00 

Management $ o.OO $ 0.00 

Free Rent (Mgr Janitor) $ 0.00 $ 0.00 

Other Operating Expenses - S 0.00 $ 0.00 

< OR > May Be Used to Change Pages, u— * Are Active. 
Use G to Start Calculations. Enter Data to Change 

Fig. 2. Page 2 of Menu, Operating Costs. 

total profit with the amount of the down 
payment. If the total profit from the invest- 
ment is less than the down payment, the 
program prints out a message calling at- 
tention to that fact. The program also 
prints out a message if the spendable In- 
come from the Investment is negative. This 
message alerts the user that money must 
be taken from savings or borrowed to keep 
the investment going. 

After the summary results are dis- 
played, you are asked if you wish to see de- 
tailed results for each year. If you do, the 
income, expenses, and tax paid for each 
year are displayed. 

If the spendable income for any year is 
negative, a message is printed to alert you 
that the investment is not paying for itself. 
If the taxable income is negative, a 
message is printed to inform you that 
there is a tax loss that can be used to 
shelter other incomes. 

If you do not want to see the yearly 
details, you will be asked if you want a 
printout of the calculations. If you do, the 
input data and all the calculated results 
are printed on the line printer. 

After the results of the last year are 





Type of Unit 


• Units 


Rent S/Mo 


Rent $ Yr 


1 Bed Fur - 





S 


0.00 


s 


0.00 


1 Bed Unfur 





$ 


0.00 


1 


0.00 


2 Bed Fur 





$ 


0.00 


$ 


0.00 


2 Bed Unfur 





$ 


0.00 


s 


0.00 


3 Bed Fur 





$ 


0.00 


$ 


0.00 


3 Bed Unfur 





$ 


0.00 


$ 


0.00 


••••Total 





$ 


0.00 


s 


0.00 



Allowance For Vacancies As % Of Rents— 0.00% 
" * * Dollar Cost of Vacancy * 0.00/Yr 
* • ' • Adjusted Gross Rents S 0.00/Yr 



< & > May Be Used To Change Pages u— — Are Active 
Enter New Data To Change. Press G To Start Calcula- 
tions 

Fig. 3. Page 3 of Menu, Income Estimates. 



"This message alerts the user 
that money must be taken from savings. . . " 



Program continued 

3610 PRINT"POSSIBLE ERROR." 

3620 PRINT" INTEREST RATE FOR SECOND MORTGAGE IS ZERO." 

3630 PRINT "DO YOU WISH TO REVIEW DATA ?" 

3640 GOSUB 410 

3650 If Y$ ="Y" THEN JM =-1: RETURN 

3660 REM CHECK TO SEE IF NUMBER OF PAYMENTS ENTERED 

3670 IF Z(3)>3 AND Z(5) >0 THEN 3710 

3680 PRINT"POSSIBLE ERROR IN INPUT DATA" 

3690 PRINT "LIFE OF 1ST MORTGAGE IS 0. DO YOU WISH TO REVIEW DAT 

A?" 

3700 GOSUB410:IF Y$="Y" THEN JM = -1: RETURN 

3710 IF Z(6) >0 THEN 3760 

3720 PRINT "POSSIBLE ERROR IN INPUT DATA!" 

37 30 PRINT "NUMBER OF LOAN PAYMENTS PER YEAR IS 0. 

3740 PRINT "DO YOU WISH TO REVIE DATA ?" 

3750 GOSUB 410 : IF Y$="Y" THEN JM =-1: RETURN 

3760 IF Z(7)>0 AND Z(9)>0 AND Z(10) > THEN RETURN 

3770 IF Z(9)> THEN 3810 ELSE PRINT "POSSIBLE ERROR IN INPUT DA 

TA" 

3780 PRINT "LIFE OF SECOND MORTGAGE IS 0. DO YOU WISH TO REVIEW 

DATA?" 

37 90 GOSUB 410 

3800 IF Y$="Y" THEN JM =-l:RETURN 

3810 IF Z(10)>0 THEN RETURN ELSE PRINT "POSSIBE ERROR IN INPUT D 

ATA." 

3820 PRINT"THE NUMBER OF LOAN PAYMENTS PER YEAR IS 0" 

3830 PRINT "DO YOU WISH TO REVIEW DATA?" : GOSUB 410 

3840 IF Y$="Y" THEN JM=-1 

3850 RETURN 

3860 REM SET UP TO CALCULATE PAYMENT SCHEDULE 

3870 REM CHECK TO SEE IF THERE IS FIRST MORTGAGE 

3880 IF Z(3)=0 THEN 4270 

3890 REM NOW AMORIZE LOAN 

3900 CLS 

3910 PRINT"PLEASE WAIT IT WILL TAKE 1 TO 2 MINUTES FOR CALCULATI 

ONS" 

3920 PRINT"* FIRST MORTGAGE CALCULATIONS " 

3930 REM XI IS INTEREST RATE PER PERIOD 

3940 X1=Z(4)/Z(6)/100:REM INTEREST PER PERIOD 

3950 V=(X1+1.0000) I (Z(6) *Z(5) ) 

3960 P-X1*V*Z(3)/(V-1.) 

3970 REM NOW CALCULATE PAYMENT SCHEDULE 

3980 S=0 

3990 Sl-0 

4000 N3-1 

4010 S2=0 

4020 A»Z(3) 

4030 Jl=l 

4040 N2«Z(6)*Z(5) 

4050 IF N2>Z(6)*Z(13) THEN N2=Z (6 ) *Z ( 1 3) : ' LIMIT CALCULATION TO L 

IFE OF INVESTMENT 

4060 B1=0:' Bl-BALANCE ON FIRST MORTGAGE AT END OF N2 PERIODS 

4070 P1(J1)=0 

4080 P2(J1)=0 

4090 J2=l 

4100 X2= INT(X1*A*100)/100 : REM INTEREST TO NEAREST CENT 

4110 PP=P-X/ 

4120 P2(J1)=P2(J1)+PP 

4130 P1(J1)=P1(J1)+X2 

4140 S-S+PP 

4150 A=A-PP 

4160 IF N3=N? THEN 4240 :REM HAVE FINISHED PAYMENT SCHEDULE 

4170 IF J2 --■■ o' THEN 4210 :REM HAVE COMPLETED 1 YEAR OF CALCULA 

TION 

4180 N3-N3+1 

4190 J2=J2'I 

4200 GGTO410C 

4210 Jl-Jl+1 

4220 N3=N3+1 

4230 GOTO 407 

4240 REM FINISHED WITH FIRST MORTGAGE 

4250 B1«A:IF Bl<0 THEN B1=0 

4260 A=0 

427 REM NOW DO SECOND MORTGAGE 

4280 IF Z(7)=0 THEN 4670 

4290 REM NOW AMORIZE LOAN 

4300 CLS 

Program continues 
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". . . unlike depreciation of the building, 
depreciation of the furnishings 
is a real out-of-pocket expense." 



Program continued 

4310 PRINT"PLEASE WAIT IT WILL TAKE 1 TO 2 MINUTES FOR CALCULATI 

ONS" 

4320 PRINT "** SECOND MORTGAGE CALCULATIONS" 

4330 REM XI IS INTEREST RATE PER MONTH 

4340 X1«Z(8)/Z(10)/100. 

4350 V=(X1+1.0000) [ (Z(10)*Z(9) ) 

4360 P=Xl*V*Z(7)/(V-l.) 

437 REM NOW CALCULATE PAYMENT SCHEDULE 



4380 


S«0 


4390 


S1>0 


4400 


N3 = l 


4410 


S2-0 


4420 


A=Z(7) 


4430 


Jl-1 


4440 


FOR J « 1 


4450 


N2-Z(9)*Z 



TO Z(9 ) :P3(J)»0:P4(J)»0:NEXT J 
(10) 

4460 IF N2>Z(10)*Z(13) THEN N2-Z (10) *Z (13) 
4470 B2=0: 'B2-BALANCE ON SECOND MORTGAGE 
4480 P3(J1)=0 
4490 P4(J1)=0 
4500 J2=l 

4510 X2= INT(X1*A*100)/100 : REM INTEREST TO NEAREST CENT 
4520 PP-P-X2 
4530 P4(J1)=P4(J1)+PP 
4540 P3(Jl)=P3(Jl)+X2 
4550 S-S+PP 
4560 A-A-PP 

4570 IF N3=N2 THEN 4650 :REM HAVE FINISHED PAYMENT SCHEDULE 
4580 IF J2=Z(10) THEN 4620 :REM HAVE COMPLETED 1 YEAR OF CALCUL 
ATION 

4590 N3-N3+1 
4600 J2-J2+1 
4610 GOTO4510 
4620 Jl-Jl+1 
4630 N3=N3+1 
4640 GOTO 4480 
4650 REM FINISHED 
4660 B2=A:IF B2<0 THEN B2-0 
4670 REM ALL LOANS TAKEN CARE OF 
4680 RETURN 

4690 REM NOW DO YEAR BY YEAR CALCULATION 
4700 DF-0:TR-0:TP-0:PQ-0iDS-0 

4710 DR - 1+Z(20)/100.: 'DISCOUNT RATE FACTOR 
4720 N%"INT(Z(13) ) : 'LIFE OF INVESTMENT 

4730 DP=Z(1)*(1-Z(15)/100.)/Z(14) : 'STRAIGHT LINE DEPRECIATION 
4740 EY«1+Z(18)/100.: 'ESCLATION FOR EXPENSES 
4750 EX- 1 +Z(17)/100: 'ESCLATION FOR INCOME 
4760 X9-EY(6) 
4770 X8«EQ(12) 
4780 ZT = Z(21)/100. 
4790 EQ=0 

'TOTAL INTEREST PAID 

■TOTAL AFTER TAX SPENDABLE INCOME 

1 TO N% 

RG*EX[ (J-l) : 'ADJUSTED GROSS INCOME ESCLATION LAG 



'PRESENT VALUE OF PRINCIPAL 



4800 


TI = : 


4810 


SI - : 


4820 


FOR J = 


4830 


RX(J) 


S 




4840 


RF(J) 


4850 


RZ(J) 


4860 


RL(J) 



'GROSS INC 



X9*EY[J: 'FIXED EXPENSES 

X8*EY [J: 'OPERATING EXPENSES 

P1(J)+P2(J)+P3(J)+P4(J) : 'LOAN PAYMENTS PRINCIPAL 
+ INTEREST 
4870 PQ - PQ+(P2(J)+P4(J))*DR[-J 
PAYMENTS 

4880 RI(J) - PI (J) +P3 (J) : 'INTEREST PAID FOR YEAR 
4890 TI = TI + RI(J) : "TOTAL INTEREST PAID TO DATE 
4900 RG(J) = RX(J) - RF(J) - RZ(J) - RL(J) - Z(23) 
OME 

4910 RT(J) = RX(J) - RF(J) - RZ(J) - RI (J) - DP - Z(23):'TAXA 
BLE INCOME 

4920 IF RT(J) < THEN AL = AL + RT(J) :GOTO4980 
4930 IF AL > RT(J) THEN RT(J) - 0:AL = AL - RT(J) :GOTO4980 
4940 IF AL> THEN RT(J) = RT (J) -AL: 'ADJUST FOR PREVIOUS LOSS 
4950 TX(J) - ZT*RT(J) : 'TAX PAID 
4960 RA(J) = RT(J)-TX(J) ! 'AFTER TAX PROFIT 
4970 GOTO 5000 
4980 TX(J)-0 
4990 RA(J)»RT(J) 
5000 CF(J) = RA(J)+DP 

Program continues 



printed or if you decline the printout op- 
tion, you will be asked if you want to 
analyze another investment. If you do, the 
program returns to page one of the inpul 
menu. Note that all the previously entered 
data are still in the program. Thus, if you 
want to look at the same investment but 
with a different interest rate, just change 
the interest rate. You do not need to 
reenter all the data. You may Initiate 
calculations for the next investment at any 
time by pressing Q. 

Input 

Data input is handled by filling In a five- 
page menu. The information required for 
each of the five pages is shown in Figs. 1 
through 5. You can move from page to 
page using the < and > keys. The > key 
allows you to go to the next page in the 
menu while the < key returns you to the 
previous page. Note that the > page is the 
only key active for page 1 and the < key is 
the only key active for page 5. 

The particular data item being entered is 
indicated by the position of the right arrow 
(which is used as a marker) on the CRT. 
You can move around the menu pages by 
using the four arrows on the keyboard. 
Each arrow moves the marker arrow on the 
CRT in the same direction that the arrow 
points. For example, the up arrow moves 
the marker on the CRT up. 

The first page is used to enter data for 
fixed expenses. Replacement reserves are 
the monies that you should set aside each 
month or each year to ensure that there is 
money to replace such items as furnishings 
in the rental property. Basically this is the 
same as an account for depreciation of the 
furnishings of the property. It is shown as a 
separate expense because, unlike depreci- 
ation of the building, depreciation of the fur- 
nishings is a real out-of-pocket expense. It 
is highly probable you will need to replace 
some of the furnishings during the life of 
the investment and money that is set aside 
can handle this. This handling of the depre- 
ciation of the furnishing may not meet IRS 
standards, but it is realistic and the proper 
way to handle it for analysis purposes. 

The second page of the menu Is for 
operating expenses. These are expenses 
over which you have some control. You 
can get rid of the gardener, for example if 
things get tough. The Items here are 
straightforward and do not require much 
discussion. The main thing to remember Is 
to include all expenses. If you have un- 
listed expenses, enter them as other ex- 
penses. Be sure to include an expense for 
management— even if you manage the 
property yourself. 

The third page of the menu is for enter- 
ing expected income from rentals. You can 
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TRS-80® SJ F twaRE TRS - 80 ® 



MODEL III SOFTWARE 

26-1563 Scripsit I & III $79.00 

26-1566 Visicalc I $83.00 

26-1567 Visicalc III $83.00 

26-1552 General Ledger $90.00 

26-1553 Inventory Ctl $90.00 

26-1556 Payroll $180.00 

26-1555 Accts. Receivable $135.00 

26-1554 Accts. Payable $135.00 

26-1558 Bus. Mail List $90.00 

26-2201 Fortran I $90.00 

26-1562 Profile $72.00 

Plus many more 

COLOR SOFTWARE 

26-3050 Chess $36.00 

26-3051 Quaser $36.00 

26-3052 Pinball $27.00 

26-3053 Football $36.00 

26-3055 Checkers $27.00 

26-3057 Dino Wars $36.00 

26-3059 Backgammon $27.00 

26-3152 Typing Tutor $27.00 




MODEL II SOFTWARE 

26-4530 Scripsit II $265.00 

26-451 1 Visicalc II $265.00 

26-4512 Profile II $162.00 

26-4501 General Ledger $180.00 

26-4502 Inventory Mgmt $180.00 

26-4503 Payroll $360.00 

26-4504 Accts Receivable $270.00 

26-4505 Accts Payable $270.00 

26-4507 Mail List II $108.00 

26-4701 Fortran $270.00 

26-4703 Cobol $270.00 

Plus many more 

POCKET SOFTWARE 

26-3510 Real Estate $22.50 

26-351 1 Civil Eng $22.50 

26-3513 Aviotion $22.50 

26-3516 Bus. Statistics $18.00 

26-3517 Bus. Financial $18.00 

26-3518 Per. Financial $18.00 

26-3514 Math Drill $13.50 

26-3515 Games $13.50 



ORDER TOLL FREE 1-8QQ-84 10860 

CALL US - SAVE MONEY 

We carry the full line of TRS-80 Computers. All TRS-80 software, 
furniture, and accessories sold at discount. We stock most items to 
assure you fast delivery and save you money. 

WRITE FOR FREE CATALOG 



MICRQ MANAGEMENT SYSTEMS, INC."' 



No Taxes on Out Of 
State Shipments 

Immediate Shipment 
From Stock on Most Items 



DOWNTOWN PLAZA SHOPPING CENTER 

DEPT. # 4A 
115 C. SECOND AVE. S.W. 
CAIRO. GEORGIA 31728 
(912) 377-7120 Go. Phone No. 

HMO U r»gl«t«r*d trmdummr k ot Mi* T*n*y Cor*. 



Thousands of 
Satisfied Customers 



VISA And 
Mastercharge Welcomed 



-■See List Of Advertisers on page 402 
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"The discount factor is the minimum return 
that you will accept on your money." 



Program continued 
5010 DF(J) = CF(J)*DRl-J 
5020 TR = TR + CF(J) 
5030 DF = DF+DF(J) 

5040 EQ=P2(J)+P4(J)+EQ : 'EQUITY ACCUMULATED 

5050 SI = SI + RG(J) - TX(J) :'TOTAL SPENDABLE INCOME TO DATE 
5060 DS(J) = <RG(J)-TX(J))*DR(-J :'DISCOUNED SPENDABLE CASH 
5070 DS = DS + DS (J) : 'ACCUMULATED DISCOUNTED SPENDABLE CASH 
5080 NEXT J 

5090 REM NOW CALCULATE SELLING PRICE 
5100 SP = Z(l)*(l+Z(16)/100.) (Z(13) 

5110 PR=SP*(1-Z(19)/100) :REM SELLING PRICE LESS COST OF SELLING 
5120 AD ■= DP*Z (13) : 'ACCUMULATED DEPRECIATION 
5130 PR = PR - Z(l) +AD:'TAXABLE PROFIT ON SALE OF PROPERTY NOTE 

DEPRECIATION ADDED BACK Z(l) PURCHASE PRICE 
5140 TX = PR *Z(22)/100.: 'TAX PAID ON SALE OF PROPERTY 
5150 PZ = PR - TX -AD :'AFTER TAX PROFIT NOTE DEPRECIATION REMOV 
ED FROM PROFIT 

5160 PD = PZ*DR[-N%: 'DISCOUNTED VALUE OF AFTER TAX PROFIT 
5170 DZ = PD + DF: 'TOTAL PRESENT VALUE OF PROFITS FROM INVESTMEN 
T 

5180 REM 

5190 REM NOW PRINT OUT THE RESULTS 
5200 PRINT 

5210 PRINT"**** RESULTS OF CALCULATIONS ****" 
5220 PRINT STRING$(64,"=") 

5230 PRINT " SUMMARY RESULTS " 

5240 PRINT "SELLING PRICE OF PROPERTY" ;TAB( 40) ;: PRINT USING F(0) 
;SP 

5250 PRINT "OUTSTANDING LOAN BALANCE "; TAB ( 40) ;: PRINT USING F(0) 
;B1+B2 

5260 PRINT"DOWN PAYMENT + PRINCIPAL PAYMENTS " ; TAB (40) ;: PRINT U 
SING F(0) ;EQ+Z(2) 

527 PRINT "TAXABLE PROFIT FROM SALE OF PROPERTY" ;TAB( 40) ;: PRINT 
USING F(0) ;PR 

528 PRINT "TOTAL AFTER TAX PROFIT FROM RENTS" ?TAB( 40) ;: PRINT US 
ING F(0) ;TR 

5290 PRINT "AFTER TAX PROFIT FROM SALE OF PROPERTY" ;TAB( 40) ; :PRI 

NT USING F(0) ;PZ 

53 00 PRINT"TOTAL PROFIT FOR INVESTMENT "; TAB (40 );: PRINT USING F( 

0) ;PZ + TR 

5310 PRINT"PRESENT VALUE OF PROFITS" ;TAB(40) ;: PRINT USING F(0);D 

Z 

5320 IF DZ < 2(2) THEN PRINT "NOTE PRESENT VALUE OF PROFITS IS L 

ESS THAN YOUR DOWN PAYMENT" ELSE 5340 

5330 PRINT"THIS IS NOT A GOOD INVESTMENT." 

5340 IF AL<0 THEN PRINT"NOTE INVESTMENT DID NOT PAY ITS WAY":PRI 

NT"YOU WOULD HAVE TO TAKE MONEY FROM SAVINGS" :PRINT"OP. BORROW MO 

RE MONEY TO PAY EXPENSES" 

5350 PRINT"DO YOU WANT TO SEE DETAILS?" 

5360 GOSUB 410 

5370 IF Y$="N" THEN RETURN 

5380 IF Y$<>"Y" THEN PRINT"PLEASE ANSWER Y OR N":GOTO5350 

5390 REM PRINT DETAILS 

5400 CLS 

5410 FOR J = 1 TO N% 

5420 CLS 

5430 PRINT "** RESULTS FOR YEAR ";J;" **" 

5440 PRINT STRING$(63 f "=") 

5450 PRINT USING "RENTAL INCOME $##*,****. M 

";RX(J) 

5460 PRINT USING "FIXED EXPENSES $*t*,*tlt.#t 

";RF(J) 

5470 PRINT USING "OPERATING EXPENSES $###, ittl.it 

";RZ(J) 

5480 PRINT USING "INTEREST PAID $M*,Mtt.t* 

";RI(J) 

5490 PRINT USING "PRINCIPAL PAID $###,####.## 

";P2(J)+P4(J) 

5500 PRINT USING "DEPRECIATION ALLOWANCE $tit , iitt . it" 

;DP 

5510 PRINT USING "TAXABLE INCOME $###,####.♦# 

";RT(J) 

5520 PRINT USING "TAX PAID $###, ttit.il 

";TX(J) 

5530 SF(J)=RG(J)-TX(J) 

5540 PRINT USING "AFTER TAX PROFIT $iii,titi.ti 

";RA(J) 

Program continues 



"" Page 4 of 5 "" Investment Data "" 

- Purchase Price of Property S 0.00 

Amount of Down Payment S 0.00 

Amount of First Mortgage $ 0.00 

Interest Rate First Mortgage % Per Yr — 0.00% 

Life of First Mortgage Years 

Number of Payments Per Year 

Amount of Second Mortgage $ 0.00 

Interest Rate Second Mortgage % Yr 0.00% 

Life of Second Mortgage Years 

Number of Payments Per Year 

Closing Costs S 0.00 

Other Costs of Buying S 0.00 

< OR > May Be Used to Change Pages t4«— Are Active. 

Use Q to Start Calculations. Enter Data to Change. 

Fig. 4. Page 4 of Menu, Investment Data. 



enter information for six different rental 
units (one, two and three bedroom fur- 
nished and unfurnished rental units). 

You are asked for two pieces of informa- 
tion for each type of rental unit— the 
number of units and the monthly rent for 
that type of unit. The computer calculates 
the total annual rent expected from all 
units of a given type and the monthly and 
yearly Income for all rental units. 

The program calculates and displays 
the dollar cost of the vacancy allowance 
and the expected rental income also, tak- 
ing into account the vacancy allowance. 

The fourth page is used to enter informa- 
tion on the capital costs of the investment. 
Here, you enter information on the pur- 
chase price of the property, the amount of 
the down payment, the amount of the first 
and second mortgages, the closing cost 
and other costs involved in purchasing 
property. 

The fifth and final page is where you 
enter information on life of the investment, 
life of the property for depreciation, ex- 
pected escalation for rents and expenses, 
expected appreciation of the investment, 
income tax rates, and the discount factor. 

The discount factor is the minimum 
return that you will accept on your money. 
What you enter here is up to you. In 
general, a good value for the discount rate 
is the tax-free interest you can earn on a 
risk-free investment. 

Output 

The first two pages of the hard-copy out- 
put are a repeat of the input information in 
the same format as the menus used to 
enter the input information. If you don't 
believe the calculated output, carefully 
double-check the input data. 

The third page of the hard-copy output is 
a summary of the calculated results. The 
first item on this page is total spendable 
income from rents. Total spendable in- 
come is the total income available to 
spend on your computer or other bad 
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". . . it is possible to have a positive taxabie income 
and a negative spendable income. . . " 



habits. Spendable income is the rental 
receipts minus all the cash outlays you 
made to operate the property. Cash out- 
lays also Include the total loan payment 
(principal and Interest) but do not include 
depreciation of the property. Principal 
payments are included as pocket ex- 
penses because your checkbook sees the 
total loan cost as the interest payment 
plus the principal payment. Depreciation 
is not included as pocket expense be- 
cause you don't write a check for depreci- 
ation. Depreciation is an expense for tax 
purposes but not an expense for the pur- 
pose of calculating spendable income. 

If the total spendable Income is 
negative, then the rental income from the 
property was not enough to cover upkeep. 
You need to borrow or withdraw money 
from savings when the spendable Income 
Is negative. Note that it Is possible to have 
a positive taxable Income and a negative 
spendable income or vice versa. 

(Remember: Spendable income is what 
goes Into or comes out of your pocket.) 

The second item shown Is the after-tax 
profit from rents. This is what the IRS says 
you made, or lost, from renting the prop- 
erty. In this case, depreciation (straight 
line is used in the program) is an allowable 
expense but principal payment is not. A 
negative after-tax profit from rents can be 
used to shelter Income from other sources 
(check with the IRS to be sure). So a nega- 
tive after-tax profit from rents is not all 
bad— provided, of course, that the spend- 
able income is positive. 

The next several items in the output 
show the capital gain realized by selling 
the property at the end of the investment 
life. First the selling price, followed by the 
purchase price are shown. Next, your 
equity In the property is shown (down pay- 
ment plus principal payments). Loan 
balance for the first and second mort- 
gages is shown followed by the balance 
after the loans are paid off. The ac- 
cumulated depreciation follows along 
With the cost basis for tax purposes. The 



Pege5of5Pages Investment Data Cont 

■* Ufa of Investment Years 

Ufa of Prop For Depreciation Years 

Per Cent of Value Due to Land 0.00 V* 

Escalation Rate For Property %/Yr 0.00% 

Escalation Rate For Rent increases 0.00% 

Escalation Rate For Expense Increases 0.00% 

Costs of Sailing Property % of Price 0.00% 

Discount Rate % 0.00% 

Marginal Income Tax Rate % 0.00% 

Tax Rate for Capital Gains % 0.00% 

< May be Used to Change Pages !*•-• Are Active. Use G 
to Start Calculations. Enter Data to Change 

Fig. 5. Page 5 of Menu, Investment Data. 



Program continued 

5550 PRINT USING "SPENDABLE CASH FLOW $## I, flfft.lt" 

;SF(J) 

5560 PRINT USING "CASH FLOW $•## , tiff! . ##" ; 

CF(J) 

5570 PRINT USING "DISCOUNTED CASH FLOW $###, ###t . ##" 

;DF(J) 

5580 PRINT STRINGS (63,"=") 

5590 PRINT3896, "PRESS ANY KEY TO SEE MORE " 

5600 GOSUB410 

5610 NEXT J 

5620 RETURN 

5630 REM HARD COPY ROUTINE 

56 40 CLS 

5650 PRINT"**** HARD COPY ROUTINE ****" 

5660 PRINT "CHECK TO SEE IF PRINTER IS ON " 

5670 PRINT STRINGS (64,"-") 

5680 LPRINT TAB(5)"REAL ESTATE INVESTMENT ANALYIS" 

5690 LPRINT TAB(5) "VERSION 2.0 BY L. E. SPARKS" 

5700 LPRINT STRINGS (70,"-") 

5710 LPRINT TAB( 5) "PROPERTY IDENTIFICATION ";ZZ$ 

57 20 LPRINT STRINGS (70, "-") 

5730 LPRINT TAB(25) "****" ;TAB(30) ; "INPUT DATA ****" 

5740 LPRINT STRINGS (70 , "■") 

5750 LPRINT TAB(5) "* PAGE 1 OF 5 PAGES * FIXED EXPENSES " 

5760 LPRINT STRINGS (70, "«■) 

5770 LPRINT TAB{5) " ITEM " ;TAB(40) ; "S/M0 $/YR" 

5780 LPRINT STRINGS (70 , "■") 

57 90 FOR J = 1 TO 6 

5800 LPRINT TAB( 5) ;: LPRINT USING F(J)iEF(J); 

5810 LPRINT USING " $###,###. ##" ;EY(J) 

5820 NEXT J 

5830 LPRINT STRINGS (70 , "*") 

5840 LPRINT TAB(5) "** PAGE 2 OF 2 * OPERATING EXPENSES **" 

5850 LPRINT STRINGS (70 , "-") 

5860 LPRINT TAB(5)"ITEM " ;TAB(40) ; "S/M0" ;TAB(50) ; "S/YR" 

5870 LPRINT STRINGS (70 , "-") 

5880 FOR J = 1 TO 12 

5890 LPRINT TAB ( 5) ;: LPRINT USING F(J+6) ;E(J) ; 

5900 LPRINT USING " $#*♦,###.*#"; EQ( J) 

5910 NEXT J 

5920 LPRINT STRINGS (70 , "*") 

5930 LPRINT TAB(5)"*** PAGE 3 OF 5 PAGES * INCOME ESTIMATES ***" 

5940 LPRINT STRINGS (70, "«") 

5950 LPRINT TAB(5)"TYPE OF UNIT" ;TAB(18) ; "# OF UNITS" ;TAB(30) ; "R 

ENT $/MO";TAB(50) ; "RENT $/YR" 

5960 FOR J = 1 TO NT 

5970 LPRINT TAB ( 5) ;: LPRINT FT(J) :TAB( 20) ;NU (J) ;TAB(30) ; 

5980 LPRINT USING "$#,######.##" ;R(J) ; rLPRINT TAB(45); 

5990 LPRINT USING F(0);RY(J) 

6000 NEXT J 

6010 LPRINT TAB( 5) ;: LPRINT USING"VACANCY ALLOWANCE AS % OF RENTS 

■ ##.##%":VA 

6020 LPRINT TAB( 5) ;: LPRINT USING"DOLLAR COST OF VACANCY - $###,# 

M . t #/YR" ; VA*RY/100 

6030 LPRINT TAB ( 5) ;: LPRINT USING "ADJUSTED GROSS RENTS = $♦### 

,###.##/YR";RG 

6040 LPRINT STRINGS (70,"*") 

6050 LPRINT CHR$(140) : 'TOP OF FORM PRINTER CONTROL 

6060 LPRINT " ":LPRINT" "rLPRINT" " 

6070 LPRINT TAB(5)"PAGE 2 OF OUTPUT INPUT DATA CONT " 

6080 LPRINT STRINGS (70,"=") 

6090 LPRINT " " 

6100 LPRINT TAB(5) "**** PAGE 4 OF 5 PAGES * INVESTMENT INFORMAT 

ION ****" 

6110 LPRINT STRINGS (7 0,"=") 

6120 FOR J - 1 TO 12 

6130 LPRINT TAB( 5) ;: LPRINT USING F(J+18);Z(J) 

6140 NEXT J 

6150 LPRINT STRINGS (7 0,"*") 

6160 LPRINT TAB(5) "***** PAGE 5 OF 5 PAGES INVESTMENT DATA CONT 
****** 

6170 LPRINT STRINGS (70,"=") 

6180 FOR J » 13 TO 22 

6190 LPRINT TAB (5) J rLPRINT USING F(J+18);Z(J) 

6200 NEXT J 

6210 LPRINT STRINGS (70,"*") 

Program continues 



80 Microcomputing, November 1981 • 153 



"The investment with the maximum 
present value of spendable income 
is the best/' 



Program continued 

6220 LPRINT CHR$(140):' TOP OF FORM FOR PRINTER 

6230 LPRINT " " 

6240 LPRINT " " 

6250 LPRINT " " 

6260 LPRINT TAB (5) "PAGE 3 OF OUTPUT " 

6270 LPRINT STRINGS (70 , "«") 

6280 LPRINT " " 

6290 REM 

6300 REM 

6310 REM NOW LPRINT OUT THE RESULTS 

6320 LPRINT 

6330 LPRINT TAB(5)"**** RESULTS OF CALCULATIONS ****■ 

6340 LPRINT STRINGS (70 , "«") 

6350 LPRINT " " 

6360 LPRINTTAB(9) " SUMMARY RESULTS " 

6370 LPRINT STRINGS (70, "=") 

6380 LPRINT TAB(5) "TOTAL SPENDABLE INCOME FORM RENTS ";TAB(44); 

6390 LPRINT USING F(0);SI 

6400 LPRINT TAB(5) "TOTAL AFTERTAX PROFIT FROM RENTS" ;TAB( 44) >: L 

PRINT USING F(0) ;TR 

6410 LPRINT TAB( 5) "SELLING PRICE " ;TAB(44) ;: LPRINT USING F(0);SP 

6420 LPRINT TAB( 5) "PURCHASE PRICE" ;TAB(44) ;: LPRINT USING F(0);Z( 

1) 

6430 LPRINT TAB(5)"DOWN PAYMENT + PRINCIPAL PAYMENTS" ;TAB( 44) ;: L 

PRINT USING F(0) ;EQ*Z(2) 

6440 LPRINT TAB ( 5) "PRESENT VALUE OF PRINCIPAL PAYMENTS ";TAB(44) 

6450 LPRINT USING F(0);PQ 

6 46 LPRINT TAB( 5) "PRESENT VALUE OF EQUITY ";TAB(44); 

6470 LPRINT USING F (0) ;Z ( 2) +PQ 

6480 LPRINT TAB( 5) "BALANCE LEFT ON LOANS" )TAB( 44) ;: LPRINT USING 

F(0) ;B1+B2 

6490 LPRINT TAB{5) "SELLING PRICE - LOAN BALANCE " ;TAB(44) ; tLPRIN 

T USING F(0) ;SP-B1-B2 

6500 LPRINT TAB( 5) "ACCUMULATED DEPRECIATION " ;TAB(44) :LPRINT US 

ING F(0) ;AD 

6510 LPRINT TAB(5)"COST BASIS FOR TAX PURPOSES " ;TAB( 44) :LPRINT 

USING F(0) ;Z(1)-AD 

6520 LPRINT TAB(5)"COST BASIS FOR TAX IS PURCHASE PRICE - ACCUMU 

LATED DEPRECIATION" 

6525 LPRINT TAB(5)"COST OF SELLING " ;TAB(44) ;: LPRINT USING F(0) ; 

SP*Z(19)/100 

6530 LPRINT TAB(5) "TAXABLE PROFIT FROM SALE OF PROPERTY" ; TAB ( 44 

);:LPRINT USING F(0);PR 

6540 LPRINT TAB( 5) "CAPITAL GAINS TAX " ;TAB(44) ;: LPRINT USING F(0 

) ;TX 

6550 LPRINT TAB(5)"AFTER TAX PROFIT ON SALE" ; TAB ( 44) ;: LPRINT USI 

NG F ( ) ; PZ 

656 LPRINT TAB(5) "TOTAL AFTER TAX PROFIT FOR INVESTMENT ";TAB( 

44);: LPRINT USING F(0);PZ + TR 

6570 LPRINT TAB (5) "PRESENT VALUE OF PROFIT ON SALE " ;TAB( 44) ; : LP 

RINT USING F(0) ;PZ*(1+Z(20)/100.) 1-Z(13) 

6 580 LPRINT TAB(5) "PRESENT VALUE OF ALL PROFITS" ;TAB( 44) ;: LPRIN 

T USING F(0) ;DZ 

6590 LPRINT TAB( 5) "PRESENT VALUE OF ALL SPENDABLE INCOME" ;TAB( 44 

):LPRINT USING F (0) ;DS+PZ* ( 1+Z ( 20) /100) l-Z ( 13) 

6600 LPRINT " ":LPRINT STRING? (70 , "*") 

6610 IF DZ> Z(2) THEN 6630 

6620 IF DZ < Z(2) THEN LPRINT TAB( 5) "NOTE THAT PRESENT VALUE OF 
PROFITS IS LESS THAN YOUR DOWN PAYMENT" :LPRINT TAB(5)"THIS IS N 

OT A GOOD INVESTMENT" 

6630 IF SK0 THEN LPRINT TAB(5)"11! NOTE 1!! THE INVESTMENT DID 

NOT PAY ITS WAY":LPRINT TAB(5) "YOU WOULD HAVE TO TAKE MONEY FRO 

M SAVINGS": LPRINT TAB(5)"OR BORROW MORE MONEY TO PAY EXPENSES." 

6640 LPRINT STRINGS (70 ,"«" ) 

6650 REM LPRINT DETAILS 

6660 JP = 3 

6670 LPRINT CHRS (140) : 'TOP OF FORM PRINTER CONTROL 

6680 LPRINT" ":LPRINT " ":LPRINT " " 

6690 LPRINT TAB(5)"PAGE ";JP+1;" OF OUTPUT DETAILED RESULTS" 

6700 JP-JP+2 

6710 JZ-1 

67 20 FOR J * 1 TO N% 

6730 JZ=JZ+1 

6740 LPRINT TAB(5) "** RESULTS FOR YEAR ";J;" **" 

6750 LPRINT STRINGS (70 , "-") 

Program continues 



IRS requires that you subtract the ac- 
cumulated depreciation from the pur- 
chase price of the property to calculate the 
cost of the property for tax purposes. The 
taxable capital gain followed by the capital 
gains tax paid are then shown. 

The next four items summarize the total 
profit from the Investment. The last items 
show the present value of the total after- 
tax profit and total spendable profit ex- 
pected from the investment. These three 
items are very important. If you are evalu- 
ating more than one investment, the in- 
vestment with the maximum present value 
of spendable income is the best. 

If you are evaluating one investment, the 
investment is attractive if the present 
value of the spendable income is greater 
than your down payment and equity. Any 
investment that gives a present value less 
than your down payment and equity is a 
poor one. A present value less than your 
down payment and equity means that you 
could increase your spendable income by 
putting money in a risk-free investment 
represented by the discount rate rather 
than from the investment you're analyzing. 

The next several pages of the printed 
output are the year-by-year details of in- 
come and expenses for the rental property. 
The main thing to look at here is the spend- 
able income— if it is negative, you need to 
borrow or take money from savings to keep 
the investment going. Also note the tax- 
able income. If it is negative, you have a 
tax loss that can be used to shelter other 
incomes (check with the IRS for specifics). 
As long as the spendable income is posi- 
tive, a negative taxable income is fine- 
especially if you're in a high tax bracket. 

In the program, tax losses in one year 
are carried forward to offset the next 
year's taxable rental income. 

The output displayed on the CRT is 
essentially the same as the printed output. 
Some of the items are not displayed, but 
all of the important information is shown 
both on the CRT and the hard-copy output. 

Calculations 

The calculations performed by the pro- 
gram are straightforward. The program 
calculates the loan payment requirements 
of the first and second mortgages for the 
life of the investment (not the life of the 
loan). The interest and principal amounts 
are kept separate for later use. 

After the mortgage calculations are 
taken care of, the program does a year-by- 
year calculation of the income and the ex- 
penses of the investment. The expenses 
are escalated using the escalation factor 
and entered as part of the input data. The 
rental income is also escalated. However, 
the program assumes that rental price in- 
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New software system turns your TRS-80* 
computer into a complete office manager. 



Windham Software's Medical and Dental 
Office Systems economically manage 
financial and diagnostic office functions. 
If you're a physician or a dentist in a group of up to ten 
practitioners, you probably feel like you're spending 
more and more time on things other than caring for your 
patients— like bookkeeping, insurance forms, billing, 
collections, record-keeping. 

If you consider computerization as a good solution, 
you're on the right track. We at Windham Software have 
your answer. We've developed two comprehensive soft- 
ware packages— the MOS-2 for medical offices, and the 
DOS-2 for dental offices— specifically for groups of up to 
ten practitioners. 

The MOS-2 and DOS-2 from Windham Software are 
economical packages— priced at $499— which include 
all the financial functions you've seen in other available 
office management svstems. But there's more. 

The MOS-2 and DOS-2 can handle up to 15,000 
patient records— more than any other similar system. Up 
to 500 procedures and 500 diagnoses can be stored and 
retrieved on the MOS-2. And both systems provide a full 
statistical report on procedures performea, and number 
of patients seen per doctor each month. 

Designed specifically for groups of 
up to ten practitioners. 

Some software systems demand a change in your way of 
doing business, or radical programming alterations — 
expensive propositions. The Windham MOS-2 and DOS-2 
were developed by practitioners working with systems 
specialists. They have been using the MOS-2 and DOS-2 
on the Radio Shack' TRS-80 Model II to manage their 
practices for some time. The team also developed the 
Medical Office System being marketed by Radio Shack 
for TRS-80 Models I/III (Cat. No. 26-1568). Their experi- 
ence and understanding have led to the development of 
a system ready to go to work in your office, as you now 
operate it. 

The most comprehensive software 
package for your TRS-80 Model II. 

The past few years have seen numerous microcompu- 
ters introduced to the market. We designed the MO§-2 
and DOS-2 to operate on the Radio Shack TRS-80 Model 
II microcomputer. The Model II is an economical hard- 
ware system, fast, adaptable, and with a particularly high 
capacity. It is readily available and serviced through 
Radio Shack dealers everywhere. The MOS-2 and DOS-2 
perform more functions and have greater storage capac- 
ity by far than any other medical or dental software 
package available for this hardware. 



IBM and Hewlett-Packard micro systems available soon. 

TRS-80 and Radio Shack are registered trademarks of Tandy Corp. 

*-Se« List of Advertisers on page 402 



What Windham Software Systems can do 
and how your practice can benefit 

A wide range of financial and management functions 
are performed by the MOS-2 and DOS-2. Billing, account 
aging, payment recording — even insurance forms— are 
all completed automatically by the system. Patient rec- 
ords can be quickly and easily sorted to provide meaning- 
ful practice profile information, heretofore nearly 
impossible to obtain. 

The MOS-2 and DOS-2 are so simple to operate — any 
or all of your current staff can easily be trained to work 
with a system. No need for computer language — the sys- 
tem communicates with simple English questions and 
answers. Recording errors are virtually eliminated with 
the system's verification system. Since many office func- 
tions are now completed automatically, much time is 
saved which can be devoted to other important tasks in 
your office. Automatic account aging and statement 
generation also improves collections. Each system is 
priced at $499— a comprehensive, efficient, economical 
office management package that very quickly pays 
for itself. 

Turn your paperwork over to a specialist — the 
MOS-2 Medical Office System or the DOS-2 Dental Office 
System, from Windham Software. 



H 



ow to order. 



.Orders may be placed by phone or by mail. Call toll- 
free 800-424-4520, Operator 20; or in Washington, D.C. 
202-822-9090, Operator 20. For further information or a 
brochure, you may call 203-456-3530. Or fill out the 
attached coupon and mail it today! 

Windham Software, Inc. 

29/31 Ivanhill St., Willimantie, CT 06226 ^312 

Please send me: d MOS-2 Medical Office System 

□ DOS-2 Dental Office System 
I enclose: G Check □ Money Order for $499. 
Please charge to my: □ MasterCard D VISA D American Express 



Acct. No. 
Exp. Date:. 



Inter.-Bank No. (for Master Charge) 



(Signature for credit card use) 
(Total: $499 each. Connecticut residents, please add 7V2% sales tax.) 



Address 



City/SUle/Zip 



Type of Practice 

D I'm not ready to order, but please send me your brochure. 
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"The present value of all cash flow 
is calculated using the discount rate 
entered during data entry." 



Program continued 

6760 LPRINT TAB( 5) ;: LPRINT USING "RENTAL INCOME 

$###,####.##";RX(J) 

6770 LPRINT TAB( 5) ;: LPRINT USING "FIXED EXPENSES ■ 

$###,M##.#t";RF(J) 

6780 LPRINT TAB( 5) ,: LPRINT USING "OPERATING EXPENSES 

$###,####. ##";RZ(J) 

6790 LPRINT TAB( 5) ;: LPRINT USING "INTEREST PAID 

$##!,####. ##";RI(J) 

6800 LPRINT TAB{ 5) ;: LPRINT USING "PRINCIPAL PAID 

$###,♦#♦#. ##";P2( J) +P4( J) 

6810 LPRINT TAB ( 5) ;: LPRINT USING "SPENDABLE GROSS INCOME 

$M#,####.##";RG(J) 

6820 IF RG(J)<0 THEN LPRINTTAB(5) "*** NOTE THAT GROSS INCOME I 

5 NEGATIVE. YOU NEED A LOAN TO KEEP GOING " 

6830 LPRINT TAB( 5) ;: LPRINT USING "TAXABLE INCOME 

$#M,l###.t#";RT(J) 

6840 IF RT(J) < THEN LPRINT TAB(5)" *** NOTE YOU HAVE A LOSS F 

OR TAX PURPOSES WHICH CAN SHELTER OTHER INCOME." 

6850 IF RG(J) <0 THEN LPRINT TAB(5)"*** YOU ALSO HAVE A REAL OUT 

OF POCKET LOSS AS NOTED ABOVE! I" 

686k) LPRINT TAB( 5) ;: LPRINT USING "DEPRECIATION 

$«##,####. ##";DP 

6870 LPRINT TAB( 5) ;: LPRINT USING "TAX PAID 

$###,####.##";TX(J) 

6880 LPRINT TAB ( 5) ;: LPRINT USING "AFTER TAX PROFIT 

$##I,####.##";RA(J) 

6890 LPRINT TAB( 5) j : LPRINT USING "TAXABLE CASH PLOW 

$###,####.M";CF(J) 

6900 LPRINT TAB (5);: LPRINT USING "SPENDABLE CASH FLOW 

— $###,####. ##";RG( J) -TX( J) 

6910 LPRINT TAB ( 5) ;: LPRINT USING "DISCOUNTED TAXABLE CASH FLOW 

--$###, ####.##";DF(J) 
6920 LPRINT TAB ( 5) ;: LPRINT USING "DISCOUNTED SPENDABLE CASH FL 
OW $###,####. ##";DS(J) 
6930 LPRINT STRING$ (7 0, "■") 

6940 IF JZ < 3 THEN 6980 ELSE LPRINT CHR$(140) 

6950 LPRINT " ": LPRINT " "tLPRINT "PAGE ">JP;" OF OUTPUT. DETA 
I LED RESULTS CONT " 
6960 LPRINT STRING$ (70 , "-") 
6970 JZ=1:JP=JP+1 

6 980 NEXT J 

6990 LPRINT TAB( 5) "NOTE. SPENDABLE CASH FLOW IS TAKEN AS THE TOTA 

L INCOME": LPRINT TAB(5)"MINUS FIXED 6 OPERATING EXPENSES" » 

7000 LPRINT "MINUS INTEREST fc PRINCIPAL PAYMENTS MINUS TAXES." 

7010 LPRINT TAB(5)" CASH FLOW IS TOTAL INCOME MINUS FIXED fc OPE 

RATING EXPENSES MINUS INTEREST" 

7020 LPRINT TAB(5) "MINUS TAXES. NOTE PRINCIPAL PAYMENT IS NOT TA 

X DEDUCT ABLE. 

7030 LPRINT STRING$(70, "=") 

7040 RETURN 

7050 RETURN 

7060 REM INSTRUCTION ROUTINE 

707 PRINT "THIS PROGRAM IS WRITTEN FOR A TRS-80 MODEL 1 WITH" 

7080 PRINT "LEVEL II BASIC AND 32 K RAM." 

7090 PRINT "THIS PROGRAM IS DESIGNED TO CALCULATE THE PRESENT VAL 

UE" 

7100 PRINT"OF THE CASH FLOWS FROM A RENTAL PROPERTY INVESTMENT." 

7110 PRINT'DATA ARE ENTERED BY FILLING IN THE MENUS THAT FOLLOW. 

7120 PRINT"USE > TO GO TO THE NEXT MENU PAGE. USE < TO GO TO THE 

■ 

7130 PRINT"PREVIOUS MENU PAGE. USE THE ARROWS TO MOVE AROUND THE 

MENU. 
7140 PRINT'MENU INSTRUCTIONS ARE PRINTED AT THE BOTTOM OF EACH P 
AGE." 

7150 PRINT STRING$(6 3,"»") 

7160 PRINT" ***** PRESS ANY KEY TO CONTINUE **•**" 
717 Y$=INKEY$:IF Y$«"" THEN 717 ELSE CLS 
7180 PRINT" ****** INSTRUCTION CONTINUED ******" 
7190 PRINT STRINGS (63, "«") 
7200 PRINT"FOR SOME ITEMS YOU HAVE THE OPTION OF ENTERING COSTS 

7210 PRINT "ON A MONTHLY OR YEARLY BASIS DEPENDING ON THE DATA " 

7 220 PRINT'YOU HAVE. MOVE THE ARROW TO THE APPROPIATE COLUMN" 

7 230 PRINT"AND ENTER THE DATA. THE COMPUTER WILL CALCULATE THE" 
7 240 PRINT "COST THAT YOU DID NOT ENTER. FOR EXAMPLE IF YOU ENTER 

■ 

Program continue* 



creases are on a yearly basis since rents 
are often set by leases which run for a year 
or more. 

Depreciation is calculated for the 
building only. Straight line depreciation is 
used. 

The present value of all cash flow is 
calculated using the discount rate entered 
during data entry. The present value of all 
principal payments is also calculated. 

The selling price is calculated by escala- 
ting the purchase price which is specified 
by the input data. The taxable capital gain 
is calculated by subtracting the ac- 
cumulated depreciation from the pur- 
chase price which gives you the cost 
basis. This is then subtracted from the 
selling price, less the selling costs from 
the basis. The present value of the net, 
after tax profit of the sale, is then cal- 
culated. Finally the present values, after 
taxes, of cash flow and spendable cash 
flow are calculated. 

User Instructions 

In this section, user instructions fol- 
lowed by an example run are presented. 
After you have run the example, you 
should not have any trouble running the 
program. 

Before showing you the Input data 
menu, the program asks you to provide 
identification for the investment you are 
analyzing. You can use any identification 
scheme you want. The program uses a 
Line Input (Disk Basic) so you can enter any 
set of characters you wish for the identifica- 
tion. If you do not have Disk Basic, change 
Line Input to Input. 

After you have provided the program 
identification, program operation Is a mat- 
ter of filling in the menu pages and then 
pressing G when you are ready to initiate 
calculations. You select the data item you 
want to enter by using the > and < keys to 
find the appropriate page and then by 
using the up, down, left, or right arrow to 
move the marker on the CRT to the ap- 
propriate entry point. When you enter 
numbers from the keyboard, you may use 
commas to separate thousands. For exam- 
ple, the number 1000 may be entered as 
1,000 or 1000. It is easier to keep track of 
things if I enter the commas. 

The key to running the program is filling 
out the menus. (See Fig. 1, page 1 of the 
menu.) There are three columns for the 
page— Item, $/MO, and $/YR. The item col- 
umn is the name of the expense, the $/MO 
column is where you enter the monthly 
cost of the expense (if you know It) and the 
$/YR is where you enter the yearly cost of 
the expense (if you know it). Also note the 
right arrow (-♦) in the figure after property 
tax. The right arrow indicates what data 
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will be entered if you want to enter data. 
The right arrow can be moved around the 
menu by using the up arrow (t), the down 
arrow (♦), the left arrow (♦-) and the right ar- 
row (-*) keys on the keyboard. Thus, if you 
want to enter cost of license, press the 
down arrow key until the right arrow is to 
the right of license on the CRT. If you wish 
to enter the monthly cost of licenses, 
simply enter the appropriate amount and 
press Enter when you are done. Note that 
when you enter the amount, you can use 
commas if you want. When you have 
entered the last digit of the amount, press 
Enter. Now note that the menu is reprinted 
with the amount you entered in the $/MO 
column and also note that the computer 
has calculated the $/YR and filled in that 
column. Also observe that the computer 
has added the $/MO and $/YR amounts to 
the total fixed expenses. 

If you know the $/YR instead of the 
$/MO, press the right arrow key (— ) to move 
the arrow to the $/YR column. Then enter 
the cost per year. The computer will 
calculate the monthly cost for you. 

Data entered on page two are the same 
as for page one. 

Page three requires that you enter infor- 
mation on the number of units and the 
monthly rent per unit. The computer cal- 
culates the yearly rent for you. You can not 
enter the yearly rent. You must enter the 
monthly rent. Be sure to enter the 
allowance for vacancies. Note that this is 
entered as a percent of the rental income 
and not a dollar amount. The computer will 
calculate the dollar amount for you. Pages 
four and five have one column for data. 

As soon as you press Q, the computer 
starts the calculations. The first thing it 
does is check key input data to see if they 
are reasonable. If the data are not reason- 
able, the computer prints an error mes- 
sage and asks if you want to review the in- 
put information. Return to the appropriate 
page of the menu, review the data and 
make necessary corrections and then 
press G to begin calculations again. 

If you do not wish to review the input 
data, press N and the computer will do the 
calculations. Sample results for the data 
given in Fig. 1 appear in Fig. 2. 

When you use the program to analyze 
your own investments, remember that the 
computer calculations are based on the 
data you provided. If those data are bad, so 
is the calculated result. 

Finally, remember that no matter what 
the computer results say, you are the one 
that has to decide if the investment is good 
or bad. Also remember that this program 
only considers the time and money factors 
of the investment. Consideration of risk 
and other factors is totally up to you. ■ 



this program only considers 

the time and money factors 

of the investment." 



Program continued 

7 250 PRINT"MONTHLY COST, THE COMPUTER WILL CALCULATE THE YEARLY 

COST." 

7260 PRINT"WHFN YOU HAVE ENTERED ALL THE DATA, PRESS G AND THE" 

7270 PRINT "COMPUTER WILL BEGIN THE CALCULATIONS." 

7 280 PRINT"AFTER ALL CALCULATIONS ARE COMPLETED, THE COMPUTER WI 

LL" 

7 290 PRINT"DISPLAY A SUMMARY OF THE RESULTS AND ASK IF YOU WANT" 

7300 PRINT"TO SEE DETAILS. A HARD COPY OPTION IS ALSO AVAILABLE. 



7310 

7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7 47 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

7610 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 



PRINT STRING$(63, "-") 

PRINT"**** PRESS ANY KEY TO BEGIN **** 
Y$-INKEY$:IF Y$=""THEN 7330 ELSE CLS 
RETURN 

REM INITIALIZE 
F(0)="$###, #•#### . ##" 

F(l) -"PROPERTY TAX 

F( 2) -"INSURANCE 

F(3) -"LICENSE 

F(4) -"REPLACEMENT RESERVES 

F(5)='OTHER FIXED EXPENSES 



$###, lltttt.tf 
$«**,t*«tM.M" 
$###, !#####. «#" 

$###, •*****.«!" 
$ttt,»Mt*t.**' 



F(6)="TOTAL FIXED EXPENSES ========= S t ## , t*t#*#.tt" 



$*«!,«#**. It" 
$#•«, ####.##" 
$t#*,Mti.tt" 
$# *«,**#*.«*" 
$###, ####.##" 
$*##,*#♦# 
$ttf ,i#*t 
$*t#,MM 
$*#*,**#*.«*" 
$**«,#*##. *t" 



• #' 

ft' 



F(7) -"JANITOR 

F(8)="GARDNER 

F(9)-"SOC. SECURITY & UNEMP 

F (10) -"GARBAGE COLLECTION 

F(11)="UTILITIES 

F(12) -"SUPPLIES 

F (13) -"MAINTENANCE 

F( 14) -"ADVERTISING 

F (15) -"MANAGEMENT 

F(16)="FREE RENT (MGR JANITOR) — 
F( 17) -"OTHER OPERATING EXPENSES — 
F(18)="TOTAL OPERATING EXPENSES — - = = - = $###,*♦##»#.##" 
REM LABELS FOR TYPE OF UNITS 

REM IF YOU HAVE DIFFERENT TYPES OF UINTS CHANGE THE 
REM DATA STATEMENTS BEGINNING AT LINE 7 930 

REM BE SURE TO TYPE END FOR THE LAST ITEM IN THE DATA LIST 
REM THE DATA LIST WILL HANDLE UP TO 12 DIFFERENT TYPE 
REM OF UNITS 

REM A TYPE OF UNIT IS FOR EXAMPE 1 BEDROOM FURNISHED 
REM LISTED AS 1 BED FUR 
FOR J = 1 TO 12 
READ FT(J) 
IF FT(J) 
NEXT J 
NT - J -1 
F(19) 
F(20) 
F(21) 



"END" THEN 7670 



"PURCHASE PRICE OF PROPERTY $*##, ######. ##' 

"AMOUNT OF DOWN PAYMENT $**«,*#**#*.*#' 

"AMOUNT OF FIRST MORTGAGE $# #1 ,*#«##*.## ' 

F(22) - "INTEREST RATE FIRST MORTGAGE % PER YR #♦.##* 

F(23) - "LIFE OF FIRST MORTGAGE YEARS ##' 

F(24) * "NUMBER OF PAYMENTS PER YEAR ##' 

F(25) - "AMOUNT OF SECOND MORTGAGE $# #* , ##i #M . ##' 

F(26) - "INTEREST RATE SECOND MORTGAGE % YR #t.##* 

F(27) - "LIFE OF SECOND MORTGAGE YEARS ##' 

F(28) - "NUMBER OF PAYMENTS PER YEAR ##' 

F(29) = "CLOSING COSTS $#♦# ,#•#««*. # #' 

F(30) = "OTHER COSTS OF BUYING $# ♦# , t #### t . t #' 

F(31) = "LIFE OF INVESTMENT YEARS #*' 

F(32) » "LIFE OF PROP FOR DEPRECIATION YEARS ##' 

F(33)« "PER CENT OF VALUE DUE TO LAND ##.##%' 

F(34) » "ESCLATION RATE FOR PROPERTY %/YR ##.♦#%" 

F(35) - "ESCLATION RATE FOR RENT INCREASES ♦#.##%" 

F(36) = "ESCLATION RATE FOR EXPENSE INCREASES #t.t#%" 

F(37) = "COSTS OF SELLING PROPERTY % OF PRICE M.M%" 

F(36) = "DISCOUNT RATE % t#.M%" 

F(39) - "MARGINAL INCOME TAX RATE % ##.##%" 

F(40) ■ "TAX RATE FOR CAPITAL GAINS % ##.##% 

F(41) « "ALLOWANCE FOR VACANCIES AS % OF RENTS — ##.##%" 

RETURN 

REM ************************************************ 

REM DATA STATEMENTS FOR TYPE OF APARTMENTS 

DATA 1 BED FUR, 1 BED UNFUR, 2 BED FUR, 2 BED UNFUR 

DATA 3 BED FUR, 3 BED UNFUR, END 
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WINCHESTER 
HARD DISK 

for 

TRS-80" 

Add 6.3 meg to 38 meg to your TRS- 80 



Integral Winchester* 
Business System includes: 
48K MODEL III, LDOS, - 
DISK III™, 6.3 MEG 
HARD DISK (Internet). 

$4999 




$2895 

6.3 MEGABYTE 

WINCHESTER 

HARD DISK SUBSYSTEM 

With Chassis, PS, LDOS™. 

9.5 MEG $3395.00 



VR Data Winchester HD 
Subsystem Features: 

• TRSDOS Compatible Operating System 

• State-of-the-Art Circuitry 

• Full Calibration, Test and Burn-in 

• Up to 4 drive configuration 

• Heavy duty Power supplies 

• Warranty- 120 days-parts & labor 

• 115/230 VAC, 50/60 Hz. 



Optional Mod III Configurations: 




Optional Winchester Subsystem 




9.5 Meg HD (internal) 


add $500.00 


configurations: 




80 tk 1 side floppy 


add $120.00 


2 x 6.3 meg drives 


$4495.00 


80 tk 2 side floppy 


add $240.00 


2x9.5 meg drives 


$5495.00 



TRS-80 and TRSDOS are trademarks of TANDY Corp. 
LDOS ia a trademark of Logical Syatems. 
DISK III la a trademark of VR DATA. 
Pricea Subject to change without notice. 



Phone 800-345-8102 • in PA 215-461-5300 




VR Data Corporation 
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DISK 111 



100% Compatible 



Model III Disks 



Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 



$1882 




1 DISK III smgiednve assembly includes one 40 track 
5'." double density drive, power supply, controller, 
mounting hardware, and applicable cables 



DISK III Single 

drive assy 1 $599.00 
DISK III Two 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS™ & 

Manual 21.90 

External drives 

(3&4) 299.00 



IMMEDIATE DELIVERY - COMPARE AND SAVE 

VR Data's DISK III features: 

• Completely compatible with TRSDOS 

• State-of-the-art circuitry 

• Fully tested, calibrated & bumed-in 

• Up to 4 drive configuration 

• Heavy duty linear power supply 

• Warranty 120 days - 100% parts and labor 

• Installation with simple hand tools 

• Optional 80 tk and 2 sided drives 

• READ 40 - Pgm. to read 40 tk. Diskettes 

on 80 tk. Drives $25.00 



Peripherals 




Epson MX-80 


500.00 


Epson MX-80 FT 


615.00 


Epson MX-1 00 


800.00 


Centronics 739 


700.00 


Starwriter25(P) 


1395.00 


RS-232 


95.00 


Lexicon modem 


105.00 



MODEL l/ill 
EXTERNAL DRIVE 
W/ PS & ENC 

Fully Compatible 
120 day warranty 
Easy installation 
80 tk or 2 sided 
80tk&2sided 



$275 



$419.00 
549.00 



IF YOU DONT SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT. 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III is a trademark of VR Data Corp Dealership available. 



CABLE "VRDATA" • TELEX 



OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT — 

SUPERBRAIN 
DISK & MYSTERIES 
BASIC & MYSTERIES 
NEC Ribbons (min. 6) 
Epson Ribbons 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
Internal MODEM for MOD III 



2990.00 

99.95 
22.50 
29.95 
5.95 
12.50 



149.00 



777 Henderson Boulevard • Folcroft, PA 19032 
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BUSINESS 



A software real estate information library. 



The House Detective 



Program Listing 1 



*« CASSETTE VERSION ** 



10 'PROGRAM BY JOHN COMINIO 

20 "VERSION 1.5 JUNE 17,1981 

30 DEFINTA,C,E-0,Q-Z 

40 CLEAR68OO 

SO X=100lDIMH*(X> ,P<X> ,W*<X> ,PO*<X) , S« < X) , B <X > , BA (X ) , T <X) : H1=X 

60 0NERR0RG0T01410 

70 B=l ;L=1 : V= 1 : X-0 

SO J»0lCLSl PRINTTAB (12) "REAL ESTATE INFORMATION LIBRARY" i PRINT 

90 PRINTTAB <5) " <1) — CREATE FILES" : PRINTTAB (5) " <2> — SEARCH FI 

LES"|PRINTTAB<5> "(3) — VIEW STORED FILES" » PRINTTAB <5> " (4) — SA 

VE ON CASSETTE" t PRINTTAB <5> " <5) — LOAD FROM CASSETTE" « PRINTTAB < 

5>"(6) — CHANGE FILE" iPRINTTAB <5) " <7) — DELETE FILE" 

100 PRINTTAB<5>"<8> — INSERT FILE"i PRINTTAB<5) " (9) — CLEAR FIL 

ES IN MEMORY" 

110 R*- MB iPRINT;i>768, " " | iPRINTCHR* <30) j xA=Ot INPUT "COMMAND" ; R«: A-V 

AL<R*> I IFA-0THEN1 lO 

120 IFA<10RA>9THENU0 

130 ONAGOT0140, 890,300, 460, 540, 630, 820, 1310, 1590 

140 CLSiPRINTTAB<10)"FILE NUMBER" jBj" -■ TO EXIT TYPE '*#' -«"iP 

RINT 

150 PRINT3128, " " | iPRINTCHR* (30) j iH*<B> =""i INPUT "ADDRESS? " |H* CB> 

160 IFLEN(H«(B) > >55THENH* (B) -LEFT* <H* (B) , 55 > J PRINTS 128, ■ " | iPRINT 

CHR*<30> | iPRINT" — TO LONG — SHORTENED AS FOLLOWS "JF0RR-1T05 

OOiNEXTR«PRINT3128, " " J « PR I NTCHR* ( 30 ) j » PR I NT "ADDRESS" 5 :PRINT»136, 

H*<B) s 

170 IFH*<B)="«*"ANDFL=1THEN150 

ISO IFH*(B>=""THEN150 

190 IFH« (B) ="##" THENH*<B)="":X=1 1 G0T080 

200 R«»""iPRINT3192, ""» s PRINTCHR* <30> | :P<B)=Oi INPUT"PRICE" | R*i P < 

B)=VAL<R*> : IFP (B) =0THEN200 

210 PRINT9256, " M | « PR I NTCHR« < 30 ) ; 1 W« <B) =""s INPUT"WATERFRONT <0/R/ 

C/N) ";W»(B> 

220 IFW*(B)="0"ORW«(B>="R"0RW*<B)="C"ORW*(B>»"N"THEN23OELSE210 

230 PRINT3320, ""; i PR I NTCHR* < 30 ) j iPO«<B>» INPUT M POOL <Y/N>"|PO* 

(B) 

240 IFPO* <B) ="Y"ORP0* (B) ="N"THEN250ELSE230 

250 S*<B)=""i INPUT-LOT SIZE"|S«<B> 

260 R*»"" :PRINTa448,"">»PRI NTCHR* < 30) ; 1 B(B)=0 1 INPUT" NUMBER OF BE 

DROOMS " } R* : B < B > »VAL ( R* ) j I FB < B ) =0THEN260 

270 R*»""iPRINT3512,""j 1 PRINTCHR* (30) j«BA(B>»0: INPUT"NUMBER OF B 

ATHROOMS"jR*iBA<B)«VAL(R*) « IFBA(B) »0THEN270 

280 IFFL-1THENRETURNELSEFL=0 

290 B=B+liGOT014O 

I F X -0THEN80ELSE X = 1 

IFH*(X)=" M THENX-X+1 

IFX>B-1THEN430 

330 CLSJ PRINTTAB (10) "FILE NUMBER"? X5 "== TO EXIT TYPE '#* ==":PRI 

NTTAB<24)"«" HIT 'ENTER' TO CONTINUE ==" 

340 PR I NT "ADDRESS — "jH*(X) 

350 PRINT"PRICE — "?P<X) 

360 IFLEFT*(W*(X> , 1 > «"0"THENY«»"OCEAN"ELSEIFLEFT* (W« < X ) , 1)-"C"TH 

ENY*-"CANAL"ELSEIFLEFT*(W*(X) , 1 ) - M R"THENY«="RIVER"ELSEY*="NO" 

370 PR I NT "WATERFRONT — " j Y* 

380 I FLEFT* ( PO* < X ) , 1 ) ■ " Y " THENY*= 

390 PR I NT "POOL — "jY* 

4O0 PRINT-LOT SIZE — "|S*(X> 

410 PR I NT "NUMBER OF BEDROOMS — ' 

420 PR I NT "NUMBER OF BATHROOMS — 

430 A*-INKEY*i IFA*="#"THEN80 

440 IFA**CHR*(13)ANDX<B-1THENX*X*1:G0T0310 

Program continues 



300 
310 
320 



•YES"ELSEY«="NO" 



;B(X) 
" j BA < X ) 



John Comlnlo 
626 Tortoise Way 
Satellite Beach, FL 32937 



If you work at a real estate office you 
probably know what a hassle It Is to dig 
through page after page of listings to find 
a house for a customer. I have written a 
program to store, edit and search files con- 
taining specific information on houses. 

When you finish entering the program 
and run it, the computer will display a 
menu showing all options available to you: 

• Create files. This allows you to enter 
information about a house. You can store 
the address, price, waterfront (ocean, 
river, canal or not waterfront), pool (yes or 
no), lot size, number of bedrooms and the 
number of bathrooms (see Table 1). Each 
block of information is considered one file 
and with 16K, 100 files can be maintained 
in memory. 

• Search files. This allows you to enter 
the specifications of a house you want the 
computer to search for. The specifications 
are as general or specific as you care to 
make them. You are asked for a price 
range, waterfront (yes or no), pool (yes or 
no), number of bedrooms, and number of 
bathrooms. After you have entered the 
desired Information, the computer will 
search for all houses In memory which 
have those qualifications. And if you have 
a printer it will print them out (provided you 
tell it to). 

• View stored files. This option allows 
you to look at all the houses currently in 
memory. To advance the listing, press 
Enter, or to exit, press the # key. This op- 
tion is designed as a check to let you see if 
you have correctly entered the Informa- 
tion. 
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'A compress program removes all spaces so 
it uses less memory and it runs faster." 



h$m— Mtmm 

P(x>— Price 

W$<x)— Waterfront (o/rte/n) 

POS(x>— Pool (y/n) 

SKx)— Lot tin 

B(x>— Number of bedrooms 

BA(x)— Number of bathrooms 

B— Current file number 

H1— Maximum number of Hies 

0— District number 

Table 1. Important Variables. 



• Save on cassette. This will save all 
files onto a cassette. You are prompted to 
enter a district number corresponding to 
the houses you have stored In memory. 

• Load from cassette. This will read in 
files from a cassette that were previously 
saved. It will print the district number for 
that tape on its initial read of data. 

• Change file. If you have made a 
mistake while entering information, this 
option will let you correct It. You are asked 
for the file number you want to change and 
once this is entered, you may begin to cor- 
rect it. 

• Delete file. It does just that: You enter 
a file number and it erases that file. 
However, if you are viewing flies and it 
jumps from file six to file eight, it is 
because you have deleted file seven. 

• Insert file. This will allow you to insert 
a file only if you have previously deleted 
that file. This was designed to be used if 
you sell a house and erase Its file. Then 
you can insert a new file in its place. If any 
files are open the program will tell you. 

• Clear all files in memory. This erases all 
information that is in memory. When you 
enter this command you will be asked if you 
are sure, a precaution against accidentally 
wiping out all of your files. If you answer N 
you will return to the menu with all your files 
intact. 

The actual program is about 7.5K of code, 
although It uses all 16K of memory. The ad- 
ditional 9.5K is cleared and dimensioned 
for use as file space. If you own a 32K or 
48K system, change lines 30 and 50 to in- 
crease the number of files that can be 
handled in memory at one time. 

You may have noticed there are no 
spaces in the program. I used a compress 
program to remove them all. By doing this 
the program uses less memory and It runs 
faster. I would suggest that you type it in 
without any spaces also. 

There are many error trapping routines 
used throughout the program. If you try to 
view or search the files while none are in 
memory, you will be returned to the 
menu. ■ 



Program continued 
450 BOT0430 
460 IFB-1THEN80 

470 R*-""i INPUT "DISTRICT NUMBER"|Q 
480 PRINT"SAVING"| 
490 PRINT#-1,Q,B 
500 FORT-1TOB+2STEP3 

310 PRINT#-1,H*(T) |","}H*(T*1>|", " ; H* (T+2> J " , " jP <T> J " , " |P (T+l ) | H 
, "jP(T+2> |","jW*(T)j m , m |W*(T+1)|", M »W*(T+2)|","|PO*(T)|","|PO*(T 
+1 ) » " , " j PO* (T+2) } M , M | S* (T) j " , " j S« (T+l ) } ■ , •■ | S* (T+2) | " , " | B (T) | " , " | 
B(T+1) j","»B(T+2) j","»BA(T>|", "|BA<T+l)j","|BA(T+2) 
520 NEXTT 
530 G0T080 
540 

550 Al*Bi INPUT*-1,Q,B 
560 PRINT-DISK FOR DISTRICT"|Q 
570 R*-""iPRINT»B96, " M | I PRINTCHR* (30) ji I NPUT " CONTINUE" J R*i IFLEFT 

* (R«, 1 )«"N"THENB-A1 iGOTOBOELSEIFLEFT* (R», 1 ) -"Y"THEN58OEL8E570 
580 PRINT"LOADING"i 

590 FORT-1TOBSTEP3 

600 INPUT#-1,H*(T> ,H*(T-»-l) , H*(T+2) ,P<T> ,P(T+1> ,P<T*2) ,W*(T) ,W*(T 

♦ 1 > ,W*(T+2) ,PO*(T> ,P0*(T«-1> ,P0*(T+2> ,S*(T> , S*(T+1> ,S*(T*2> , B<T) , 
B(T+1) ,B(T+2) ,BA(T) ,BA(T+1) ,BA(T+2) 

610 NEXTT 

620 X«1:G0T080 

630 CLSlP«0iPRINTTAB(25> "CHANGE FILE"! PR I NT 

640 R*-"" i PRINTS 128, ""; I PRINTCHR* (30) ? I INPUT"WHICH FILE DO YOU H 

ANT CHANGED (-1 TO EX IT) " j R*i I FR»- " " THEN640ELSEP- VAL <R*> 

650 IFP<10RP>H1THEN80 

660 IFH*(P)-" M THEN80 

670 IFP>B-1THEN80 

680 GOTO 1520 

690 0NRG0T0700, 730, 740, 760, 780, 790,800 

700 R*«""lPRINT3896,""|iPRINTCHR*(30> >lINPUT"NEW ADDRESS? "|R*iI 

FR«=" "THEN700ELSEH* <P> «R* 

710 IFLEN<H«(P> ) >55THENH«(P)-LEFT*(H*(P),55)iPRINTS896, "">i PRINT 

CHR*(30) j iPRINT" — LINE TO LONG SHORTENED AS FOLLOWS — "iFORR- 

1 T05O0 1 NE XTR I GOTO 1 520 

720 F2»liG0T01520 

730 R*«""iPRINT3896, " " | i PRINTCHR* (30) \ J INPUT"NEW PRICE"|R»iP<P> - 

VAL<R*) i IFP(P)=0THEN730ELSEF2«liG0T01520 

740 PRINT9896, ""j iPRINTCHR* (30) | I INPUT "WATERFRONT <0/R/C/N> '■ » W* ( 

P) 

750 IFW» (P) «"0"0RW« <P) «"R"0RW« (P) >"C"ORW* (P)«"N"THENF2-1 IGOT0152 

0ELSE740 

760 PRINT3896, NM | I PRINTCHR* <30) t I INPUT"POOL (Y/N) " | POS (P) 

770 IFP0*<P)""Y"0RP0*<P>-"N"THENF2=liG0T01520ELSE760 

780 PRINT9896, ""» i PRINTCHR* (30) f I INPUT"NEW LOT SI ZE" | 8* (P) I F2-1 I 

GOT0152O 

790 Rl*="":PRINTa896, " " | i PR I NTCHR* < 30 ) | I Ilvtf»UT"NEW NUMBER OF BEDR 

00MS";R1*:B(P)=VAL(R1*) i IFB(P> -0THEN79OELSEF2- 1 « GOTO 1520 

800 R2*=""jPRINT»B96, "•; iPRINTCHR* (30) j > I NPUT "NEW NUMBER OF BATH 

ROOMS " | R2* : BA ( P ) - V AL ( R2« > i I FBA < P ) -0THEN8O0ELSEF2- 1 1 GOTO 1 520 

810 GOT080 

820 CLS»PRINTTAB( 15) "DELETE A FILE" 

830 INPUT-WHICH FILE DO YOU WANT DELETED (TYPE -1 TO EXIT)"»P 

840 IFP<10RP>H1THEN80 

850 IFP>B-lTHENPRINT"NO SUCH FILE" I FORS- 1 TO 1 OOO I NEXTjGOTOBO 

860 IFP=B-1THENB-B-1 

870 H* (P) =" " »P (P) -Oj W* (P) ■" " i PO* (P> ■" " IS* (P) ■"" i B (P>-Oi BA (P) -O 

880 PRINT"FILE"|P|"DELETED"iFORS»lT01000iNEXTtGOTOeO 

890 IFH*(l)*""THEN80ELSEV-l»L»liW»BiDH»0iDL=0tCLSlPRINT"SEARCH T 

HROUGH FILES" i PRINT 

900 FORK»1TOWiT(K)»OiNEXT 

910 PRINT-PRICE RANGE l " 

920 PRINT3192, ""» I PRINTCHR* (30) j i INPUT"FR0M" | R*i DL-VAL (R*) I IFDL- 

0THEN920 

930 PRINT3256, ""| iPRINTCHR* (30) | J INPUT" TO " | R*i DH-VAL (R*) I IFDH- 

0THEN930 

940 IFDL>DHTHEN920 

950 PRINTa320,""| I PRINTCHR* (30) JJ I NPUT "WATERFRONT <Y/N)"|Y* 

960 IFY*-"Y"0RY*-"N"THEN970ELSE950 

970 PRINT33S4,""| »PRINTCHR*(30)»» INPUT"POOL (Y/N)"jYl* 

980 IFY1*-"Y"0RY1*»"N"THEN990ELSE970 

990 PRINT»448, ""| iPRINTCHR* (30) | j PRINT-NUMBER OF BEDROOMSi "iINP 

UT"FR0M"|R*iBl-VAL(R*)iIFBl»0THEN990 

1000 PRINT®576, ""| iPRINTCHR* (30) » I INPUT" TO" j R*i B2-VAL (R*) i IFB2 

•OTHEN1000 

1010 IFB1>B2THEN990 

1020 PR INT3640, ""» i PRINTCHR* (30) j i PRINT "NUMBER OF BATHROOM81 "1 IN 

Program continues 
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LOWEST PRICES 

oh TRS-80- 




Model II 64K$ 3298 




Model III 16K $$3? 




Line Printer VII. $329 



OKIDATA 

EPSON MX-70 
EPSON MX-80 



Microline 80 

Microline 82 



$394 
$499 

$369 

$4 79 



$ SAVE 

MOST ORDERS ^ 

SHIPPED WITHIN S 

ONE BUSINESS DAY 

VERBATIM DATALIFETM DISKETTES 
5'/«-inch (box of 10) $25.95 

8-inch Double-Density. $43.95 

* Payment Money Order C**h>*s 
Check. Certified Check Pereonel 
Qmta reque-e 3 *>■•>» to 0am visa. 
MASTERCHARGE — Add 3% 
WRITE OR CALL FOR OUR COMPLETE PWCE LIST. 

CALL (602) 4S8-2477 

■Mi All prices are mail order only ^tm 



RAND'S 

2185 E. FRY BLVD. 



^236 



m SIERRA VISTA, AZ 85635 

^~ TRS-80 is a trademark ol Tandy Cofjxxatioa 



Program continued 

PUT "FROM " } R» J BA=VAL ( R* ) : I FBA-OTHEN 1 020 

1030 PRINT3768, ""» iPRINTCHR* (30) j « INPUT" TO" i R*« BB-VAL <R*> i IFBB 

*0THEN1030 

1040 IFBA>BBTHEN1020 

1050 IFW*<L>- M 0"THENZZ»-"Y"ELSEIFW«<L>«"R ,, THENZZ«-"Y"EL8EIFW*(L> 

-"C"THENZZ•-• , Y••ELSEZZ«=■• , N• , 

1060 IFP(L) >=DLANDP(LX-DHANDZZ»«Y«ANDP0»(L)«Y1»ANDB(L> >=-BlANDB( 

L > < -B2ANDBA ( L ) >«BAAND8A ( L X -BBTHEN 1 080 

1070 L»L+1j IFL >WTHEN1090ELSE1050 

1080 T(V)-LiV»V+ltL-L«-l» GOTO 1050 

1090 CLSiPRINT"SEARCH COMPLETED" I IF (V-l ) -OTHENI I««"ARE" I IH*-"HOU 

SES" 

1100 IF(V-l) >1THENII«= M ARE"J IH«="HOUSES" 

1110 IF(V-l)=lTHENII*="IS"i IH«- "HOUSE" 

1120 PRINT"THERE "j I I*| (V-l > ; IH«» " WITH THOSE SPECIFICATIONS" 

1 1 30 I FT ( 1 ) -OTHENFORM" 1 T04000 » NEXT I B0T080ELSE 1 1 40 

1140 R«-""iPRINT3128, ""» : PRINTCHR* <30> « I INPUT"READY (Y/N> "|R*iR« 

-LEFT* < R* , 1 > 1 1 FR«- " N " THEN80ELSE I FR*- " Y " THEN 1 1 50ELSE 1 1 40 

1150 CLS 

1160 F0RU-1T0V-1 

1170 PRINT"HOUSE"iUj "OUT OF" | (V-l ) I PRINT"PRESS 'ENTER' TO CONTIN 

UE" i PRINT 

1180 PR I NT "ADDRESS — "tH*(T(U>) 

1190 PRINT-PRICE — "|P(T<U>> 

1200 IFW*(T(U> )="0"THENY»="OCEAN"EL.SEIFW«(T(U> > ="R"THENY*-"RIVER 

"ELSEIFW*<T(U) )*"C"THENY*-"CANAL."ELSEY«=«"NO" 

1210 PR I NT "WATERFRONT POPERTY — " J Y« 

1220 IFPO»(T(U> >»"Y"THENY*="YES"ELSEY»="NO" 

1230 PR I NT "POOL — "jY* 

1240 PRINT-LOT SIZE — M ;S*(T(U>> 

1250 PRINT"NUMBER OF BEDROOMS — "jB(T(U>) 

1260 PRINT"NUMBER OF BATHROOMS — "iBA(T(U>> 

1270 A*»INKEY«t IFA»-" "THEN1270 

1280 IFA«=CHR»(13)THENCLS:NEXTUELSE1270 

1290 PRINT30, ""J J PRINTCHR* (30) I s INPUT "DO YOU WANT A PRINTOUT <Y/ 



N) " 

1300 

290 

1310 

1320 

1330 

1340 

1350 



PI* 
IFLEFT*(P1«, 1)= 



"N"THEN80ELSEIFLEFT«(P1«, 1 ) «"Y"THEN1420ELSE1 



IFB-1-0THEN80ELSECI_S:PRINTTAB(15> "INSERT FILE": PRINT 

PRINT"OPEN FILES: " ; : FORC=lTOB-l 

IFH«(C)"""THENPRINTC: i J=l 

NEXTC 

IFC»BANDJ=OTHENPRINT"NONE OPEN" » F0RC=1T01500: NEXTCt G0T080 

1360 PRINT 

1370 INPUT"WHICH FILE NUMBER (-1 TO EXIT)":P 

1380 IFP<10RP>H1THEN80 

1390 IFP>B-1THEN80 

1400 IFHe<P)-""THENPRINT3192,CHR*(30) $ I FL-1 » Q-B: B=P: G0SUB150: B-Q 

i FL-Ox G0T080ELSE80 

1410 PRINT3832,CHR*(30) J : F0RC«1T05: PRINT3832, "*« ERROR **":F0RC1 

=lT0150tNEXTCl«PRINT»832,CHR«<30>; : F0RC1=1T0150i NEXTC1 x NEXTCt RES 

UME80 

1420 IFPEEK ( 14312) >127THENPRINT"PRINTER NOT READY" x GOTO 1290ELSEP 

RINTTAB(25) "PRINTING" 

1430 LPR I NT "FORMAT: (ADDRESS) (PRICE) (WATERFRONT) (POOL) (L 

OT SIZE) <* OF BEDROOMS) (# OF BATHROOMS)" 
1440 LPRINTSTRING«(64, "-") 
1450 F0RU=1T0V-1 
1460 IFW«(T(U> >="0"THENY»= 
"ELSEIFW*(T(U> ^"C'THENY*- 1 
1470 IFPO*(T(U) >«"Y"THENY1»-' 
1480 LPRINT" C'iH*<T(U) ) ; ") 
"xY*j ") "» « LPRINT" ("jYl«x ") 
T"("»B(T<U) >» ") "5 : LPRINT" (' 
1490 LPRINTSTRING*(64, "-") 
1500 NEXTU 
1510 G0T080 

1520 CLSxPRINTTAB(20> "CHANGE FILE" : PRINTx IFPO* (P) =*" Y"THENQ1*=*"YE 
S"ELSEQ1*«"N0" 

1530 IFW* (P) «"0"THENQ««"OCEAN"ELSEIFW« (P) 
F W» ( P ) = " C " THENQ*= " CANAL " ELSEQ»= " NO " 

1540 R»=CHR*(94>+" ": PRINT" ( 1 ) ~ ADDRESS " : R«x H« (P) : PRINT" (2) - 
- PRICE ";R«;P(P) sPRINT" (3) — WATERFRONT " « R*i Q*s PRINT" (4) — P 
OOL ";R*J01*:PRINT" (5) — LOT SIZE " j R«» S* (P) x PRINT" (6) — NUMBE 
R OF BEDROOMS " x R*; B (P) : PRINT" (7) — NUMBER OF BATHROOMS ";R*jBA 

<P> 

1550 IFF2=1THEN1570 

1560 A»-""JPRINTS>896. "" l » PRINTCHR* (30) |l INPUT"WHICH NUMBER (1-7) 

":A»i IFA*=""THEN1560ELSER=VAL(A«) : IFR< 10RR>7THEN1560ELSE690 

1570 F2=0:A«=" ": PR INT3896, " " ; : PRINTCHR* (30) i I INPUT "MORE — 

IONS (Y/N)";A«sA*=LEFT«(A«, l)xIFA«»" "THEN1570 

1 580 I FA*= " Y " THEN 1 560ELSE I F A«= " N " THENBOELSE 1 570 

1590 A»-""«PRINT5>768,""s:PRINTCHR«(30> j x INPUT"ARE YOU SURE (Y/N) 

"»A»:A«=*LEFT«(A«, 1) 

1600 IFA»="N"THEN80ELSEIFA«" 

1610 F0RR=1T0X 

1620 H*<R>=""xP<R>=OxW*<R)«""iPO»(R)=""*S«<R>-""iB<R) ! 

1630 NEXTRxB=l:L=lxV=l:X=0xG0T080 



■OCEAN"ELSEIFW«(T(U) ) «"R"THENY»*"RIVER 
' CANAL " ELSE Y*« " NOT WATERFRONT " 
•YES P00L"ELSEY1«="N0 POOL" 
"5 :LPRINT" ("xP(T(U> > ; " ) " j iLPRINT" ( 
"} i LPRINT" <"}S*(T(U) ) J ") "; JLPRIN 
' :BA(T(U> ) ; ") 



<"R"THENQ*»"RIVER"ELSEI 



CORRECT 



• Y " THEN 1 6 1 OELSE 1 590 



»OxBA(R)«0 
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Tired of typing in all 
your programs? 




Save time 
and money! 




LOAD 80 



ALL THE 

MAJOR PROGRAM 
LISTINGS FROM 
80 MICROCOMPUTING 
ON CASSETTE 

EACH MONTH 

$9.95 

pitta ti 50 posiae* & handling 



SAVE HOURS OF 
TYPING & AGGRAVATION 



'Frankly, after hundreds ol hours of frustration, i 
seldom ever try to keyboard a published program 
Inevitably, I mess it up when I keyboard it. Who needs the 
aggravation 7 

'This is why I started a new series ol cassettes called 
LOAD-80 Each cassette will have program dumps ol the 
listings in an issue of SO Microcomputing. These listings 
are direct from the authors and tested by the 30 
Microcomputing staff. All but the very short program 
listings will be on the LOAD-80 cassettes. Thus, you will be 
able to save hours of inputting programs and even more of 
debugging your Keyboard errors " 



Wayne Green 




The LOAD-80 cassette is simply the program listings 
that appear in the articles m 80 Microcomputing. It was 
created to save you the time involved In typing the listings 
yourself. Successful loading of the programs depends on 
reading the documentation in the articles, if you have your 
current magazine at hand when you load the cassette, you 
should have no difficulty. If you at ill have problems, please 
return the tape for replacement 

LOAD-80 began with the April 1981 issue. To order back 
issues, look for the back issue advertisement in this 
magazine or ask your local dealer. 

To order LOAD-80. fill In the attached card and we will 
send you your LOAD-80 cassette for the major programs in 
this issue If the card is missing, fill in the coupon be'o/. (a 
photocopy is acceptable) and mail to. LOAD-80 80 Pine 
Street, Peterborough, NH 03458 



Yes, I want the November LOAD-80 

U Check/Money Order ($9.95 plus $1.50 p&h) I MasterCard "1 VISA J Am. Ex 



n«il 



Name: 



I 
I 

Address:_ 

City: 

Signature: 
I 



State: 



Zip:. 



Card ft 



Exp. Date: 



IOA0 W & lurtultClsJfWC C, I-VIN-: Scfimre ■ ttwialoo ol WAYNE QH§EN INC.. 80 Pirta SlrMt. PtMrtOrOufiiX M1CMW TTiwe Is r»o warranty 
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INTERFACE 



Centronics . . . shake hands with the Shack, 



A Driven Printer 



Wayne Mueller 
130 Sunset Court 
Roswell, QA 30075 



ecently my Selectric printer was stolen. 

Since I need a letter-quality printer, I 
thought about another Selectric. But then I 
thought about how slow, noisy, and how 
much the old Selectric needed to be read- 
justed. I finally settled on an NEC 5530 Spin- 
writer. I knew it was faster, quieter and more 
reliable. And since it had a Centronics inter- 
face, I could "plug in and print," and forget 
about those nuisance driver routines I had 
to use with the Selectric. 

But after loading Basic and typing in a 
few lines of LPRINTs, all the lines printed on 
top of each other! When all else fails, read 
the manual. Sure enough, the manual says 
that when a carriage return is received, the 
carriage returns. . .nothing about a trailing 



line feed. Well, so much for my belief that no 
drivers were needed. 

There are actually some advantages to a 
nonautomatic line feed following a carriage 
return. For example, Software Concepts 
has a slick mail processing system that 
supports both underscores and bold-face 
characters on such printers, and I was 
tempted to just leave well enough alone. 
But then I realized that Scripsit's line feed 
and paragraph spacing was off by one, that 
I could not get a printout from the editor/as- 
sembler, and that nearly all of my Basic pro- 
grams were going to have to be reworked. 

At this point, it started to look a lot easier 
to write a little driver routine to add a line 
feed after each carriage return. It did turn 
out that I needed more than one driver. This 
article may benefit a few others who find 
themselves in the same fix. 

Look at Program Listing 1. The TRS-80 
has several device control blocks (DCBs). 
The DCB which starts at 4025H is normally 







00100 


;GENERAL HI-HEM 


NEC SPINWRITER DRIVER 






00110 


;WITH 


SCREEN DISPLAY INCLUDED 


4467 




00120 


DISPLA 


EQU 


4467H 


;DOS DISPLAY CALL 


4025 




00130 




ORG 


4025H 


;FIX PRINTER DCB TO: 


4025 


02 


00140 




DEFB 


2 


; -LOOK LIKE A PRINTER 


4026 


68FF 


00150 




DEFW 


BUSY 


; -HOLD NEW DRIVER ADDRESS 


4049 




00160 




ORG 


4049H 


;SET MEMORY PROTECT 


4049 


66FF 


00170 




DEFW 


BUSY-2 


j TO JUST BELOW THIS DRIVER 


FF50 




00180 
00190 
00200 




ORG 


0FF50H 


;** OR USE WHATEVER OTHER START 

; LOCATION IS RIGHT 

; FOR YOUR SIZE MACHINE ** 


FF50 


E5 


00210 


START 


PUSH 


HL 


;SAVE HL 


FF51 


2159FF 


00220 




LD 


HL,MSG 


; POINT TO START OF MESSAGE 


FF54 


CD67 44 


00230 




CALL 


DISPLA 


;CALL DOS TO DISPLAY MESSAGE 


FF57 


El 


00240 




POP 


HL 


; RESTORE HL 


FF58 


C9 


00250 




RET 




;AND RETURN 






00260 


;0R JUMP TO DOS 


(402DH) 


IF YOU PREFER 


FF59 


4£ 


00270 


MSG 


DEFM 


'NEC DRIVER ON' ; TEXT OF DISPLAY 


FF66 


0D 


00280 




DEFB 


0DH 


; CARRIAGE RETURN AFTER MSG 


FF67 


00 


00290 




DEFB 





;END OF MESSAGE 


FF68 


3AEB37 


00300 


BUSY 


LD 


A,(37E8H) ;GET PRINTER STATUS 


FF6B 


E6F0 


00310 




AND 


0F0H 


;GET UPPER 


FF6D 


FE30 


00320 




CP 


30H 


; PART OF STATUS WORD 


FF6F 


20F7 


00330 




JR 


NZ,BUSY 


; KEEP TRYING IF NOT READY 


FF71 


79 


00340 




LD 


A,C 


;GET CHARACTER TO PRINT 


FF72 


32E837 


00350 




LD 


(37E8H) 


A ; CHARACTER TO PRINTER 


FF75 


79 


00360 




LD 


A,C 


;TAKF. ANOTHER LOOK AT CHARACTER 


FF76 


FE0D 


00370 




CP 


0DH 


;IS IT CARRIAGE RETURN? 


FF78 


C0 


00380 




RET 


NZ 


j IF NOT, WE'RE DONE 


FF79 


0E0A 


00390 




LD 


C.0AH 


; IF SO, LOAD LINE FEED, 


FF7B 


18EB 


00400 




JR 


BUSY 


; AND OUTPUT IT 


FF50 




00410 




END 


START 


;AUTO START 










Program Listing 


1 



used for the line printer. So, what we are do- 
ing at lines 130-150 is telling the machine 
that we have a line printer (line 140), and the 
address of the driver routine is labeled 
Busy. The assembler can determine the cor- 
rect numeric address from the label. At 
lines 160-170, we are protecting some high 
memory for this driver. The TRS-80 stores 
the end of unprotected memory in 4049H. 
What we told the assembler here was that 
we wanted unprotected memory to end two 
words less than Busy. Again, the assembler 
is smart enough to do the arithmetic to find 
the actual address. Notice that we have not 
moved any data yet. If just this part were 
loaded, that would be sufficient to tell the 
machine to expect a different printer-driver 
address, and to protect high memory. 

The Driver 

The ORG at line 180 says we want the 
driver to start at FF50H, or 65360 decimal. If 
you want it somewhere else, or have a 
smaller machine, use some other value. For 
example, 7F50H (32592 decimal) would 
work well on a 16K machine. The printer 
port on the TRS-80 is mapped to 37E8H. 
Line 300 gives us the printer status. The 
printer returns to its state of readiness to re- 
ceive characters to this address. Between 
lines 300-330, we are looking for a printer 
ready signal. If it is not ready, we keep loop- 
ing back to Busy at line 300. When we get to 
line 340, the printer is ready to accept a 
character. 

The next character comes to us in reg- 
ister C, just because that is where the 
machine puts it. So we load it into register A 
at 340, and send it to the printer port at 
line 350. 

Up to here we have not done anything dif- 
ferently from the standard ROM driver. But 
now is when we take care of the needed line 
feed. The last character is still in register C, 
so we load it again at line 360, and see if it 
was a carriage return at line 370. If not, we 
are done, and we return control to whatever 
routine called us. If it was a carriage return, 
we load a line feed into register C at line 
390, and jump back to the start of the driver 
(Busy) at line 400. This driver takes care of 
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"/ find it disquieting when 
I run a program, and nothing happens. . . " 



almost all of our printing needs. 

Program Listing 2 

This is a bare bones, minimum routine. 
Specifically, I find it somewhat disquieting 
when I run a program, and nothing happens 
on the screen to confirm that it is working. 
Program Listing 2, is similar to Listing 1 and 
also displays a message to let us know it is 
working. The line numbers are the same as 
Listing 1, but we have added a few things in 
the empty spaces. 

Notice line 120. There is a label called 
Display, which refers to a DOS routine at 
4467H that displays text. Also notice that 
lines 210-290 are added. Lines 270-290 
define the message, while 210-250 do the 
work. The text of the message "NEC Driver 
On" is at line 270, a following carriage 
return is at line 280, and the zero at line 290 
simply tells DOS that this is the end of the 
message. 

Now let's see how it is displayed. The HL 
register pair must point to the start of the 
message text, but HL may be in use for 
something else. So, we save HL at line 210 
by PUSHing it onto the stack, point it to the 
beginning of the message at line 220, and 
call Display at line 230 to display the text on 
the screen. Finally, we restore HL to its pre- 
vious condition by POPping it off the stack 
at line 240, and return to the calling routine. 
The only other change is at line 410. We 
have added the label Start after the end to 
tell the loader that we want to jump to Start 
automatically after loading the routine. 
These changes do not affect the printer 
driver, but now I can see something happen- 
ing on the screen when I load the routine. 

Other Annoyances 

This takes care of almost all my printer 
driver needs but there are still a few annoy- 
ances that need attention. The first is Scrip- 
sit's behavior. Scripsit works fine until near- 
ly all of the text buffer is full. Then it pro- 
ceeds to overwrite my driver with text. 
Worse, it does not tell me until I try to print, 
which results in a spectacular crash, and a 
machine lockup. 

The second item is those Basic programs 
that already protect high memory, and use 
the protected space for some other ma- 
chine-language routine. Some of these 
other routines behave nicely if you just load 
the printer driver first, and the other routine 
just above it. But some of them use all of 
protected memory for their own purposes, 
and again overwrite my driver with unplea- 
sant results. 

Fortunately, Radio Shack offers some 
patch code that modifies Scripsit to work 
with a variety of non-Radio Shack printers. 

Program Listing 3 is mostly Radio 
Shack's, with my driver embedded. Not all 



of the Radio Shack code was used, because 
not all was needed. A few things in the 
patch code are worth noting. We see at 
lines 310-320, that Scripsit does not use the 
value stored at 4049H for memory protect. 
Rather, whatever you want to declare as 
protected memory must be stored in 5268H. 
This is why Scripsit used to overwrite my 
driver. 

My driver runs from lines 560-680, and it 
looks a bit different from what we have 
discussed so far. The first thing we do at 



line 560 is output a character from the A 
register. This is because Scripsit has 
already put the character in A, and checked 
to make sure the printer is ready. From here 
on, things start to look familiar. That is, we 
check to see if the last character was a car- 
riage return, and output a line feed if it was. 
At line 620, the printer status checks again 
for line feed, so that Scripsit knows we want 
to print an extra character, and will check to 
see if the printer is ready. 
Notice line 710. If you do not have lower- 





00100 .GENERAL HI-MEM NEC SPINWRITER 


DRIVER 


4025 


0BI38 




ORG 


4025H ,-FIX PRINTER DCB TO: 


4025 02 


00140 




DEFB 


2 ; -LOOK LIKE A PRINTER 


4026 50FF 


00150 




DEFW 


BUSY ; -HOLD NEW DRIVER ADDRESS 


4049 


00160 




ORG 


4049H ;SET MEMORY PROTECT 


4049 4EFF 


00170 




DEFW 


BUSY-2 ; TO 


JUST BELOW THIS DRIVER 


PP50 


00180 




ORG 


0FF50H ;** OR 


USE WHATEVER OTHER START 




00190 






; LOCATION IS RIGHT 




00200 






; FOR 


YOUR SIZE MACHINE ** 


FF50 3AE837 


00300 BUSY 


LD 


A, (37E8H) 


jGET PRINTER STATUS 


FF53 E6F0 


00310 




AND 


0F0H ;GET UPPER 


FF55 FE30 


00320 




CP 


30H ; PART 


OF STATUS WORD 


FF57 20F7 


00330 




JR 


NZ,BUSY ; KEEP TRYING IF NOT READY 


PF59 79 


00340 




LD 


A,C ;GET CHARACTER TO PRINT 


FF5A 32E837 


00350 




LD 


(37E81I) ,A 


.•CHARACTER TO PRINTER 


FP5D 79 


00360 




LD 


A,C ;TAKE 


ANOTHER LOOK AT CHARACTER 


FF5E FE0D 


00370 




CP 


0DH ;IS IT CARRIAGE RETURN? 


FF60 C0 


00380 




RET 


NZ ;IF NOT, WE'RE DONE 


PF61 0E0A 


00390 




LD 


C,0AH ; IF 


SO, LOAD LINE FEED, 


FF63 18EB 


00400 




JR 


BUSY ; AND OUTPUT IT 


0000 


00410 




END 












Program Listing 2 


. 








Prog 


ram Listing 3 


1 




00100 


THIS 


ROUTINE 


LOADS AND MODIFIES SCRIPSIT TO PERMIT 




00110 


USE OF YOUR OWN PRINTER DRIVER 




00120 












00130 


IT SHOULD BE 


LOCATED IN HIGH 


RAM. THIS EXAMPLE IS 




00140 


LOCATED AT 0FF60H FOR A 65 K 


MACHINE 




00150 










FF60 


00160 




ORG 


0FF60H 




FF60 


00170 


PARLEL 


EQU 


0FF60H 


; ENTRY ADDRESS 


FF60 E5 


00180 




PUSH 


HL 




FP61 21E3FF 


00190 




LD 


HL, SWITCH 


;TEST FOR 1ST CALL 


FF64 34 


00200 




INC 


(HL) 




PP65 35 


00210 




DEC 


(HL) 




PF66 El 


00220 




POP 


HL 




FP67 2038 


00230 




JR 


NZ, PATCH 


|GO IF NOT 1ST CALL 


FF69 11E4FF 


00240 




LD 


DE,DCBADR 


jDE-> FILE SPEC 


FF6C CD3044 


00250 




CALL 


LOAD 


> OPEN AND LOAD SCRIPSIT 


FP6F CD2844 


00260 




CALL 


CLOSE 


j CLOSE COMMAND FILE 


FF72 3E01 


00270 




LD 


A,l 


j SET SWITCH TO SKIP THIS 


FP74 32E3FF 


00280 




LD 


(SWITCH) ,A 


;CODE ON PUTURE CALLS 


PF77 3E21 


00290 




LD 


A.21H 


; PATCH SCRIPSIT 


PF79 326752 


00300 




LD 


(5267H) ,A 


; TO PROTECT 


PP7C 215FFF 


00310 




LD 


HL,PARLEL-1 


> THIS DRIVER 


FF7F 226852 


00320 




LD 


(5268H) ,HL 




PF81 323F66 


00340 




LD 


(663FII) ,A 


;YOUR I NIT. ROUTINE 


FP84 3ECD 


00350 




LD 


A,0CDH 


; PATCH SCRIPSIT TO RUN 


FP86 329E7A 


00360 




LD 


(7A9EH) ,A 


; YOUR DRIVER ROUTINE 


FF89 32977A 


00370 




LD 


(7A97H) ,A 




FF8C 21DFFF 


00380 




LD 


HL.INIT 


;ADD OF INITIALIZATION 


FF8F 224066 


00390 




LD 


(6640H) ,HL 


; ROUTINE 


FF92 2160FF 


00400 




LD 


HL, PARLEL 


[ADDRESS OF YOUR DRIVER 


FF95 229F7A 


00410 




LD 


(7A9FH) ,HL 


ROUTINE 


PF98 22987A 


00420 




LD 


(7A98H) ,HL 




FF9B C30052 


00430 




JP 


5200H 


; ENTER SCRIPSIT 


FF9E ED43EDFF 00440 


PATCH 


LD 


(SAV1) ,BC 


; SAVE THE REGISTERS 


FFA2 ED53EFFF 00450 




LD 


(SAV2) ,DE 




FFA6 22F1FP 


00460 




LD 


(SAV3) ,HL 




FFA9 ED73F3FF 00470 




LD 


(SAV4) ,SP 




FFAD 32F5FF 


00480 




LD 


(SAV5) ,A 


Program continued 
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"This means that we have to 

change a few pointers so 

List and Edit know where to look 



1$ 



Program continued 










PPB0 


CDC6FF 


00490 




CALL 


OUTPUT 


FFB3 


ED4BEDFF 


00500 




LD 


BC,(SAV1) ; REPLACE THE REGISTERS 


FFB7 


ED5BEFFF 


00510 




LD 


DE, (SAV2) 


FFBB 


2AF1FF 


00520 




LD 


HL, (SAV3) 


FFBE 


ED7BF3FF 


00530 




LD 


SP, (SAV4) 


FFC2 


3AF5FF 


00540 




LD 


A, (SAV5) 


FPC5 


C9 


00550 




RET 




FFC6 


32E837 


00560 


OUTPUT 


LD 


(37E8H),A ; OUTPUT CHARACTER 






00570 


; PRINTER STATUS 


IS OK — SCRIPSIT CHECKED FIRST 


FPC9 


3AF5FF 


00580 




LD 


A,(SAV5) ;TAKE ANOTHER LOOK 


PPCC 


FE0D 


00590 




CP 


0DH ;IS IT CARRIAGE RETURN? 


FFCE 


CI 


00600 




RET 


NZ ;IF NOT WE'RE DONE 


FFCF 


0E0A 


00610 




LD 


C,0AH ;PUT LINE FEED IN C, 


FFD1 


3AE837 


00620 


BUSY1 


LD 


A,(37E8H) jGET PRINTER STATUS 


FFD4 


E6F0 


00630 




AND 


0F0H ; CHECK UPPER 


FFD6 


FE30 


00640 




CP 


30H j PART OF STATUS BYTE 


FFD8 


20F7 


00650 




JR 


NZ,BUSY1 ;IF BUSY KEEP TRYING 


FFDA 


79 


00660 




LD 


A,C /PRINTER READY-GET LF IN A, 


FFDB 


32E837 


00670 




LD 


(37E8H) ,A ;AND OUTPUT IT. 


FFDE 


C9 


00680 




RET 


;ALL DONE—BACK TO SCRIPSIT 


FFDF 


C9 


00690 


INIT 


RET 


; RETURN 


FPEB 


00 


00700 


SWITCH 


DEFB 


/BUCKET TO STASH SWITCH 


FFE1 


53 


00710 


DCBADR 


DEFM 


'SCRIPSIT/LC ; OR USE ' SCRIPSIT/UC ' 


FFEC 


03 


00720 
00730 


; 


DEFB 


3 ;MARK END OP FILESPEC 


4430 




00740 


LOAD 


EQU 


4430H ;CALL DOS TO LOAD FILE 


4428 




00750 
00760 


CLOSE 


EQU 


4428H /CALL DOS TO CLOSE FILE 


FFED 


0000 


00770 


SAV1 


DEFW 


0000 /REGISTER SAVE AREA 


FFEF 


0000 


007 80 


SAV2 


DEFW 


0000 


FFF1 


0000 


00790 


SAV3 


DEFW 


0000 


FFF3 


0000 


00800 


SAV4 


DEFW 


0000 


FFF5 


00 


00810 


SAV5 


DEFB 


00 


FF60 




00820 




END 


PARLEL 



case, you would substitute Scripsit/UC. 
Also notice lines 250-260 and 740-750. 
These refer to DOS calls which bring Scrip- 
sit into memory, and close the file. This pro- 
gram loads Scripsit; you don't have to. 

The Last Problem Solved 

There are some machine language rou- 
tines you might want to use from Basic that 
treat all of protected memory as their ex- 
clusive domain. Sometimes another routine 
in high memory works, sometimes not. My 
approach was to relocate the Basic pro- 
gram text area upwards, and run the driver 
from where the Basic text used to be. This 
means that we have to change a few point- 
ers, so routines like List and Edit know 
where to start looking, and CLOAD knows 
where to put what it is reading. The hardest 
part was finding the right pointers. 

Program Listing 4 is similar to Listing 2. 
At lines 160-170, the assembler was in- 
structed to determine the address two 
bytes beyond the label Last, and store that 
in 40A4H, which is where Load and CLOAD 
can determine where to start putting the 
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A completely refurbished 
IBM Selectric Terminal with 
built-in ASCII Interface. 

*FOR YOUR TRS-80 WITH OR WITHOUT 
EXPANSION INTERFACE. AVAILABLE WITH 
CENTRONICS TYPE PARALLEL PORT. 



Features: 

• 300 Baud Serial 

• 14.9 characters per second 
printout 

• Reliable heavy duty Selectric 
mechanism 

• RS-232C Interface 

• Documentation included 

• 60 day warranty — parts and 
labor 

• High quality Selectric print- 
ing Off-line use as typewriter 

• Optional tractor feed 
available 

• 15 inch carriage width 



Also works with Exa- 
tron's Stringy floppy, 
for fast loading of pro- 
grams. (Has RS232 
built in stringy) 

HOW TO ORDER 
DATA-TRANS 1000 

1. We accept Visa, Master 
Charge. Make cashiers checks or 
personal check payable to: 

DATA-TRANS 

2. All orders are shipped 
F.O.B. San Jose, CA 

3. Deliveries are immediate 




fete 



I 



Desk and table top models also available. 



For orders and information 

DATA-TRANS 

45277 Fremont Blvd., #7 ,-»« 
Fremont CA 94538 

Phone: (408) 263-9246 
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ZIP UP YOUR 
MODEL I 



SPEED-UP UNIT - an easy to install electronic device that enables programs 
to run 2 to 3 times taster It's the fastest and finest quality speed-up unit 
on the market. 

• guaranteed to double processing speed- no additional 
purchases required. 

• programs will run up to 3 times faster (5.3 mhz) by adding 
a Z80B microprocessor and delay line • not supplied. 

• returns automatically to normal speed during disk and 
cassette operation - no software patches required. 

• keyboard power-on light changes color to indicate operating 



$45.00 



VIDEO I. Reverses the video display to provide black characters and 
graphics on an all white screen for a much easier to read presentation. 
Software controlled. Cures pulling and distortion problems commonly ex- 
perienced with TRS-80 monitors. For use with TRS-80 monitors only. 
Assembled 

$24.00 



'SATISFACTION GUARANTEED" 



Add S2.D0 postage & handling - California residents add 6% sales tax 
-Foreign orders add 15%. 



ARCHBOLD ELECTRONICS 

10708 Segovia Way Rancho Cordova, CA 95670 

(916) 635-5408 

Dealer inquiries invited 




TRS-80 
CASE 



ATTACHE STYLE CASES FOR CARRYING AND PROTECTING A COM- 
PLETE COMPUTER SET-UP CONSTRUCTED OF THE HIGHEST QUALITY 
LUGGAGE MATERIAL WITH SADDLE STITCHING WILL ACCOMMODATE 
EQUIPMENT IN A FULLY OPERATIONAL CONFIGURATION ALONG WITH 
MANUALS. WORKING PAPERS AND DISKS NEVER A NEED TO REMOVE 
EQUIPMENT FROM CASE SIMPLY REMOVE LID. CONNECT POWER AND 
OPERATE LID CAN BE REPLACED AND LOCKED FOR SECURITY AND 
PROTECTION WITHOUT DISCONNECTING CABLES FULLY TESTED 

• AP101S Apple and Single Disk Drive $109 

• AP102D Apple and Double Disk Drive 119 

• AP103M Apple, 9 inch Monitor and Double Drive 129 

• RS201 TRS-80, Expansion Unit and Double Drive 109 

• RS202 TRS-80 Monitor and Accessories 84 

• P401 Paper Tiger Printer 99 

• P402 Line Printer ll-Centronics 730 89 

• CC90 Matching Attache Case 75 



•"*> CariPUTER CASE canppNY 

b650 INDIANA MOUNO CT COLUMBUS OmiO 432<3 
i6'4i 868 9464 





Make 
More 




midwest Scientific Instruments 

ty 5 when selecting a 
business computer, means buying a system 
that will save you enough money to pay for 
itself in a reasonable amount of time. 
Midwest Scientific Instruments has the 
most advanced microcomputer in the mar- 
ketplace, excelling in hardware design and 
software support. Our computers will handle 
a larger business, faster, yielding you more 
results for your investment. 

Let Midwest Scientific Instruments help 
you make more money. We have systems for 
your business, scientific, educational, pro- 
fessional, industrial control, or personal 
applications. Inquire today. 

For more information about MSI systems, 
products, and OEM components, fill out the 
coupon below (a photocopy is acceptable) 
and mail to: ^ 

midwest Scientific Instruments 

220(A) W. Cedar, Olathe, Kansas 66061 

YES, I want to make more moneyT 

Name 



Address 
City 



.State. 



Zip- 



• See List of Advertisers on page 402 



My application is: D Personal □ Business 

□ Scientific □ Educational □ Professional 

□ Industrial Control 3 Other (specify) 
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"We are not protecting memory here 
because this routine is already protected." 



text. At lines 180-190, we are changing the 
next available byte pointer to contain the 
address four bytes beyond Last. Line 200 in- 
structs this routine to start where Disk 
Basic text used to start. If you want to use 
this for Level II Basic, set the ORG at 42E9H 
(17129 decimal). About the only other differ- 
ences are the jump to Basic at line 250, and 
the zeros at Lines 400-420. Basic text is 
always terminated by a series of zeros, so 
that List and LLIST know where to stop. 

There is one omission from Listing 2. We 
are not protecting memory here. That is be- 
cause this routine is already protected by 
being in a place where other routines are 
not likely to interfere. You can protect high 
memory when you enter Basic and use all of 
it for whatever other machine language 
routines you might need. 

The Spinwriter is a nice piece of equip- 
ment, and I'm thoroughly pleased with it, 
now that I have the software to drive it 
properly. ■ 

Cassette and disk versions of the listings in 
this article are available from the author. 







00100 


.•ROUTINE RELOCATES START OF BASIC PROGRAM TEXT, SO 






00110 


;NEC SPINWRITER 


DRIVER CAN RESIDE IN LOW MEMORY. 


4467 




00120 


DISPLA 


EQU 


4467H 


;DOS DISPLAY ROUTINE 


4025 




00130 




ORG 


4025H 


; PRINTER DEVICE CONTROL BLOCK 


4025 


02 


00140 




DEFB 


2 


; DESCRIBE AS PRINTER 


4026 


606A 


00150 




DEFW 


BUSY 


; ADDR OF DRIVER— >4026 


40A4 




00160 




ORG 


40A4H 


;CLOAD START POINTER 


40A4 


776A 


00170 




DEFW 


LAST +2 


; STASH END DRIVER +2 


40P9 




00180 




ORG 


40F9H 


;NEXT FREE TEXT BYTE POINTER 


40F9 


796A 


00190 




DEFW 


LAST+4 


; STASH END DRIVER +4 


6M6 




00200 




ORG 


6A46H 


;WHERE BASIC TEXT USED TO BE 


6A46 


E5 


00210 


START 


PUSH 


HL 


;SAVE HL 


6A47 


21516A 


00220 




LD 


HL,MSG 


; POINT TO MESSAGE 


6A4A 


CD6744 


00230 




CALL 


DISPLA 


;CALL DOS TO DISPLAY MESSAGE 


6A4D 


El 


00240 




POP 


HL 


; RESTORE HL 


6A4E 


C3191A 


00250 




JP 


1A19H 


;JUMP TO BASIC 


6A51 


4E 


00260 


HSG 


DEFM 


'NEC DRIVER ON' ;MSG FOR DISPLAY 


6A5E 


ID 


00270 




DEFB 


0DH 


; CARRIAGE RETURN AFTER MSG 


6A5F 


00 


00280 




DEFB 





:END OF MESSAGE 


6A60 


3AE837 


00290 


BUSY 


LD 


A,(37E8H) ;GET PRINTER STATUS 


6A63 


E6F0 


00300 




AND 


0F0H 


; AND SEE 


6A65 


FE30 


00310 




CP 


30H 


; IF READY BIT IS OK 


6A67 


20F7 


00320 




JR 


NZ,BUSY 


;IF NOT, KEEP CHECKING 


6A6 9 


79 


00330 




LD 


A,C 


; ELSE GET CHARACTER TO PRINT 


6A6A 


32E837 


00340 




LD 


(37E8H) 


A ;AND OUTPUT TO PRINTER 


6A6D 


79 


00350 




LD 


A,C 


;TAKE ANOTHER LOOK AT CHARACTER 


6A6E 


FE0D 


00360 




CP 


0DH 


; IS IT CARRIAGE RETURN? 


6A70 


CI 


00370 




RET 


NZ 


; IF NOT, WE'RE DONE 


6A71 


0E0A 


00380 




LD 


C,0AH 


; IF SO, PUT LINE FEED IN C, 


6A73 


18EB 


00390 




JR 


BUSY 


; AND KEEP GOING. 


6A7 5 


0000 


00400 


LAST 


DEFW 


0000 


;TELL LIST, ETC WHERE TO QUIT 


6A77 


0000 


00410 




DEFW 


0000 


; LOOKING FOR MORE 


6A7 9 


0000 


00420 




DEFW 


0000 




6A46 




00430 




END 


START 


;AUTO START 










Program Listing 


4 



Really, what can you do with a dual sided 
disk drive on a Model I? Nothing - without 
the Dual Sided Disk Kit. Using it you can 
put up to 3 of them on your system. You 
don't have 3 dual sided drives? Now you can 
add them - painlessly. This kit lets you mix 
dual and single head drives, in any 
combination. That's not all, 35-, 40-, 77-, 
and 80-track drives can be combined in any 
order. 

The good news gets better. The Dual Sided 
Disk Kit isn't a new operating system, it's a 
set of fully tested patches applied to 
TRSDOS 2.3 or NEWDOS 2.1, and a special 
3 drive disk cable. You can continue using 
your system exactly the way you always 
have. You'll have more disk storage 
potential (1228 thousand bytes instead of 
358 thousand), and incredible flexibility. 

The Dual Sided Disk Kit is 100 % 
compatible with your existing system, you 
can read your old diskettes and ones you 
create can be read on any other system. 
There are no new commands to learn. It will 
automatically detect your drive 
configuration. FORMAT, COPY, 
BACKUP, and SUPERZAP have been 
modified to prompt you for the the drive 
characteristics. The kit is so smart that if 
you copy a big disk to a small one (say an 
80-track dual sided to a 35-track single 
sided), it lists any files that weren't fully 
copied. Also, dual sided drives are treated as 
single drives with twice as many tracks. Files 
can overflow from one side to the other and, 
naturally, there's only one directory per 
diskette. 



The only thing easier than using the Dual 
Sided Disk Kit is installing it. No tools are 
required. Just connect the new drive cable 
and press RESET - that's all. By the way, 
the same is true for any dual headed drives 
you add to your system - no drive 
modifications are needed - plug 'em in and 
go. 

But of course we've saved the best news for 
last. The price is just $79.95 (plus $2.50 
shipping, Ca. residents add 6% sales tax). 
Now, two heads really are better than one. 

• Mix and match single and double headed drives 

• Mix and match drive sizes (35 to 80 tracks per side) 

• 100% upward and downward comparability with 
diskettes created under TRSDOS 2.3 or NEWDOS 2.1 

• No drive modifications needed to run dual sided drives 

• No computer modifications required 

• Uses a single directory per diskette (up to 320 
granules/diskette) 

• Supports up to 3 drives 

• COPY, BACKUP, and FORMAT prompt driven 

• Copies 80 track onto 35 track and lists excluded files 

• Dual headed drives treated as single drive! 

• Includes special 3 drive cable 

• Complete hardware and software documentation 

• Easy installation - cable change only (supplied! 

-584 
NAIL DOWN YOUR ORDER TODAY! 1 




State Zip 

size: D35 D40 077 D80 
DOS :^7TRSDOS 2.3 ONEWDOS 2.1 
i Please charge my: MC □ Visa D 



Account number 

Expires Bank No 

Signature 







ARE 



HEADS 
BETTER 
TIL IV 1? 



COMPUTER DESIGN LABS 

P.O. Box 219 

Garden Grove, CA. 92612-0219 

(714)539-1211 



UIH4T DOES 
80 miCROCOIYlPUTING 

DO FOR YOU? 



!• provides you with more information on your TRS-80* than any other single source 

• gives you 20-30 new programs to use each month 

• reviews equipment and software so you know what or what not to buy 

• gives you the truth about the TRS-80— its good points and its limitations 
{80 Microcomputing is not affiliated with Tandy) 

• lets you save money— lots of it— by comparison shopping within the ad pages 

• clues you in on how other TRS-80 owners are using and updating their systems 

• lets you in on what is really happening in the industry 

• brings you Wayne Green's outspoken 
and often controversial editorials every 
month 

• and best of all it gives you a no risk 
subscription offer- H PG^V 

■ d(J 

Subscribe today -if you are not satisfied with M 
the first issue— write "cancel" across your ■ 
invoice and send it back. m 

The 80 Microcomputing is yours to keep. 



r 



teKj^ 



■1 



r 
i 

i 

| Si. 



J 



YES 



want 80 Microcomputing 

J Bill me $25.00 for a year's subscription 
Bill my D AE D MC LJ VISA 
'. I Check enclosed 



Name 




ROBOTICS 



Address 
City 



State 



— Zip- 



ignature 



Expire Date 
. Interbank #. 



31NB8 , » 



Canadian 1 year only/US funds $27.00 Foreign 1 year only/US funds $35.00 

80 Microcomputing • PO Box 981 • Farmingdale, N.Y. 11737 

*TRS-80 is a trademark of Tandy 
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TRS-80* Computer Owners... 

Great New Access 




Con Corner . . . 





t Fully Tested 
AFD Mini-Disk Drives 

from 

• Every Access Floppy Disk drive is electrically tested, mechan- 
ically tested and burned-in 48 hours under operating condi- 
tions. Look for the signed test list in the shipping carton. 

• AFD drives are capable of either single- or double-density op- 
eration. AFD-100 ,M drives store 102-Kbytes in single-density, 
180 Kbytes in double density. AFD-200' M drives store 205 
Kbytes in single-density, 364 Kbytes in double density. And 
these are formatted file storage capacities. Moreover, you can 
store twice these amounts on a single diskette using AFD 
"flippy" drives (AFD-100F'" or AFD-200F" drives). 

• 15-day free trial offer . . . comprehensive 90-day limited war- 
ranty . . . unbeatable prices . . . AFD-100 @ $275.00, -100F 
Cu $329.00, -200 <§ $429.95, -200F Cn $449.95. 



MOW! 



Percom Drives for Your Model III ! 




Internally mounted drives that feature "flippy" capability, double- or single- 
density storage, comprehensive pre-delivery testing, 48-hour burn-in and, best 
of all, Percom's widely acclaimed disk controller. A First-Drive System includes 
the four-drive disk controller, one or two drives, cables and a fully illustrated 
owners manual. Use Model III TRSDOS*, Percom OS-80t and other Model III 
compatible DOSs. 

Prices: Complete First-Drive System w/1 drive only $560.00 

w/2 drives only $860.00 

Note: If you prefer not to make the First-Drive System installation, we will 
do it for only $29.95 plus shipping (if shipped). This includes a 48-hour 
operating burn-in of your Model III computer, installation of the drive sys- 
tem and final checkout of the expanded system. 



How to order Order by cal'ing Access Unlimited toll-free on 1-800-527-3475. Or order by mail 
Orders may be charged to a VISA o' Master Card accourt, or paid by cashier's check, certified 
check or money order COO orders require 25% deposil. Sorry, we cannot accept personal 
checks. We pay shipping and insurance charges on orders over $1 ,000.00. Add approximate in- 
surance and shipping charges for orders under $1,000.00 If in doubt about these charges, ask 
when you can in your order Texas residents include 5% sales tax. Minimum mail order $20 00 
Allow 2 to 4 weeks for delivery 

Technical & Texas (214) 690-0206. 

Save! Ask about quantity discounts for TRUGs. 

Save! VISA and Master Card charges are not deposited 

until the day your order is shipped. 



PRICES AND SPFCIHCATIONS SUBJECT TO CHANGE WITHOUT NOTICE 



Unlimited Access! 
Easy to get to That s our new walk-in computer 
center on Central Expressway in suburban Dallas 



RICHARDSON 

UTO 

*v ACCESS 
V uMJWTLU 




_ 




Same Old Savings Galore. 




1111 



Upgrade Your Model I to Double Density 

only $ 1 59 s - 5 

And not with some unproven hacker's kit, either. But with an assembled and fully 
tested Percom DOUBLER-lh. The DOUBLER-llt simply plugs into the disk drive 
controller socket of your Expansion Interface. Then it lets you store over four 
times more on one side of a diskette, depending on the drive, than you can store on 
standard Tandy Model I drives. Other features: • Reads, writes and formats either 
single- or double-density • Includes DBLDOS'", a TRSDOS* compatible disk- 
operating system • Runs TRSDOS*, NEWDOStt, Percom OS-80t and other 
single-density software immediately. Change to double-density operation when con- 
venient • Lets Model III software be read on your Model I • Includes on-card high- 
performance data separation and write precompensation circuitry. 




Microline-80 Printer 
Grand-Opening Special $399.95 (regular $446 m 

Compare the Microline-80 feature-for-feature with any other competi- 
tively priced printer. • Uses standard roll paper, fan-fold forms or 
individual sheets. • Prints expanded characters and graphics. • Prints 
96 ASCII characters (9x6 dot format), 64 graphic characters (12x6 dot 
format). • Throughput is 80-characters per second, standard-width 
characters. • Print head is rated at 200 million characters. • Compact, 
lightweight, quiet. 





Low-Cost System Furniture 

Desks from Printer Stand 

$115. only $144. 

Modular design accommodates customized arrange- 
ments • Furniture quality styling and construction 
• TRS-80* compatible colors • Units knockdown for 
easy transportation. 




Save! Make ACCESS your one-call shopping center for TRS-80* 
hardware and software. Call our toll-free order number for free 
product literature and latest prices. 

AUTHORIZED 
PERCOM SALES AND SERVICE CENTER 



Toil-Free 
Order No. 



1-800-527-3475 



(orders & literature only) 



ACCESS UNLIMITED 



-T- iK i'—iV c' Amr 



r-m 



401 N. Central Expressway *600 
Richardson, Texas 75080 
(214) 690-0206 

*' ' ■ I" - lc »•«* LCP0<tf «r» 

** •ot'wv c Aop«rv Cofiwanr 



UTILITY 



Now for some fancy schmancy printing. . 



Scripsit— Sans Serif 



Gary D. Cochrell 
1617 Sagebrush Ct. SE 
Albuquerque, NM 87123 



ow many times have you had troubles 
using the "special print" functions on 
your line printer from Scripsit? If you have 
ever experienced difficulties, I think you will 
appreciate the following modification to 
Scripsit. With this patch in place all you do 
when you are ready to print is press two 
keys. The first key is the print command 
"P". The second key will be for the special 
print feature you want. There's no need to 
reserve high memory and no special pro- 
gram to load except Scripsit. 

Before you start this project, however, 
make sure you have the following: 

• A backup copy of Scripsit in its origi- 
nal form. A copy with a block move rou- 
tine appended to it will not work. 

• A utility program that can access disk 
sectors and modify them like Apparat's 
Superzap or Small Software Systems' 
RSM-2D. 

• An ability to write Z80 machine lan- 
guage instructions. 

I am assuming that a backup of the origi- 
nal Scripsit disk will be the same regardless 
of when or where the program was pur- 
chased. Radio Shack should not have 
moved the program around on the disk from 
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one production run to the next. So the first 
precaution to take before you make any 
changes is to check your sector dumps with 
the ones I show and make sure they match. 

Printer Commands 

Before you make any modifications to 
the disk, customize the Program Listing to 
fit your printer characteristics. That is why 
you must be familiar with the Z80 instruc- 
tion set. The listing is the program that I use 
with my printer, the Epson MX-80. The fol- 
lowing information will help you modify the 
program to accommodate your printer. 

First decide what features in your printer 
you would like to access from Scripsit. I had 
four types of printing I wanted to use, but I 
was only able to incorporate two. Here is 
why: When the Epson printer is pro- 
grammed for expanded printing, 40 charac- 
ters per line, it will default to its normal 80 
characters per line every time a line 
feed/carriage return is sent to the printer. To 
continue printing in the expanded mode the 
appropriate command must be sent preced- 
ing every line. This trick was a little more 
than I could handle inside a machine lan- 
guage program like Scripsit, so I dropped 
this mode from my list. Once you have 
decided on the commands you want, check 
to make sure they will not default when a 
line feed/carriage return is transmitted to 
the printer. 

Program Modifications 

Having made the decision about which 
printer commands you want, convert their 
decimal values to hex numbers (all refer- 
ences to hex numbers in this article will be 
followed by a capital H). For instance, if you 
want to print in the compressed mode, 132 
characters per line, send a CHR$(15) to the 
printer. Decimal 15 converts to OFH. If you 



look at line 7AD0H of the listing, you will see 
that OFH has been loaded into register C. 
The other mode included in the program is 
the double pass mode which causes the 
print head to print a line twice for a much 
darker appearance. This is accomplished 
by sending two commands to the printer, 
1BH and 47H. Lines 7AD7H and 7ADCH are 
where these commands are loaded. 

If you have a one-command feature in 
your printer that you want to use, then in- 
sert that command in line 7AD0H. Likewise, 
any two-command modes can be placed in- 
to lines 7AD7H and 7ADCH. If you have 
more commands to add, then you will have 
to modify the program. You can add up to 
100 bytes before you run out of room. 

You should be aware of the following 
steps if you decide to modify the program. 
Load all printer commands into register C 
before calling the subroutine which sends 
the command to the printer. When you add 
lines to the program, most if not all of the 
relative jumps will change. At the end of the 
program be sure to include the lines: 



CD C9 70 CALL 70C9 

C3 64 70 JP 7064 



You may also want to change the 
prompts that the program places on your 
monitor. The program as it stands will place 
the letters C, D and N on the lower right side 
of the monitor. These letters stand for com- 
pressed, dark and normal. Lines 7AADH, 
7AB2H and 7AB7H change these letters. 

Disk Modifications 

There will be four sectors on the disk that 
will be altered: two for Scripsit/UC and two 
for Scripsit/LC. I will start with the modifica- 
tions on Scripsit/LC. If you are using Super- 



"Now if this explanation has made 

any sense at all, 
the instructions to follow will be a snap." 



zap, display track OBH, sector 0. if you are 
using RSM-2D, load sector 110 to a conve- 
nient place in memory like 6000H. This is a 
good time for me to explain a term I will be 
using frequently— relative byte. 

For RSM-2D users I am referring to the 
last two digits of a memory address. For in- 
stance, if you have just loaded the sector to 
location 6000H, and I mention relative byte 
DDH, you will be looking at 60DDH. If you 
have loaded the sector to another location, 
such as 4300H as an example, then you 
would be looking at 43DDH. In either case, 
relative byte DDH contains the same infor- 
mation. 

With a Superzap dump, relative rows 0OH 
through FOH are shown in the last two dig- 
Its of the first column. For example, the first 
column of relative row DOH from Fig. 1 looks 
like this: 00B0D0. 

To find relative byte DDH drop down to 
relative row DOH and count over, in hex, 14 
places. Now if this explanation has made 
any sense at all, the instructions to follow 
will be a snap. 

If track OBH, sector is displayed, com- 
pare your display with Fig. 1. Except for 
relative bytes DDH, DEH, and DFH, the un- 
derlined bytes, your display should look like 
Fig. 1. Relative bytes DDH, DEH, and DFH 
should be: CD C9 70. Modify these three 
bytes to read: C3 A5 7A. 

This change causes Scripsit to jump to 
location 7AA5H— the location for our "Pro- 
gram the Printer" routine. The changes to 
this sector are complete. Save the sector 
back at its original location on the disk. 

Next load track OCH, sector 1 . This is sec- 
tor 121 for users of RSM-2D. Compare your 
dump with Fig. 2. Be very careful— a lot of 
changes take place in this sector. In Fig. 2 
relative bytes 49H, 4AH, 4BH, and 4CH are 
underlined. All the hex code that follows 
relative byte 4CH to the end of the sector is 
just filler, it is not part of Scripsit. The 
underlined bytes tell the disk program load- 
er that the end of Scripsit/LC has been 
reached (0202) and the next two bytes are 
the start of the program (0052), which is 
5200H. These four bytes will be moved to 
the end of the sector. Modify the four bytes 
at relative positions FCH, FDH, FEH and 
FFH to read: 02 02 00 52. The lower right cor- 
ner of Fig. 3 shows this change. 

Next we want to tell the disk program 
loader that the end of the Scripsit program 
has been moved to the end of the sector. If 
you look at Fig. 3 you will see that relative 
bytes 49H, 4AH, 4BH and 4CH are under- 
lined again but they contain a new code. 
The 01 tells the disk loader that there is 
more program to be loaded. The B1 tells the 
loader that there are 177 more bytes to be 
loaded, and A5 7A will direct these bytes to 
memory location 7AA5H. Insert the follow- 



ing bytes at relative positions 49H, 4AH, 
4BH and 4CH: 01 B1 A5 7A. 

An additional 177 bytes within Scripsit is 
now available in which to insert our own 
program. Don't worry; the disk directory has 
always had this entire sector reserved for 
Scripsit. The additional 177 bytes at the end 
of Scripsit are protected when loaded into 
memory because the program scratch pad 



memory starts at 7C00H. 

All that remains now is to modify (or edit) 
the relative bytes beginning with 4DH with 
the program listing or one you have devel- 
oped for your printer. After I inserted my 
program, I went ahead and zeroed out the 
remainder of the sector to make it easier to 
see the changes made to the sector. Once 
you have inserted your program, you can 



00B000 


C3C8 


6BCD 


E96B 


ED5B 


437C 


AF32 


3A60 


3256 




00B010 


603A 


327C 


B728 


07FD 


3603 


00CD 


966D 


D5CD 


.:2..(..6 


00B020 


3A6E 


CD7C 


53D1 


FDCB 


3 4 8E 


CDA2 


61C3 


C052 




00B030 


1054 


4142 


2043 


4F4D 


4D41 


4E44 


204D 


4F44 


.TAB. COMMAND. MOD 


00B040 


4513 


5749 


4E44 


4F57 


2043 


4F4D 


4D41 


4E44 


E . WINDOW . COMMAND 


00B050 


204D 


4F44 


4514 


454E 


5445 


5220 


5245 


5045 


.MODE. ENTER. REPE 


00B060 


4154 


2043 


4F4D 


4D41 


4E44 


1752 


4550 


4541 


AT . COMMAND . REPE A 


00B070 


5420 


484F 


5720 


4D41 


0102 


0070 


4E59 


2054 


T . HOW . MA . . . . NY . T 


00B080 


494D 


4553 


3F20 


1B44 


454C 


4554 


4520 


5041 


IMES?. .DELETE. PA 


00B090 


5241 


4752 


4150 


4820 


2859 


204F 


5220 


4E29 


RAGRAPH. (Y.OR.N) 


00B0A0 


3F20 


2044 


454C 


4554 


4520 


544F 


2045 


4E44 


?. .DELETE. TO. END 


00B0B0 


204F 


4620 


5445 


5854 


202B 


5920 


4F52 


204E 


.OF. TEXT. (Y.OR.N 


00B0C0 


293F 


2021 


5274 


CDC 8 


6BFD 


3634 


C0CD 


8B70 


)?. IR 64 


00B0D0 


CDC9 


70FD 


CB34 


B6CD 


E96B 


CD8B 


70C3 


A57A 




00B0E0 


1B0E 


FD21 


2F7C 


ED53 


437C 


CD7C 


6F31 


FA41 


. . . I/..SC. . .l.A 


00B0F0 


FD36 


3400 


218B 


6F22 


297C 


3A39 


7C32 


647C 


. 6 4 . I . . " ) . : 9 . 2 . . 












Fig. 1 









I0C100 
J0C110 
50C120 
J0C130 
30C140 
30C150 
30C160 
30C170 
30C180 
30C190 
30C1A0 
30C1B0 
30C1C0 
30C1D0 
00C1E0 
00C1F0 



CD24 
0000 
C9FE 
FE0D 
745F 
6E5F 
5583 
6426 
0618 
0601 
01A7 
111A 
5959 
FD3 6 
7A22 
6BED 



6ED1 
3AB9 
8CCA 
280E 
32E8 
6B50 
5878 
6F18 
031C 
9C9B 
007A 
034D 
0106 
07 8F 
297C 
5B43 



CDFA 
7CB7 
8371 
FE0A 
37C3 
6E18 
56FB 
55FB 
1A6E 
9E9D 
6DE5 
590E 
3C4E 
C9CD 
C931 
7CFD 



52C3 
2801 
FE8D 
280A 
745F 
6E64 
5442 
545D 
6D1D 
1B8E 
6D11 
59D2 
4280 
E96B 
FA41 
CB3 4 



706E 
05C9 
C289 
083E 
3B02 
7937 
6FB5 
6E24 
6D55 
8D0E 
5463 
5A3C 
8034 
C35D 
218B 
C6D5 



EB09 
71C3 
2032 
0200 



6FF3 
586A 
6EB9 
6D2F 
6EFE 
54E5 
0C48 
127 8 
5ACD 
6F22 
CD24 



0000 0000 .? R 

79B7 C825 ..:...( % 

8371 2812 ( . 

E837 08C3 ..(...(..>. 2. 7.. 

525D 6E24 . . 2 .7 . . . ; . . .R. . S 

6E26 6F18 .. .P 7. ..&. . 

58AD 6D46 U . X . V.TB. . X .X . .F 

542D 5505 .& . .U.T. . $. .T-U. 

6D96 6D09 U./ 

6D56 6EC7 V. . 

6DC7 6D03 T.T 

0159 4E4E .. .MY.Y.Z's'.H.YNN 

5621 ED5C YY. . <NB. .4. .VI . . 

FA52 2141 .6 Z. .R!A 

297C CDE9 ."). .l.Ai ..").. . 

6ECD 846E .. .C. . .4. ..$... . 



Fig, 2 



I0C100 
50C110 
30C120 
30C130 
J0C140 
30C150 
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30C180 
00C190 
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00C1B0 
00C1C0 
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00C1E0 
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CD24 6ED1 CDFA 52C3 706E 0000 0000 0000 .S....R 

0000 3AB9 7CB7 2801 05C9 EB09 79B7 C825 ..:...( % 

C9FE 8CCA 8371 FE8D C289 71C3 8371 2812 (. 

FE0D 280E FE0A 280A 083E 2032 E837 08C3 ..(...(..>. 2 .7 . . 

745F 32E8 37C3 745F 3 B01 B1A5 7A DD E5FD ..2.7...; 

E5E5 C5D5 F53E 4332 E23F 3E44 32E5 3F3E >C2.?>D2.?> 

4E32 E83F CD2B 00B7 28FA FE43 280A FE44 N2 .?.+..(. .C (. .D 

280D FE4E 2813 18EC 0E0F CD8D 0518 0A0E (..N( 

1BCD 8D05 0E47 CD8D 05F1 D1C1 ElFD E1DD G 

E1CD C970 C364 7000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0000 0000 

0000 0000 0000 0000 0000 0000 0202 0052 R 

Fig. 3 
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A/DD/A LAB 80 

A Real World Interface 
for your TRS-80 
MOD l&lll. Control 
motor speed & direc- 
tion, measure voltages 
— any analog to digital 
or digital to analog 
operation. 

$149.95 

SPECIALS: 

16K add on memory 

prime NEC 200 nsec $18.50/8 

"Shades" green filter $1 8.00 

ATHANA quality 5 V* floppy disk- 
ettes with hubrings in plastic 
library case 

(soft, 10, 16 sector) 

10/34.25 

100/321.85 

BOOKS 
6809 assembly language prog. 

$16.99 
Learning Level 1 1 $1 5.95 

The Basic Handbook $1 9.95 

Microsoft Basic decoded & 

other mysteries $29.95 

TRS-80 disk & 

other mysteries $22.50 



HIS. - 577 

COMPUTERMATION, INC. 




ROGER WILSON 
VICE PRESIDENT 

i 295 Cypress avenue 

MELBOURNE. FLORIDA 32935 
1305) 254 9399 

Few fast delivery, send certified checks, money orders or 
call to arrange bank wire 
transfers Pergonal or com- 
pany checks require two to 
three weeks to clear Add \2 
lor shipping charges 



"If you ever change printers, 
hang on to thJs article. 



save this sector to disk. Make sure you dou- 
ble check everything before you save it, 
though. 

Check the operation of Scripsit/LC with 
the new modification. After loading Scrip- 
sit/LC, either load text that you have already 
written or write something into the text buf- 
fer. Hit Break, then P for print. The message 
"Testing for Errors" will appear and then 
clear from the screen. Your prompts will 
now display. Select one of the letters and 
press the corresponding key. Your text 
should start printing immediately in the 
form you have programmed. Check each of 
the special commands if you have more 
than one. Do not forget to turn off the 
printer to cancel your last command before 
you check the next one. 

Scripsit/UC modifications will be easy 
since the work in the lowercase version is 
already complete. All that is necessary is to 
copy the lowercase sectors to the appropri- 
ate uppercase sectors. If you are using 
Superzap, copy track 0BH, sector 0, to track 
0CH, sector 5 and track 0CH, sector 1, to 



track 0DH, sector 6. If you are using RSM-2D, 
load sector 110 and save it on sector 125. 
Also load sector 121 to save on sector 136. 
It would be a good idea to check track 
0CH sector 5 with Fig. 1 and track 0DH sec- 
tor 6 with Fig. 2 before you make any modifi- 
cations to make sure they are the correct 
sectors. 

Some Final Thoughts 

Depending on how your printer handles 
its programming commands, it may be pos- 
sible to obtain some additional commands 
without having to include them in the patch. 
For instance, if I send the Compress com- 
mand and hit the Clear to escape the print 
routine, I can again enter the print routine 
and respond with the Darken Print mode. If 
you want to switch printing modes, you will 
have to turn the printer off and then back on 
to cancel the last command. 

One final word: If you ever change print- 
ers, hang on to this article so you will be 
able to modify Scripsit to accommodate 
your new printer. ■ 



7AA5 


DD 


E5 




PUSH 


IX 




7AA7 


FD 


E5 




PUSH 


IY 


J 


7AA9 


E5 






PUSH 


HL 


; SAVE ALL OF THE 


7AAA 


C5 






PUSH 


BC 


; REGISTERS. 


7AAB 


D5 






PUSH 


DE 


j 


7AAC 


F5 






PUSH 


AF 


' 


7AAD 


3E 


43 




LD 


A, 43 


; 


7AAF 


32 


E2 


3F 


LD 


(3FE2) ,A 


; DISPLAY THE LETTERS 


7AB2 


3E 


44 




LD 


A, 44 


; C, D, AND N ON THE 


7AB4 


32 


E5 


3F 


LD 


(3FE5) ,A 


; VIDEO MONITOR. 


7AB7 


3E 


4E 




LD 


A,4E 




7AB9 


32 


E8 


3F 


LD 


(3FE8) ,A 




7ABC 


CD 


2B 


00 


CALL 


002B 


; SCAN THE KEYBOARD 


7ABF 


B7 






OR 


A 


; FOR AN INPUT 


7AC0 


28 


FA 




JR 


Z,7ABC 


'• 


7AC6 


FE 


43 




CP 


43 


; IS IT A "C"? 


7AC8 


28 


0A 




JR 


Z.7AD0 


; IF YES, JUMP FWD 11 


7 AC A 


FE 


44 




CP 


44 


; IS IT A "D"? 


7AC8 


28 


0D 




JR 


Z,7AD7 


; IF YES, JUMP FWD 14 


7 AC A 


FE 


4E 




CP 


4E 


; IS IT AN "N"? 


7ACC 


28 


13 




JR 


Z,7AE1 


; IF YES, JUMP FWD 20 


7ACE 


18 


EC 




JR 


7ABC 


; GO BACK TO KEYBD 


7AD0 


0E 


0F 




LD 


C,0F 


; COMPRESSED PRINT 


7AD2 


CD 


8D 


05 


CALL 


058D 


; SEND "0F" TO PRINTER 


7AD5 


18 


0A 




JR 


7AE1 


; JUMP AHEAD 11 


7AD7 


0E 


IB 




LD 


C,1B 


; DARKEN PRINT, SEND 


7AD9 


CD 


8D 


05 


CALL 


058D 


; "IB" AND "47" TO 


7 ADC 


0E 


47 




LD 


C,47 


; THE PRINTER 


7ADE 


CD 


8D 


05 


CALL 


058D 


'' 


7AE1 


Fl 






POP 


AF 


; 


7AE2 


Dl 






POP 


DE 


• 


7AE3 


CI 






POP 


BC 


; RESTORE ALL THE 


7AE4 


El 






POP 


HL 


; REGISTERS 


7AE5 


FD 


El 




POP 


IY 


; 


7AE7 


DD 


El 




POP 


IX 


r 


7AE9 


CD 


C9 


70 


CALL 


70C9 


; A SCRIPSIT ROUTINE 


7AEC 


C3 


64 


70 


JP 


7064 


; JMP BACK TO SCRIPSIT 










Program Listing 
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\0 
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.V 
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?> 
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GRAPHICS 



See if you can follow the plot of this article. 



The Ups and Downs of Graphs 



Richard Foley 
14629 N. 61st Drive 
Phoenix, AZ 85306 



Iine and bar graphs are, in most cases, 
the best method of interpreting statisti- 
cal or numerical data. With just one glance 
at a graph you get an overall picture of the 



data presented and can easily spot dips, 
peaks and trends. In the business world 
graphs are used in such areas as sales, pro- 
fits, earnings, production and others. On a 
graph you can see an upward trend in sales 
or a downward trend in earnings, instead of 
deducing it from a list of figures. 

At home, graphs can also be used in 
many areas. People interested In the 
weather can graph high and low temper- 
atures, rainfall and barometric pressure. 
Those on a diet can watch the up and down 



VALUE 
RANGE 



YI4 



Y5 - 
Y4 - 

Y3 
Y2 - 
Yl 



PLOTTED 
VALUES 



BAR 




X2 X3 X4 X5 ■ • •• 

VALUE LABELS 



XI4 



LINE 



GENERAL LAYOUT OF GRAPHS 
FIGURE I 



trends of their weight. Monthly utility bills, 
miles jogged, and a child's growth are a few 
of the many other applications that gener- 
ate informative graphs. 

However, actually sitting down with 
graph paper, rulers, pencils, and so forth to 
draw a graph Is not a task many of us like to 
undertake. The TRS-80, with its built-in 
graphics and Level II Basic, is ideally suited 
to computerize graph building and storing. 
The program described In this article makes 
it possible to build and maintain line and 
bar graphs using the TRS-80. 

Graph Description 

The general layout of the graphs this pro- 
gram generates is shown in Fig. 1. It is a 
standard X, Y graph with the value range 
running up the Y axis, and the value labels 
along the X axis. The actual values are plot- 
ted as points in the area defined by the X 
and Y axis. There is room for 14 values to be 
plotted along the X axis and for 14 values of 
the value range to be displayed on the Y 
axis. The actual number of Y values that can 
be plotted is 40. The plotted points either 
can be connected together by a line, or con- 
nected to the X axis by bars. Photos 1 and 2 
show how these graphs appear on the 
TRS-80's screen. The program can store 
and retrieve up to 50 different graphs in 
memory. 

Program Functions 

The four major functions the program 
performs are: 

• Read Data Tape— previously saved 
graphs are read from tape and loaded in- 
to memory. 

• Build a New Graph— the program asks 
for the information needed to plot a new 
graph, and draws it on the screen. 
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"With just one glance at a graph 
you get an overall picture of the data presented. . . " 




Photo 1 



Photo 2 



• Retrieve a Graph— a list of all the 
graphs in memory is displayed and a 
selection is asked for; the selected graph 
is retrieved and drawn on the screen. 

• Write Data Tape— all graphs in mem- 
ory are written to tape. The above func- 
tions are selected from the menu screen 
by pressing the corresponding numeric 
key. 

Once a graph is fully displayed on the 
screen, either a new graph or one retrieved 
from memory, there are six additional func- 
tions available: 

• Return to Menu— the screen is cleared 
and the menu screen is displayed; if the 
displayed graph had not been previously 
saved it will be lost. 

• Save Graph— if the graph is new the 
program asks for a one-to-eight character 
name and inserts the graph data sequen- 
tially into memory; if the graph is old it is 
replaced in memory. 

• Switch Type— if the graph is a line 
graph it will be redrawn as a bar graph 
and vice versa. 

• Add a Value— the label and value for 
the next open spot on the X axis are 
asked for and then plotted. 

• Change a Value— the program asks for 
the label of the value to be changed and 
then asks for the new value; the graph is 
redrawn with the new value. 

• Delete— if the graph is in memory, it is 
deleted. 

All of the above functions are selected by 
pressing the corresponding numeric key, 
when the asterisk is displayed in the bottom 
right corner of the graph screen. 

Drawing a Graph 

The primary function of the program is, of 



course, to draw graphs. After pressing key 
two from the menu screen, the program 
asks for the following information to label 
and plot a graph (Fig. 2 shows how this in- 
formation is used in the graph): 
• Start Value Y— this is the integer value 
with which the Y axis starts. It can range 



from minus-999 to approximately 
plus-950. 

• Increment Y (1-99)— this is the integer 
value by which the Y value will be incre- 
mented, going up the Y axis. 

• Label Y (one-eight characters)— this is 
the name of what the values represent, 
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VALUE LABELS TITLE 


TYPE =L 




GRAPH INFORMATION 
FIGURE 2 
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Dough flo (do 'flo) n. [Colloq] a highly inter- 
active business or home finance program, 
designed to instantly analyze where the hell 
all that money went. 

Ooughllo Its a business program. It's a home finance program. Doughflo is (now hold 
your breath), "an expenditure oriented data base management system." (Whew.) But 
best ot all. it's easy to use. 

What the heck does Doughflo do? Lois 

• Allows instant analysis ol business or home cash How. (Flo?) 

• Keeps tabs ot expenses with up to 26 user defined categories. 

• Allows separation ol home and business expenses for tax. Social 
Security, deductions, etc. 

• Ideal lor preparing income and stale taxes. 

• Is able to search, sort, and produce hard copy of any number of items and 
checks, over any range of dates, categories, amounts, vendors, or 
descriptions 

Be your own business analyst! Virtually obsoletes a bookkeeper, because your com- 
puter does the work for you. Use Ooughllo to... 

• Instantly retrieve up to 450 records at a time without lime consuming disk 
access. 

• Easily generate detailed reports of ail expenditures 

• Satisfy your boss, wife, (husband?), or yourself that you know how wisely 
(or foolishly) money is being spent . 

Exceedingly simple to use (we tested it on simple people!), now there Is no excuse 
not to know where the hell you lost all that money, whether it was last year or last 
month. Best of all. maybe now you'll be able to save some of that dough for the 
future! Requires 32K and one or more disk drives. Specify Model I or III. At only 
S39.95 postpaid. It's a steal sura to cava you money! 



P.O. BOX 597 FORESTVILLE, CA 95436 
24 hr. phone (707) 887-7237 r~~] - 






PERFECT 
CLOAD 

EVERY "MW-f- 
TIME"* I 




ALPHANETICS TRS-XO TAPE DIGITIZER 

* From * review in Ihe September Oc luDer 1940 Element ai , Electronic*. ReprinU available upon request 

At last there is a cure for TRS-80 tape cloading blues. For over three years, Alphanetics 
has been selling the TRS-80 Tape Digitizer, a proven hardware solution lor your soltware 
problems. No longer need you juggle the recorder's volume control endlessly, trying for 
a perfect cload of a pre-recorded program. Just pop the tape into the cassette recorder, 
process the signal through our digitizer, and you're ready to RUN a perfect load! 

Just check out the Tape Digitizer's features... 

• Makes tape program loading virtually independent of volume conirol 
setting 

• Allows copying system and normal tapes without using computer. 

• Makes a perfect digital copy of any tape, without using computer, 
removing hum, noise, and cure9 minor dropouts. 

• Cassette switch allows manual control of cassette recorder, independent 
of computer control. 

• Good Dala" indicator easily enables setting proper volume doubles as 
a tape monitor. 

• AC powered — no batteries to replace. 

• Housed m a sturdy, attractive metal case 

• Completely compatible with level I & II. also LOW speed Model III 

Feed your cassette to the Alphanetics Tape Digitizer and leed your computer the exact 
digital waveform the TRS-80 gave your tape. Gel rid of your tape bugs today — $64.95 
postpaid or return within 10 days for a full refund! 



Program Listing 



• GRAPH-IT **•": 

BY RICHARD POLE 

WILMINGTON D 



IB REM •»• SET UP *•• 

15 CLEAR6750:DEFINTC,V,Y:DEFSTRI,S,M,L,P,T,N,B:DEFSKGF,D:DIMI-'. 

) ,LV(14) ,Y(14) :BL-STRINGS(55," ■) 

50 REM ••« TITLE PAGE »•• 

55 CLS!PRINTCHRS(23) : PRINT: PRINT: PRINT" 

PRINT: PRINT: PRINT: PR I NT: PRINT: PR I NT: PRINT" 

Y":PRINT" 11 PERKINS AVE .": PRINT " 

E 19809":FORCT-1TO3B00:NEXT 

IBB REM ••• MENU *** 

15B CLS:PRINTS88,"*** GRAPH-IT *••" J : PRINTP21 B , "PRESS NUMBER TO 

SELECT -";:PRINT§345,"1 - LOAD DATA TAPE" ; : PRINTM09 , "2 - BUILD 

NEW GRAPH";:PRINTS473,"3 - RETRIEVE GRAPH" ) : PRINTP53 7 , ■ 4 - WRITE 

DATA TAPE") : PRINT?601 , "5 - END"; 
200 I-INKEYS:IF1 ;""THEN280 
250 IFI>"5"ORI<"1"THEN20BELSEC-VAL(I) 
300 IFC=5THEN450 

350 ONCGOSUB1008, 1480,2500, 4000 
400 GOTO150 
450 IFSWO"1"THEN650 
475 IFCK=0THEN650 

500 PRINT0717, "GRAPHS IN MEMORY HAVE BEEN UPDATED. ";: PRINT0777, " 
DO YOU WANT TO SAVE MEMORY ON TAPE (Y OR N)?"| 
510 I-INKEYS: IFI-""THEN510 
515 IFI-"N"THEN650 
550 IFI-"Y"THENGOSUB4000:GOTO150 
600 GOTO510 
650 END 

1000 REN ••* LOAD DATA TAPE *•• 

1050 CLS:PRINTe213,"l. MOUNT TAPE" ; : PRINTH341 , "2 . SET TO PLAY";: 
PRINTg469,"3. PRESS ENTER WHEN READY" ;: CI -495 :GOSUB14000 
11B0 PRINTC602,"* LOADING • " > : INPUTI-1 ,C:CM-C :CT-0 
1150 INPUTI-l,I:CT=CT-r-l:M(CT)-LEPTS(I,122) : IFCT-CMTHI.N1250 
1280 CT-CT+1:M(CT)-HID$(I,123,122) : IFCTOCMTHEN1150 
1250 PRINTP602,"* DONE *";: PRINT8725 ," PRESS ENTER TO CONTINUE 
.. . ";:CI=752:GOSUB14000:RETURN 
14 80 REM *** BUILD NBW GRAPH •** 
1450 GOSUB7000 

1580 PRINT*?968,BL;:PRINTe968, "START VALUE Y ■■ , :CI = 983 :GOSUB1400 
B:VY-INT(VAL(I) ) 

1510 IFVY<-999THENPRINTg968,BL):PRINTg968,"Y MUST BE GREATER THA 
N -999, REENTERI";:FORCT=lTO1500:NEXTiGOTO15B0 

1550 PRINTe968,BLMPRINT0968, "INCREMENT (1-99) -" ; : CI -986 :GOSUBl 
4000:C=INT(VAL(I) i i IPCU0RO99THEN1 550 

1600 CN=C:IF( (CN*13)tVY) >999THENPRINT8968,BL; : PRINT0968, *Y OR IN 
C TOO LARGE, REENTER 1 ";: FORCT-1TO15B0 : NEXT: GOTO1590 
1650 PRINT*968,BL;:PRINTS968, "LABEL Y (1-8 CHR) > " ; :CI » 987 :G0S'JB 
14000:IFLEN(I) >8THEN16 50 

1700 IFLEN(I)<8THENI-I+STRINGS((8-LEN(I] ) ," ") 
1750 LY-I 

1B00 PRINTe968,BL;:PRINTfi968,"Y MULTIPLIER (1-5 CHR) OR -NONE- > 
";:CI-100 2:GOSUB14008:IFLEN(I)>5THEN1800 
1850 IFLEN(I) <5THENI=I*STRING$( (5-LEN(I) ) ," ") 
1900 MY-I:GOSUB10500:PW="0":CT=1 
2000 GOSUB11300:IFPW="1"THEN2100 
2050 CT=CT+1:IFCT<15TH£N2000 

2100 PRINTg968,BL»!PRINTfi968, "TITLE (1-24 CHR) >"i :CI-986 :GOSUBl 
4000:IFLEN(I) >24THEN21B0 

2150 IFLEN(I) •.24THENI-I*STRINGS( (24-LF.N(I) ) ," ") 
220B TI-I 

2250 PRINTt»968,BL; : PRINT8968, "TYPE (L OR B) >" ; :CI = 983 :GOS'JB1400 
fJ:IPI<>"L"ANDIO"B"THEN2250 

2300 TY-I : IFTY-"L"THENGOSUB5000ELSEGOSUB11008 
2359 NS-"1":GOSUB750B 
2400 RETURN 

2500 REM *** RETRIEVE GRAPH •*• 
2510 IFCM=0GOSUB13008:GOTO3500 

2550 CLS:PRINT(?17,"«**"|CMj" GRAPHS IN MEMORY •••' ; :CP-66:C2-1 :C 
T = 

2600 PRINTPCP,1EFTS(M(C2) ,8) :C2-C2*1 : I FC2>CMTHEN2650 
2625 CP-CP+10:CT-CT*1 : IFCT-6CP-CP*4 :CT-0 
2630 GOTO2600 

2650 PRINT8982, "ENTER CHOICE >" ; : CI -996 : 3OSUB14000 
2700 IPLEN(I) >8THENI-LEFTS(I,8) 

2750 IFLEN(I)<8THENI = I«-STRINGS((8-LEN(I/ ) ," ") 
2800 NA-I:D-INT(.5*CH) :D1=1:D2=CM 
2850 IF(D2-D1)<3THEN3100 
2900 IFNA<LEFTS(M(D) ,8)THEN3050 
3000 D1=D:D=INT(.5'(D2-D) ) +D: GOTO2850 
3050 D2=D:D=INT( . 5* (D-Dl) ) +D1 :GOT02B5B 
3100 CL=0:CT=D1 

3110 IFNA-LEFTSIM(CT) , 8) CL-CT:COTO3200 
3125 CT-CT+1: I FCT>D2THEN3150ELSE311B 

3150 PRINTe96B,"NOT FOUND, ENTER CHOICE OR SPACE TO EXIT ^"j:CI= 
1009 : GOSUB14 000 :IFI=" "THEN35 00ELSEPRINTP96 8 ,BL ; :GOTO27 00 
3200 NG=MIDS(M(CL) ,9,1) : VY=VAL(MIDS (M (CD ,10,3) ) : CN'VAL (MIDS (K (C 
L) ,13,2) ) iLY=MIDS(M(CL) ,15,8) :MY=MIDS (M(CL) ,23,5) : CP=28 : IFNG-"- " 
VY=VY«-1 

3250 F0RCT=1T014:LV(CT)-MIDS(M(CL) ,CP,3) :Y(CT) -VAL(Min$ (M(CL) ,CP 
+3,2) ) :CP-CP*5:NEXT 

3300 TI-MID$(M(CL) ,98,24) :TY-RIGHTS (M (CL) ,11 
3353 GOSUB7 000:GOSUB1050B:FORCT-1TO14:GOSUB187 80:NEXT 
3400 IFTY-"L"THENGOSUB5 080ELSEGOSUB1100fl 
3450 NS-*0":GOSUB7508 
3500 RETURN 

4000 REM *** WRITE DATA TAPE **• 
4010 IFCM=0GOSUB1300B:COTO4408 

4050 CLS:PRINTg213,"l. MOUNT TAPE" ; : PRINT0341 , "2. SET TO RECORD" 
; :PRINTP469,"3. PRESS ENTER WHEN READY" ;: CI - 195 :GOSUB14000 
4100 PRINTg602,"• WRITING • " ; : PRI NTI-1 ,CM : CT-0 
4150 CT-CT+1 :I-M(CT) : IFCT-CMTHEN4250 
4200 CT-CT+1 :1-I+M(CT) 
4250 PRINTt-1,1 
4300 IFCTOCMTHEN4150 

4350 SW-"0":PRINTfJ602,"* DONE *";: PRINT3725 , "PRESS ENTER TO C 
ONT1NUE... , ;:CI=752:GOSUB14808 
4400 RETURN 

5000 REM **• DRAW LINE BETWEEN POINTS *•* 
5010 YI-1:IPLV(YI+1)-" "THEN6400 
5015 CX-9+(YI*8) :CY-Y(YI) 
5020 IFY(YI) >Y(YH-1)DI — 1 
5050 IFY(YI)<Y(YI+1)DI-1 
5100 IFY(YI) -Y(YH1)DI-0:GOTO53B0 
5150 DF-|Y(YI)-Y(YI+1) ) :DP=ABS I DF ) -1 

Program continues 



Program continued 

529B IFDP-1CY-CV*DI:DI»B:G0T0S3BB 

5225 IPDF=BGOSUB6500:C¥=CY+DI:GOSUB6SB8:GOTO6JeB 

5256 IFDFHTHEN56BB 

5275 IFDF<6THEN5350 

53 BB F0RCT=1T06:CX=CX+1:CT»CY+DI:SET|CX,CY) :NEXT:GOT06 3BB 

535B IFDF=2CY=CY+DIiGOSUB65BB:CY.CY+DI:GOSUB65BB:GOT063BB 

548B D2-6-DFiD3-DF-D2iD4=D3:IFD3<1THEN55BB 

5«5B GOSUB66B0:D3^D3-l:rFD3>(.5 , D4)THEN54SB 

5588 FORCT«lTOD2:COSUB660fl:CX=CX«l!SET[CX,CY) :NEXT 

555B IFD3-BTHEN6380 

5578 GOSUB66B0:D3=D3-l:COTO555fl 

56BB D2»DF/6lD2=CINT(D2) iD3=6'D2:D3-DF-D3 : D4-D2:D2-D2*1 -.D5-6-D3: 

D6=D5:IFD5=BTHEN5900 

570B CX=CX*1 

5758 F0RCT=1T0D4:CY=CY*DI :SET(CX,CY) : NEXT 

58BB D5'D5-liIFD5>(.5*D6)THEN579fl 

5850 IFD3=8THEN6B5B 

5900 CX=CX*1 

5950 F0RCT=1T0D2:CY-CY+DI:SET(CX,CY) : NEXT 

6000 D3=D3-1:IFD3<0THEN6B58 

6810 IFD3-BTHEN6B5BELSE59BB 

6858 CT=B:IFD5»BTHEN63BB 

6108 CX-CX*1 

6158 CY-CY+DI:SET(CX,CY) : CT-CT»1 : IFCT=D4THEN62BBELSE6150 

62BB D5-D5-l:GOT0685B 

63BB YI-YI*1:1FYI-14THEN64BB 

635B 1FLV(YI+1)=" "THEN64e8ELSE5B15 

6408 RETURN 

650B F0RCT=1T03:CX=CX*1:SET!CX,CY) :NEXT:RETURN 

6600 CX=CX*1:CY=CY+DI:SET(CX,CY) :RETURN 

7BBB REK ••* LAYOUT X AND Y AXIS *** 

7B2B CLS:FORCY=0TO41:SET(1B,CY) :SET(11,CY) : NEXT 

7B50 CY=41:FORCX=12T0127iSET(CX,CY) :NEXT 

710B CX=12:FORCY=1T037STEP3:SET(CX,CY) iNEXT 

7159 CY=4B:F0RCX-16TO12BSTEP8iSET(CX,CY) : SET(CX»1 r CY) :NEXT 

72BB RETURN 

758B REM **• GRAPH FUNCTIONS *** 

7 5 5B PRINT*96 8,BL,| ! PRINT898B ,TI ; : PRINTJ1B22 , * «• ; 

76BB I=INKEYS:IFI<"l"ORI>"6"THEN76BB 

7625 IFI-"1"THEN7675 

765B PRINTJ1B22,' ";:C-VAL(I) :ONCGOSUB, 77B8 , 87BB , 91BB , 950B ,1B8»0 

7655 GOTO750B 

7675 RETURN 

77BB REM *** SAVE **« 

7725 SW="1* 

775B IFNS='8"THEN7925 

7768 IFCM-5BPRINT?968,BL):PRINT?968 f 'MEMORY FULL, CANNOT ADD!')! 

FORCT-1TO28B0: NEXT: GOT07 558 

7880 PRINT?968,BL;:PRINTg968, 'ENTER NAME (1-8 CHR) >" ; :CI-998 :GO 

SUB14BBB: IFLEN(I) >8THEN78BB 

7858 IPLEN(l) <8THENI-ItSTRINGS( (8-LEN(I) ) ," ") 

79BB NA-I 

7925 I-NA:I3=" " : IFVY<BTHENNG="-" 1 VY=VY*-1ELSENG=' " 

7 950 I=I+NG:Cl-VY:C3-3!GOSUB85 5fl!Cl"CN:C3-2:GOSUB855BiI-I+LYiI-I 

*MY:CT-l:C3-2 

8B08 IFLV(CT)-" "I"I+" B8"!GOT081BB 

8858 I-I+LV(CT) :C1-Y(CT) :GOSUB8558 

8188 CT-CT+1:IPCT<15THENBB8B 

815 8 I-I+TI : I-I+TY: IFNS-*8'M(CL) -I :GOT0848B 

817 5 IPCM-BCL-l:M(CL)-I:CT-B:GOTOB35B 

82BB CT-CM 

8218 IPNA-LEPT$(M(CT) ,81 PRINT§968,BL; : PRINT?968, "NAME ALREADY IN 

MEMORY, REENTER! '; iCT-CT+2 : IFCT<CMTHENFORCl-CTTOCM :M (CI ) -M (Cl*l 
) : NEXT :F0RC1=1T015B8! NEXT: GOT07BBBELSEFORC1=1T015»B i NEXT: GOT078B 
B 

8250 IFNA>LEFTS(M(CT) ,8)THENM(CT+1) =I:GOT08358 
8380 M(CT-»1)-M(CT) :CT=CT-1 1 IFCT = BTHENM ( 1) =1 : GOT08 J50ELSE8210 
835B CM-CM+1 

84B8 PRINT?968,BL) : PRINT9968, "• SAVED • " : : FORC1 -1T015BB : NEXT 
8458 IFNS-"1"NS-'B":CL-CT+1 
8588 RETURN 

855B REM •** ENCODE NUMERICS *** 

8575 I2-STRS(C1) :IFLEN(I2) >C3THENI 2-RIGHTS ( 12 ,C3) :GOT08658 
8688 IFLEN(I2)-C3THEN865BELSEI2-I3*I2:GOTO86B0 
865B I-I+I2:RETURN 
8780 REM •** SWITCH ••• 

8758 GOSUB89BB:IFTY = "B"THENTY"'L"ELSETY='"B" 
88BB IFTY='L"THENGOSUB5B00ELSEGOSUB11B00 
8858 RETURN 

8988 REM *** CLEAR GRAPH AREA •*• 

B925 B2»STRING$(56," ') : FORCT-7T0775STEP64 : PRINTPCT ,B2 ; : NEXT 
895B F0RCX-16T0125:RESET(CX,39) : RESET(CX , 48] : NEXT:CY=4B : FORCX=16 
T012BSTEP8:SET(CX,CY) :SET(CX+1 ,CY) :NEXT:CT-1 

9BBB G0SUB1B7B8:CT-CT+1:IPCT>14THEN985B 

9025 IPLV(CT><>" "THEN90B8 

98 58 RETURN 

91B8 REM **• ADD VALUE •*• 

915B IFLV(1«)<>" 'PRINT8968,BL; : PRINT896 8 , "NO ROOM LEFT TO ADD 

"l :FORCT=lTO150BiNEXT:GOTO94B0 

92B8 CT=B 

925B CT-CT*1:IPLV(CT)<>* "THEN925B 

9388 PW-" ':G0SUB113BB:IFPW="1"THEN94B8 

9358 IFTY»"L"TKENGOSUB5BB8ELSEGOSUB11BBB 

94BB RETURN 

95BB REM •*• CHANGE VALUE •*• 

955B PRINTe96B,BL; :PRINT$968, 'ENTER NAME OF VAL >' : : CI =988 :COSUB 

14000:CT=8 

9568 IFLEN(l) >3THENI=LEFT$ ( I ,3) 

9565 IFLEN(I) <3THENI-I»STRINC$( (3-LEN(I) ) ," ") 

9680 CT-CT+1:IFCT>14THEN990B 

9658 IFLV(CT)OITHEN96B0 

9788 PRINT8968.BL; : PRI NTS96 8 , 'NEW VALUE ■" I 1 CI = 988 :GOSUB148BB : F- 

VAL(I) 

9750 IFF<VYORF>[ (CN*13) +VY) THENPRINT?968,BLj : PRINT§96 B , "VAL OUT 

OF RANGE, REENTER!"! : F0RC1=1T0158B : NEXT:GOT097BB 

9880 GOSUB12BBB:GOSUB89BB:IFTY="L"THENGOSUB588BELSEGOSUB11BBB 

9850 RETURN 

9908 PRINT8968,BL; : PRINT0968 , "NAME NOT FOUND, REENTER !";: FORCT-1 

T015BB:NEXT:GOTO9558 

10888 REM *** DELETE •*• 

18058 IFNS="l'PRlNTe968,BL;:PRINT?96B, 'UNABLE TO DELETE, NOT SAV 

ED") :FORCT-1T015BB:NEXT:GOT01B38B 

1B1B0 IFCL=CMGOTO1B206 

10150 M(CL] -M(CL*1) iCL=CL+l:IFCLOCHTHEN1815B 

Program continues 



Programs and 
Books For Beginners 

Everything you need to know to get started 
programming your own computer. Nine brand-new 
books, each jam-packed with easy-to-understand info 
for beginners, laymen, novices, general consumers 
who want to know how to make a computer work for 
them. Good for advanced novices and programmers 
too. These handy manuals, guides and program 
sourcebooks are crammed with hundreds of tips, 
tricks, secrets, insights, shortcuts and techniques, 
plus hundreds of tested, ready-to-run programs. 

Color & Pocket 

TRS-80 Color Computer. TRS-80 Pocket Computer. 
Sharp PC 1 211 Pocket Computer. Three of the most- 
popular computers for beginners. Among our 9 freshly- 
written books are scores of programs, tips, tricks and 
learn by-doing instructions for beginners. 

BASIC- language 

BASIC Made Easy, easiest way yet to learn the 
world's most popular computer language, 
140 pages. $8.95 

Universal BASIC Coding Form, programming 
worksheets make writing software a breeze, 
40-sheet pad. $2.95 

Pocket Computer 

50 Programs in BASIC for the Home, School & Of- 
fice— 2nd Edition, useful piug-in-and-run software, 
for the Pocket Computer. 96 pages. $9.95 

50 MORE Programs in BASIC for the Home, School & 
Office, sourcebook of tested ready-to-run software, 
for the Pocket Computer. 96 pages. $9.95 

101 Pocket Computer Programming Tips & Tricks, 
secrets, shortcuts, techniques from a master pro- 
grammer, 128 pages. $7.95 
Murder In The Mansion and Other Computer Adven- 
tures— 2nd Edition, murder mystery, space, 
adventures, loads of fun, 24 programs, 
96 pages. $6.95 
Pocket Computer Programming Made Easy, new fast- 
and-easy way to make the worlds smallest computer 
work for you, 140 pages $8.95 
Pocket-BASIC Coding Form, programming 
worksheets make writing pocket computer software 
easy and fun, 40-sheet pad. $2.95 

Color Computer 

101 Color Computer Programming Tips & Tricks, 

learn-by-doing instructions, techniques, shortcuts, 
insights. 12 8pages. $7.95 

55 Color Computer Programs for the Home, School & 
Office, practical ready-to-run software with graphics, 
96 pages. $9.95 

55 MORE Color Computer Programs for the Home, 
School & Office, sourcebook of useful plug-in-and- 
run software with graphics, 96 pages $9.95 

Order direct from this ad. Send check or money order. 
Include $1 shipping for each item ordered. Or write 
for our free catalog. Mail orders to: 

ARCsoft Publishers 

Post Office Box 132 L 
Woodsboro, Maryland 21798 

telephone (301) 663-4444 
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"After you enter each value, 

its point is plotted on the screen. 




Photo 3 



enter .1. This shows that the values repre- 
sent 8.0 to 14.5 miles. All the Y axis informa- 
tion would then be displayed on the screen 
and the first value label would be asked for. 

You could then enter labels and values 
such as WK1 and 106 (for 10.6 miles). If you 
had been jogging for six weeks you would 
enter six labels and values and when asked 
for the seventh label, you would enter a 
space to stop entering values. After you 
enter each value, its point is plotted on the 
screen. You would then enter a title such as 
Miles Jogged 3/2-6/7. 

Finally you enter L for line graph and the 
line is drawn on the screen. You could then 
save the graph and write it to tape with the 
rest of the graphs in memory. At a later 
date, you could load the tape, retrieve the 
graph and add values to it. Photo 3 shows 
the graph our running example would 
generate. 

Program Description 

The program is written in Level II Basic 
for 16K memory. It takes 9K to load and run, 
leaving 7K to store up to 50 graphs. It is writ- 
ten in a structured or modular manner, 
meaning that each routine or module is a 



such as dollars, pounds, temperature, 
miles, and so forth. 

• Y Multiplier (one-five characters)— this 
is what the Y values are to be multiplied 
by to handle decimal numbers and large 
and small Y values. Examples are .1 , .001 , 
1000, 100, MIL and so on. If no multiplier 
is needed, NONE is entered. 

• Label Value n (one-three characters)— n 
= 1 to 14; this is the name of the value 
you are going to enter, such as WK1 , Sun, 
May, USA, Bob and so on. A space is en- 
tered to stop inputting values. 

• Value n - n = 1 to 14— this is the ac- 
tual value to be plotted; it has to be within 
the range displayed on the Y axis, but it 
does not have to be an integer. 

• Title (one-24 characters)— this is the 
title of the graph. 

• Type (L or B)— L to select a line graph 
or B to select a bar graph. 

For example, if you wanted to graph how 
many miles you jog each week, you could 
proceed as follows: When the menu screen 
is displayed, you press two. The X and Y 
axes are drawn and the program asks for the 
start Y value. We'll assume you jog between 
eight and 15 miles a week. You know you 
can display 14 numbers on the Y axis, so 
this means you can display every mile and 
half-mile between eight and 14.5. Only inte- 
gers are allowed on the Y axis so you enter 
80. The program then asks for the incre- 
ment and you enter five. For the Y label you 
enter Miles and then for the Y multiplier you 
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Program continued 

10208 CM-CM-1:SW-"1" 

10250 PRINT0968,BL;:PRINTe968,"" DELETED • " j : FORCT=1TO150O : NEXT 

10300 RETURN 

10500 REM *•• Y AXIS •»» 

10550 C1=VY:FORCT=833TO1STEP-64:PRINT0CT,STR$(C1) ; !C1-C1+CN:NEXT 

10600 FORCT-lT08:PRINT?(64t(CT*64) ),MID$(LY,CT,1) ;:NEXT 

10630 IFMY--NONE "THEN1067B 

10650 PRINT0896,"X";:PRINTe897,HY; 

10670 RETURN 

10700 REM •*• LABEL f. PLOT VALUE ■•• 

10725 IFLV(CT)-" "THEN10850 

10750 PRINTgt899+(CT»4>) ,LV(CT) j 

10800 SET( (B+(CT"8)) ,Y(CT) ) :SET( (9+(CT*8)) ,Y(CT) I 

10850 RETURN 

11000 REM **« BAR GRAPH •*» 

11025 CT=1 

11050 FORCY=40TOY(CT)STEP-1:SET((8+(CT"B)) ,CY) :SET( ( 9+(CT«8) ) ,CY 

) :NEXT 

11100 CT-CT+liIPCT>14THEN11200 

11150 IPLV(CT)<>" "THEN11050 

11200 RETURN 

11300 REM **• ASSIGN AND LABEL VALUE **• 

11550 PRINT9(899 + (CTM) ) ,CT; iPRINT8968,BL> : PRINTG968, "LABEL VALU 

E";CT;" (3 CHR) OR SPACE TO EXIT >*j : CI =1009 :GOSUB14000 : IFI-" "T 

HENPW="l*:PRINTg(899+(CT»4)) ," " ; i F0RC1-CTT014:LV(C1> •" ":NE 

XT.-GOTO11900 

11600 IFLEN(I)>3THEN11550 

11650 IFLEN<I)<3THENI=I+STRING$((3-LEN(I)) ," ") 

11700 LV(CT)=I 

11750 PRINTe968,BH:PRINTe968, 'VALUE* jCT; "»" > iCI-977 tGOSUB140B0: 

F=VAL(I> 

11800 IFF<VYORF>((CN*13) +VY) THENPRINT096 8,BL; : PRINTS968, "VAL OUT 

OF RANGE, REENTER!"; : FORC1-1TO1500: NEXT:GOTO11750 
11850 GOSUB12000:GOSUB10700 
11900 RETURN 

12000 REM *** Y CALC *** 
12050 IFCN>2F=INT(F) 

12100 F3=F-FIX(F) sDF=INT(F-VY) : F2=DF/CN:D4=INT ( F2*3) iIFF3=0THENl 
2200 

12150 IFF3<.5THEND4=D4+lELSED4=D4+2 
12209 Y(CT)=40-D4:RETURN 

13000 CLS:PRINT078,"NO GRAPHS IN MEHORYI "j : PRINTP142, "PRESS ENTE 
R TO RETURN TO MENU -" ; : CI=175 tGOSUBl 4 000 [RETURN 
14000 REM **• INKEY ROUTINE *** 
14010 12*"" 

14020 I=INKEYS:IFI-"*THKN14020 
14030 IFASC(I)-8THEN14110 
14060 IPASC(I)-13THEN14150 

14100 CI-CI+l:PRINT9CI,Ij:I2«I2*I:GOTO14020 

14110 1FLEN(I2)=0THEN14020ELSEPRINTPCI," " ; iCI=CI-l i I2=LEFTS ( 12, 
(LEN(I2)-1>) :GOT014828 
14150 l=I2sRETURN 



"Each graph is stored in memory and on tape 
as one 122-character string." 
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GOSUB from a higher level. The top level, 
the menu, is the only routine that is not a 
GOSUB. Fig. 3 shows how the levels are ar- 
ranged in the program. For example, the 
calculated Y coordinate routine (level 4) is a 
GOSUB from the assign value routine (level 
3), which is a GOSUB from the new graph 
routine (level 2) that is a GOSUB from the 
menu routine (level 1). 

All of the routines in the program are in- 
dependent modules. A GOSUB is the only 
way into the module and the Return state- 
ment is the only way out. All GOTOs in a 
module are to statements within that 
module or to the Return statement. The vari- 
ables used by the program are listed in Fig. 4. 

Each graph is stored in memory and on 
tape as one 122-character string. When a 
graph is saved, all numeric information is 
converted to string values and is combined 
with the graph string information and the 
name string assigned to the graph. When 
retrieving a graph, the numeric string infor- 
mation is converted back to numeric. To 
save time when reading and writing to tape, 
each read/write is of two graphs combined 
into one 244-character string. The layout of 
the 122-character graph string is shown in 
Fig. 5. 

The menu routine starts on line 100. This 
is the main driver of the program. It displays 
the menu and then, depending on the key 
pressed, issues a GOSUB to perform one of 
the four main functions. If the End option is 
selected, it checks to see if the graphs in 



memory have been updated, and if they 
have, It gives you a chance to save memory 
on tape before ending. 

The load data tape routine starts on line 
1000. The first record read is the number of 
graphs on the tape. The data Is then read in 
as 244-character strings, two graphs to a 
string, and stored in memory. 

The write data tape routine starts on line 
4000. It does the opposite of the read tape 
routine, writing out the number of graphs 
and then writing out the contents of the 
graph table, combining every two graphs in- 
to one 244-character string. 

The build new graph routine starts on line 
1400. It prints the graph-building questions 
and accepts the information entered. Be- 
cause the questions are printed on the bot- 
tom line and inputting data on the bottom 
line causes line feed, the input statement 
cannot be used. All the data is entered us- 
ing the IN KEYS subroutine that starts on 
line 14000. It is described below. All of the 
graph drawing is done by GOSUBs to graph 
drawing routines. The inputting of values is 
also done by subroutine. 

The retrieve graph routine starts on line 
2500. It first displays the names of all the 
graphs in memory and then, using the IN- 
KEYS routine, accepts the name chosen. 
Lines 2800-3100 are a binary search of the 
graph table for the chosen name. If the 
name is not found, an error message is 
displayed and another choice is asked for. 
When the graph data is found, it is decoded 



and the graph variables are set up. GOSUBs 
are issued to draw the graph. 

At the end of both the new graph and re- 
trieve graph routines is a GOSUB 7500. 
Starting in line 7500 is the graph function 
routine. It displays the graph title and an 
asterisk and then goes into an INKEY$ loop 
to accept commands. Depending on the key 
hit, it issues GOSUBs to perform the 
various graph functions or returns to the 
calling routine. When it is about to issue a 
GOSUB, it blanks out the asterisk. 

The save routine starts on line 7700. If the 
graph is new, it asks for a name for the 
graph and uses the INKEYS routine to ac- 
cept the input. For both old and new graphs, 
the graph data is then encoded and stored 
in memory. An old graph is stored in the 
same location it was retrieved from. For a 
new graph the graph table is stepped 
through, each entry being shifted down one 
position, and the new graph is inserted right 
before the entry it is greater than. If the new 
name is already in memory, all the down- 
shifted table entries are shifted back and an 
error message is displayed. 

The switch routine starts on line 8700. It 
first issues a GOSUB to the clear graph rou- 
tine to blank out the graph area and replot 
the points. It then switches the graph type 
and issues the GOSUBs to draw the new 
typed graph. 

The add value routine starts on line 9100. 
It checks the value label table and finds the 
first empty value. It then issues a GOSUB to 
the enter label and value routine to accept 
the value and label being added and then is- 
sues a GOSUB to draw the graph with the 
added value. 

The change value routine starts on line 
9500. It asks for the label of the value to be 
changed and then searches the label table 
for it. If the label is not found, an error 
message Is displayed. When the label is 
found, it issues a GOSUB to the Enter value 
routine, replaces the value in the value 
table, and then issues GOSUBs to the clear 
graph routine and the graph drawing rou- 
tines to draw the graph with the new value. 

The delete routine starts on line 10000. It 
checks the new graph switch and if it is a 
new graph, it displays an error message. If it 
is an old graph, it is deleted by shifting all 
the table entries below it up one position. 

The draw line graph routine starts on line 
5000. This routine determines the length 
and number of small line segments needed 
to draw a balanced, proportional line be- 
tween two points on the graph, and then 
draws it. The routine is divided into three 
separate areas. Line 5300 handles point dif- 
ferences of zero, one, two and six. Lines 
5350-5550 handle differences of three, four 
and five and lines 5600-6200 handle differ- 
ences over six. The six and under differ- 
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ences are drawn as unique situations. The 
over six differences are each calculated 
separately. The over six routine calculates 
how many middle line segments are needed 
and how long they will be. Any leftover 
amounts are divided between the top and 
bottom of the line. Line 5600 performs the 
calculations that result in the following 
variables: 

02 = Length of middle line segments: 

03 = Number of middle line segments: 

04 = Length of end line segments; 

05 = Number of end segments (to be decremented); 

06 = Number of end segments (not to be decremented). 

The routine then uses these variables to 
draw the line, splitting the end segments 
between the top and bottom of the line. In 
all cases D' is the direction of the line, 
minus one for up or plus one for down. 

The bar graph routine starts on line 
11000. It is a straightforward Set loop, Set- 
ting all coordinates between the point and 
the X axis. The layout X and Y axis routine 
starts on line 7000. It draws the X and Y axis 
on the screen with Set loops. The Y axis rou- 
tine starts on line 10500. It displays the Y 
range numbers, the Y label and the Y multi- 
plier on the screen. The label and plot value 
routine starts on line 10700. It displays the 
value label and performs the Sets to plot the 
point on the screen. 

The assign label and value routine starts 
on line 1 1300. It asks for the value label and 



POS 


Length 


Field 


1-8 


8 


Graph name 


9 


1 


Negative start value Y Indicator 


10-12 


3 


Stan value V 


13-14 


2 


Increment 


15-22 


8 


Label Y 


23-27 


5 


Y multiplier 


28-97 


70 


14-5 character label and value combinations 
3 character value label 

2 character Y co-or 


98-121 


24 


Graph title 


122 


1 


Graph type 




Fig. 5. 


Graph Data String Layout 



the value. It issues a GOSUB to the Y calcu- 
late routine and then stores the label and 
value coordinate in their respective tables. 
It then issues a GOSUB to the label and plot 
routine. 

The Y calculate routine starts on line 
12000. It calculates the Y coordinate value 
that is closest to the Y range value that was 
entered. 

The clear graph routine starts on line 
8900. It prints long space strings to blank 
out the graph area, and does Sets and 
Resets to clean up the X axis. It then issues 
GOSUBs to replot the points. 

The encode numerics routine starts on 
line 8550. It converts a numeric graph vari- 
able into a specified length string and then 
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Type 


Description 


I 


String 


Primary string I/O 


C 


Integer 


Primary numeric I/O 


II In 


String 


Intermediate strings 


C1-Cn 


Integer 


intermediate integer values 


CT 


Integer 


Counter 


SW 


String 


Graphs updated switch 


M(50) 


String 


Graph data table 


CM 


Integer 


Total graphs in memory 


VY 


Integer 


Start value Y 


CN 


Integer 


Increment value 


LY 


String 


Label Y 


MY 


String 


Y multiplier 


PW 


Siring 


End inputting values switch 


Tl 


String 


Graph title 


TY 


String 


Graph type 


NS 


String 


New graph switch 


CP 


Integer 


Graph name print position 


NA 


String 


Graph name 


DlDn 


Sing-pre 


Calculation variables 


LV(14) 


String 


Value label table 


Y(14) 


Integer 


Value Y co-or table 


DF 


Integer 


Point to point Y difference 


Dl 


Integer 


Line direction 


cx 


Integer 


Set X co-or 


CY 


Integer 


Set Y co-or 


CL 


Integer 


Current graph table location 


F 


Sing-pre 


Single precision input 


Yl 


Integer 


Subscript for draw line routine 


BL 


String 


Blank line 




Fig. 4. Program Variables 



combines the string with the total graph 
data string. C3 is the length of the string, 
which is set up by the calling routine. 

The INKEY$ routine starts on line 14000. 
It is an INKEYS loop that builds a string of 
characters of the keys hit. It also prints 
each character as its key is hit. CI is the 
print location, which is initialized by the 
calling routine. If a backspace (ASC 8) is 
detected, the last character is deleted from 
the string, the last character printed on the 
screen is spaced out and CI is decremented 
by one. If an Enter (ASC 13) is detected, the 
subroutine stops and returns to the calling 
routine. 

Final Comments 

This program has been designed as a 
general-purpose graph utility program able 
to draw and maintain a wide variety of dif- 
ferent graphs. However, if you want to in- 
corporate graphing into an existing pro- 
gram or one you are writing, you can also 
use this program. Because each routine is a 
separate module, you can just add the 
modules you need to your program to 
generate your specific graph. If your pro- 
gram generates the values to be graphed, 
you can have it load the value table and 
then issue the GOSUBs to draw the graph. 

The program should also be very useful in 
helping to teach children about graphs. For 
example, the change value function lets 
them see how different values change the 
appearance of the graph and the switch 
function shows them how a bar and line 
graph show the same information in dif- 
ferent ways. 

If you want to store your graphs on disk, 
just rewrite the load data and write data 
routines to read and write to disk. No other 
changes should be needed. 

A final note: Don't use Break to end the 
program. Option five on the menu will end 
the program normally and if you have saved 
graphs in memory, it will remind you to save 
them on tape. If you use Break, you could 
lose the graphs you've stored in memory.! 
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CONVERT YOUR TRS-80 MODEL- 1 INTO A 

DEVELOPMENT SYSTEM 

Now you ran develop / 80 based standalone devices such as ijarnos robots 
instruments and peripheral controller', by using your TRS-80 as d development system 
I he DEVEI OPMATE plugs into the expansion connector ol your TRS-80 and adds 
PROM PROGRAMMING and IN-CIRCUIT-EMUIATION caoabil t es to your 
system (wth rv without expansion interlacei 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs one TTL circuit tor clock and reset aZ-80. anfcPROM and 
"ne peripheral interface chip 

^BHR When the In Circuit Emulation cable is plugged 

mto the Z 80 socket ol your stand alone system 
the system becomes a pan ol your 1 HS-80 You 
can use the Ml power ol your editor .issembler s 
debug and trace programs to checu out both the 
hardware and me software Simple test loops 
can be used to check out the hardware then the 
system program can be run to debug the logic ot 
your stand-alone device 

Since the orogram is kepi in TRS-80 RAM 
changes can be made quickly and easily When 
your stand alone device works as desired you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM and a Z 80 in place ol the emulation 
rable you' stand alone device will work by itself 

The DEVELOPMATE is extremely compact Both tne PROM programmer and the 
In Circuit-Emulator are «1 one small plastic box only 3 2-54 A line plug mounted 
power supply is included The PROM programmer has a personality module which 
defines the voltages and connections ol the PROM so that future devices can be 
accommodated However the system comes with a universal personality modu'e 
which handles 2758 2508i8K| 2716 2b16l 16K| 2532i32Kl as wen as the new elec- 
trically alterable 2816 and 480161 16K EEPROMs) 

The COMPLETE DEVELOPMATE 81 with software power Suppiy emuiat'on 
r?bie TRS 80 cable, and universal personality module isONLV S329 1 
The PROM PROGRAMMER is available separately 'or ONLV S239 

ORION INSTRUMENTS "" 
1 72 Otis Avenue Dept M Woodside C A 94062 

l4iS|85t-1172 

Master Charge and Visa phone orders accepted 

California residents please add 6°c sales tax 




CO 
PIGGYBACK! 




CERTRDniC5 

add lowercase with our 
plug-in piggyback board! 

9WX7H Dot Matrix $135 
5WX7M Dot Matrix $ 95 

TWO complete character sets on board: 
96 character ASCII PLUS choice of 
128 character APL. TRS-80/H-19 Graphics or 
Scientific. (Customer defined: add $50/set). 
Most printers convertible: specify logic board # 



SYDNEY SEZ: 
Shop Comporotlwlyt 




^368 



Digital Systems Engineering 



12503 Kings Lake Drive. Reston VA 22091 (703) 620-2994 



ALSO AVAILABLE: New Centronics and Integral Data Systems printers at 
15-20% beiow list; also, used printers of several makes CaH for information! 

MasterCard VISA. Check. M0. P0 All products waranteed 90 days 



Untangle with the Organizer! 



Now you can place your TRS-80 Model 1 compo- 
nents into one convenient desk top package. The 
ORGANIZER puts everything within reach, with 
room for Monitor, Expansion Interface, four Disk 
Drives, Diskettes, Cassettes and tape recorder. 
The ORGANIZER eliminates messy wires, re- 
duces eye and body strain, provides room for ven- 
tilation, and works as a dust shield. 

The ORGANIZER consists of two cabinets: 

CABINET ONE holds Monitor, Expansion Inter- 
face, Power Supplies, Line filters, Cables, Power 
strip, Fan and has an easily removable front panel 
for re-booting. 

CABINET TWO can hold up to four Disk Drives, 
Tape Recorder, Fan, Diskettes and cassettes. This 
cabinet is usable with any manufacturer's 5 1 /4" 
disk drives. 

BUY BOTH— $87.50 + $8.75 ship & handle 

CABINET 1— $64.00 + $5.75 
__, ship & handle 

Un. 

CABINET 2— $44.00 + $4.50 
ship & handle 

For VISA, MASTERCARD, or C.O.D. 




CALL NOW TOLL FREE 

Continental U.S. . . .800-824-7888 ask for operator 617 

California . . . 800-852-7777 ask for operator 617 

Alaska and Hawaii . .800-824-7919 ask for operator 617 

Or send check or money order to: 



DESIGNATION 



2794 Hume Rd, Malibu, California 90265 
For information call (213) 456-9023 



• See List ol Advertisers on page 402 
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GENERAL 



Corral the features you want 

before you put your brand on a word processing system. 



A Fast Round-Up 



Gordon McComb 
410 Escondido Avenue 
Vista, CA 92063 



ord processing programs for the 
TRS-80 Models I and III are about a 
dime a dozen. Well, actually, they cost up 
to a hundred dollars apiece and that's 
where the problem begins. Word Process- 
ing is one of the most versatile, worthwhile 
and time saving programs you can run on 
your computer, but there are so many to 
choose from! How do you go about looking 
for a good word processing package and 
not go broke in the process? Read on! 

Good Versus Good 

It is difficult to define a good or bad 
word processing program. Many will agree 
that when a program is full of bugs, 
doesn't live up to its advertising and is an 
all-around letdown— yes, that's a bad pro- 
gram. But, like a lot of software, good is in 
the application of the beholder. A word 
processing program may be perfect for one 
user and lousy for another. 

Here are five simple steps that can help 
you choose a better word processing 
package: 

• Always select a word processing pro- 
gram that will fit your needs— both 
present and future. You may not always be 
able to find an off-the-shelf program that 
will do everything you want it to do, but you 
should be able to come close. The bottom 
line: Choose a word processing program 
that will get all of your jobs done. 

• Your program should be flexible 
enough so that it can grow as your applica- 
tions grow. If you think that in the future 
you'll need to create more than just form 
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letters with your system, make sure your 
software can complement your needs. 

• The word processing program you 
choose should fit the capabilities of your 
present inventory of hardware. Ideally, 
your program should grow as you Improve 
your system. If the software includes 
fancy graphics, along with underlining, 
boldface and justified margins, It won't do 
you much good if you own a modified IBM 
Selectric. 

Incidentally, your printer is an integral 
part of your word processing system, but 
many people fail to give it the attention it 
deserves. The best printers for word pro- 
cessors are the daisy-wheel or a high- 
quality dot matrix. 

• The main purpose of a word process- 
ing package Is to save you time and 
money. Word processing is particularly 
useful when repetitive typing is necessary; 
for example, letters, reports and docu- 
ments. Word processing software is also 
good for preparing original manuscripts (no 
more Liquid Paper!), sending out bills and a 
host of other applications. It's important 
lhat your program doesn't slow you down. If 
it takes less time to type it out manually, 
then you're defeating the purpose of word 
processing. 

• Finally, the program should be easy to 
use. A complicated program may be fine 
for someone well versed in computers, but 
it's out of place for the average user. Some 
programs require a certain knowledge of 
computers to operate properly. Make sure 
you (and your operator) can use the pro- 
gram to its fullest. 

However, a complicated program doesn't 
always mean a complicated operation. 
Many programs jammed with goodies are 
far simpler to use than some that do 
nothing more than print out form letters. 



The documentation supplied with the 
software is another important considera- 
tion. Some are written with technical 
jargon understood only by computer 
engineers; others are written for the rest of 
us. Tutorial aids, such as audio cassettes, 
can also be a real help when learning to 
use the program. 

Inside a Word Processor 

In order to choose the best word 
processing program for your particular 
needs, it is important that you understand 
the features common to most word 
processing software. You may find you 
don't need some features; others you 
might not be able to do without. Following 
are several important features that you 
should consider in your quest for the 
perfect word processor. 

User-defined Video and Printing 

You should be able to change the way a 
document will appear on the page when it 
is printed. In addition, altering the ap- 
pearance of the text in the video monitor 
helps in preparing and editing non- 
standard documents. 

Normally, the computer will set up all 
screen and printer formats when you start 
up the system. It will assume you want to 
use the program in the normal fashion. 
These are called defaults, and unless you 
tell the computer otherwise, it will perform 
all of the functions as originally designed. 

A word processing program capable of 
printing documents only on standard 8Va 
by 11 paper will be of little use to an at- 
torney or others who use a larger paper 
size. 

Cursor Control 

The ease with which you can position 
the cursor for writing and editing the docu- 

Reader Service lor facing page »*3f5-* 
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DBS 

true data base management 
for your TRS-80 M 

Your Model II is not a toy... and neither is MDBS. 
MDBS is the serious tool for applications development. 



Harvey M. Weiss, 

an independent 

software reviewer: 



ONLY MDBS has 
all these features! 



"MDBS is truly a data base management system — not a file management system." 

"MDBS... offers the data manipulation, query, and report-writer capabilities of a DBMS 
found on much larger and more complex computer systems." 

"MDBS has come to the rescue with. . .products whose ability to reduce development time 
and implement processes not available elsewhere make them invaluable to integrators and 
developers of /ic-based systems. [With MDBS,]. . .program development and data base 
description is simple." 

For the complete Weiss review, see "Downscaling DBMS to the Microworld," Mini-Micro 
Systems, April, 1981, pp. 187-195. 

Flexible, powerful data structuring capabilities: network and hierarchical data structures, 
including direct many-to-many relationships (not available elsewhere). 

Genuine data base management capabilities: far surpasses file management in data 
independence, automatic maintenance of relationships, and control over data redundancy. 

English-like, nonprocedural query language interface: ad hoc queries result in the automatic 
generation of desired reports, tables, files, and relations. 

Host language interfaces, including various BASICS, COBOLs. PASCALS. FORTRAN, PL/I. 
C, and several assemblers. 

Extensive built-in data access security (256 levels). 

Automatic transaction logging and data base recovery. 

Dynamic data base restructuring. ..and many other advanced data base management 
features. 

MDBS is written in Z-80 machine language and runs under TRSDOS or NEWDOS with TRS 
DISK BASIC; under CP/M® (and similar derivatives) with CBASIC2, PL/1, PASCAL Z. 
PASCAL M, PASCAL MT+. BDS C. CIS COBOL, and Microsoft COBOL. FORTRAN, or BASIC. 

MDBS code size is only 18K to 20K bytes for Models I and II. 

MDBS is independent of the types and sizes of disk drives. Supports data base spread overas 
many as eight disk drives. 



To learn more 



■ ■'■ 



Free pamphlet 



» For free literature about serious data base management on Models I and II, call, write, orTWX 
us. We'll include a pamphlet on features to consider when choosing a software tool for 
application system development. 

For a practical introduction to true data base management for small computers, please send 
$20 (Indiana residents, add 80C tax) for PRIMER/GUIDE booklets. 

• For a comprehensive DOCUMENTATION PACKAGE consisting of THE PRIMER plus user 
manuals covering the MDBS, QRS, RTL, and DRS, please forward $60 ( + $2.40 Ind. tax). 



Setting standards of excellence for data base 
software. . worldwide, 

Micro 
Data Base 
Systems, inc. 

Box 248 

Lafayette, Indiana 47902 

317-448-1616/TWX 810-342-1881 

Dealer/distributor/ OEM inquiries invited. 




□ Please send me free literature on the MDBS. 

□ $20 (Ind. tax 80<P) enclosed for MDBS PRIMER 
and GUIDE (total 97 pages). 

□ $60 (Ind. tax $2.40) enclosed for Complete 
MDBS DOCUMENTATION PACKAGE. 



Name 



(Please print) 



Title 



Company 
Address _ 



City 



Phone 



(State) 



(Zip) 



MAIL TO: Micro Data Base Systems, Inc. ^315 
Box 248-M 
Lafayette, IN 47902 



■ See List 0/ Advertisers on page 402 
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"Global editing is a boon 

for indexing, form letter preparation, 

specification typing and many other documents. 



ment is a feature often overlooked. The 
longer the document, the more tedious it 
will be to position the cursor. Some pro- 
grams move the cursor only one character 
and one line at a time. Others flip through 
the document from beginning to end, go 
back and forth from the start to the end of a 
line, and so forth. If you need to work with 
lengthy documents, it might be a wise idea 
to stay away from a program that has limit- 
ed cursor control. 

Wrap-around 

You may notice that on most word 
processing programs you don't need to 
push Enter when you finish a line. If a word 



exceeds the maximum screen width, it will 
wrap around onto the next line. 

Local Edit 

Local editing refers to one-at-a-time 
changes. The simplest form of editing is 
the strikeover. If you make a typo, you 
merely position the cursor over the wrong 
letter and retype the word correctly. 

Other local editing features include 
single word delete or insert and line delete 
and insert. If you need to take out a word, 
position the cursor on the first character 
and push the Delete key. The word is 
erased and all of the text closes up to fill 
the gap. The words re-wrap as needed to 



Underlining 



Boldface 



Character l/D 



Line I/O 



Global Replace 



Global Search 



Global Delete 



Headers & Footers 



Auto Pagination 



Hyphenation 



Selectable Tabs 



Block Manipulation 



Flush Right Margin 



Justification 



Centering 



Vertical Centering 



Merging 



Menu Driven 



Tutorial Aides 



Free Updates 



Modification Req'd. 




Table 1 



make it tidy and neat. 

Global Editing 

Let's say you must change a person's 
name throughout a lengthy document. In- 
stead of tediously looking for each occur- 
rence and making the changes manually 
one at a time, you can instruct the com- 
puter to perform a global replace function. 
You tell the computer what name to find 
and what to exchange it with. 

Other global functions are search (or 
find) and delete. Global editing is a boon 
for indexing, form letter preparation, 
specification typing and many other 
documents. 

Header and Footer 

There may be times when you need to in- 
clude a title or your name on each page. A 
header will place this information on the 
top of the page; a footer on the bottom. 
You can also select this function to occur 
only on odd or even-numbered pages 
(when a document is printed on both sides 
of the paper, for example). 

Auto Pagination 

Since it is often difficult to determine 
when one page will stop and another will 
begin, a program that automatically 
numbers the pages can be very handy. 
Many programs enable you to begin 
numbering at any point in the document 
and place it anywhere you wish in the top 
or bottom margin. 

Margins 

In addition to being able to select the 
amount of margin space on the top, bot- 
tom, left and right sides of the paper, your 
word processing program might also be 
capable of: 

• Flush right margins— where the stan- 
dard even margin is on the right side, 
not the left. 

• Justified— both side margins are 
even. Space is added between words 
to spread out the lines when 
necessary. 

• Centered— each line is centered on 
the page. 

• Vertical centered — where the entire 
document is placed neatly in the mid- 
dle of the page. No more top-heavy 
letters! 

Page Scroll and Line Scroll 

Depending on how your program "sees" 
the text, you'll be able to go through the 
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'Merging, in this case, has nothing to do 
with Wall Street or big business. " 



document either one line at a time, or en- 
tire pages at once (screen pages; usually 
only one third or one fourth the amount of 
copy of a printed page). 

Tabs and Indenting 

Many programs enable you to select a 
tab stop at every character position. 
Others have pre-selected tabs, usually at 
five or 10 spaces apart. Many programs 
will indent at the beginning of each new 
paragraph. Few programs will allow you to 
have each line indented, as when prepar- 
ing outlines and specs. 

Block Manipulation and Merging 

A block is any large amount of text. 
Whenever you need to alter entire seg- 
ments, block manipulation will come in 
handy because you won't have to retype 
the text. If you need to change the position 
of a particular paragraph from the begin- 
ning to the end of a document, you begin 
by placing block markers around the para- 
graph, then tell the computer where you 
want the text to be moved. 

Merging, in this case, has nothing to do 
with Wall Street or big business. It is a 
highly useful feature that enables the 
operator to send out items such as per- 
sonally addressed form letters in a mini- 
mum amount of time. 

First, you create a primary document 
and insert variable commands wherever in- 



formation is to be changed. On the secon- 
dary document, you include names, ad- 
dresses, account numbers and balances 
(or whatever). When you mergethetwo, the 
information from the second file will be in- 
serted into the proper slots in the text of 
the primary document. 

Merging is a feature many programs 
don't have, but it is something you can buy 
as an add-on to your present word process- 
ing program. 

Modification Requirements 

A few of the programs recommend cer- 
tain hardware modifications (in addition to 
the standard upper/lowercase modifica- 
tion for the Model I). You'll need to con- 
sider this very carefully, especially if you 
have a new machine which is still under 
warranty. Opening up the keyboard and 
adding hardware will definitely void the 
warranty. 

Priorities 

How do you go about deciding what 
you'll need in a word processing program? 
First, examine the type of documents 
you'll be preparing. Cross reference these 
with features that you must have to ac- 
complish the work. If you want, put a point 
value on the importance of each feature. 

Then compile a similar list, this time jot- 
ting down features you'd like to have, but 
which are not absolutely necessary to 



carry out what you need. Assign a point 
value to these also. 

Compare your lists with the programs 
available on the market. Those most needed 
features will be on the top of the list, and soft- 
ware that fails to pass should be dropped 
from the race. 

After this process of elimination, you 
should have one or two programs that will 
suit your needs. Contact the nearest sup- 
plier of the program and see if you can ar- 
range a demonstration. Since software is 
something you usually can't return, it's a 
good idea to be absolutely sure you know 
what you're getting. 

To make your search a little easier, 
we've compiled a list of several word 
processing programs available for the 
Models I and III. We sent out a detailed 
questionnaire to about two dozen soft- 
ware houses and those that responded 
have been included here. Undoubtedly, 
there are many other programs available, 
but this cross-reference chart should steer 
you in the right direction in determining 
which software will be best for your par- 
ticular application. 

To some, word processing seems like a 
luxurious fad. People have been banging 
out letters on typewriters for almost 100 
years. Why not 100 more? But we 
guarantee, if you try out a good word 
processing program, you'll wonder how 
you ever got along without it! ■ 



OMNITERM 

Whit It 0MNITERM7 

OMNITERM is a profession! communicatiOAS package foi the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer We've never found a computer that OMNITERM can't work with. It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text tdhrx. special configuration flits, serious 
documentation and serious support. 

Why do I need it? 

Yob reed OMNITERM if yoi need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer You need OMNITERM to SOLVE your commentations problems once 
and for all. 

What do I get? 

The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source and Dow Jones — nist as samples of what you can 

/indbergh Systems 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with The package includes six programs, seven 
data files, and real documentation a 76-page manual that has been called "the best In 
the Industry." And OMNITERM comes with real user support Wt can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 
OMNITERM 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80 at least 32K of memory one disk and the RS 232 
interface OMNITERM works with all ROMs and DOSes and will work with your 
special keyboard drivers 

What will it do? 

OMNITERM allows you to translate any character going to any device- printer screen 
disk keyboard, or communications lint giving you complete control and allowing you to 
redefine the character sets ot all devices It w>ll let you transfer data and run you' 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so that 80, 32. or 40 column lines are easy to read and look neal on 
your TRS-80 screen It even lets you get on remote computers with jusl one keystroke 1 
The program lets you send special characters echo characters, count HART errors 
configure your UAR1 send True Breaks and use lower case It accepts VIDEOTEX codes 
giving you full cursor control. It wiM even let yoi review text that has scrolled off 
Ihe screen 1 Besl ol all OMNITERM will save a special file with all your changes so you 



can quickly use OMNITERM for any 
one ol many different computers by 
loading the proper file It's easy to use 
since it's menu driven, and gives you a 
full status display so you can examine 
and change everything 

"OMNITERM has my vote as the top 
TRS-80 terminal program available today" 
Kilobaud Microcomputing. June 1981, 
pages 16-19. 

OMNITERM is $95 (plus shipping if 
COO) Call for 24 hour shipment Manual 
alone $15. applied toward complete pack- 
age Visa. M/C. and COO accepted MA 
residents add 5% tax Dealer inquiries 
invited 

Contact Lindbergh Systems for your 
custom programming needs We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language or Forth 



41 Fairfiill Road. 



MA 01520 (617)852-0233 swatcMi! iw&m toio^t nts-w * * - a» r*^» top 
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/TjMPUTEX 



321 El Dorado • Webster Texas 77598 • (713) 488-8022 ^™ 



...for the most satisfying gifts all year 



FROM COMPUTEX 



MODEL III SYSTEMS 



COMPLETE BUSINESS SYSTEMS 



• Astec switching power supply for cooler, more efficient operation • goldplated edge card 
connections for improved reliability • floppy disk storage to 2 Mbytes • disk controller handles 
40780-track single and double-headed drives • fully compatible with TRSDOS, LDOS, DOS + and 
NEWDOS 80 • fully tested and burned in • 90-day warranty on parts and labor. 

Model 321 - 350 Kbyte $1 ,895.00 

• 48K Model III with two Tandon 40-track single-headed double 
density disk drives • system includes TRSDOS, dust cover and one box 
of Verbatim diskettes __ 
Model 322/ 3 - 700 Kbyte $2,295.00 

• 48K Model III with your choice of either two Tandon double-headed 
40-track disk drives, or two single-headed 80-track drives • system 
includes LDOS. dust cover, and one box Verbatim diskettes 
Model 324 - over 1 .4 Mbyte $2,595.00 

• our largest all-in-one Moaei ill provides over 1.4 Mbytes of floppy 
disk storage with two Tandon double-headed 80-track drives • 48K 
Model III system includes LDOS, dust cover, box Verbatim diskettes 

We now carry complete business software from SBSQ, Galactic, PRO SO FT, Radio Shack, many others 




TANDON 8" THINLINE DISK DRIVES 



• Exactly half the height of any 
other model 

• Proprietary, high-resolution, 
read-write heads 

• DC operation - no AC required 

• Industry standard interlace 

• Same as Shugart SA901. pinout 

• 3-ms track-to-track access time 

• Single or double headed 

• Single or double density 




$495.00 

Storage: 600K single 



TM848-1 

Single-sided 77-track 

density, 1.2 Mbyte double density 

TM848-2 $595.00 

Double-sided 77-track - Storage: 1.2 Mbyte 
single density, 2.4 Mbyte double density 

Complete Model II expansion bay system will be 
announced soon. 



TANDON TM600 SERIES 
VA" MINI-WINCHESTER 
DISK DRIVES 

• Highest storage capacity of any 
5Vi" high-speed random access 
drive 

• Up to 46 Mbytes online storage 

• Up to four TM600's can be 
daisy-chained on single bus 

• S-version compatible - Shugurt 
SA1000 and Seagate ST506 

TM602S $1,195.00 

3-ms access time -612 tracks -5 Mbytes/ s data transfer 
rate - 6.38 Mbyte RPM capacity (unformatted) 
TM603S $1,295.00 

3-ms access time - 918 tracks - Mbytes/ s data transfer 
rate - 9.57 Mbyte RPM capacity (unformatted) 

Complete Model I and III systems will be announced 
soon. 




TRS 80 MDX-2 SYSTEM EXPANSION 

The new MDX-2 from Computex provides more 
capabilities than any other system expansion currently 
available. • build only what you need • silk-screened 
and solder-masked PCB • dip switch instead of 
hardware jumpers • no messy vertically-mounted 
termination resistors. 



m m 




complete kit 

$269.00 



MDX02 printed circuit board $74. 

Onboard direct connect modem kit 39 

2K/4K Eprom kit 17 

RS232 mA serial interlace 17 

Real-time clock kit 17 

Floppy disk controller kit 31 

32K RAM expansion kit (less RAM) 11 

Cassette port 3 

Analog power supply 29 

Hardware and socket kit 19 

Centronic line printer port 8 

16K Ram memory 14 



95 

96 

9b 
% 
% 
95 



95 
95 



* 



COMPUTEX 
Comprehensive Test Program $21 .95 

As a leading supplier of disk drives and TRS80 systems, we had to have 
a system test program - and one that we could trust. Since none existed 
we wrote our own. Now we make It available to you. A must for disk 
drive users - no library should be without one. 

• disk drive speed test • disk drive alignment program 
requires alignment disk - Dysan Alignment Disk 
39.95) • expansion intertace RAM test • keyboard 

RAM TEST • video RAM test • keyboard bounce test • 

ROM checksum program • full screen RAM display 

program 



TANDON DISK DRIVES 



• Fast 3-5-ms track-to-track access time 

• Single or double density operation 

• Total compatibility with Model I or III 

• Pre/ post testing during 48-hour burn-in 

• 90-day limited warranty 



$299 95 TM 100-1 - single-sided 40-track drive - 102 Kbytes single density 180 $235 00 
Kbytes double density 








$399 95 TM100-2 - double-sided 40-track drive - 204 Kbytes single density - 360 $335 00 
Kbytes double density 



g£ $399 95 TM100-3 - single-sided 80-track drive - 204 Kbytes single density - 360 $335.00 

o«8 * Kbytes double density 

$499 95 TM100-4 - double-sided 80-track drive - 408 Kbytes single density - 735 £435 r\(\ 

' Kbytes double density #*too.uv 






2-drlve cable - $24.95 



• 4-drive cable - $34.95 



d rive extender $14.95 



MODEL III DISK DRIVE EXPANSION KITS 



• Switching power supply • storage to 2 Mbytes • supports TRSDOS, LDOS, DOS + , and new DOS80 

• 32K RAM expansion • double density disk controller • goldplated edge card connections • includes 
TRSDOS and manual, all cables and necessary hardware, installation manual • fully tested and 
burned in • 90-day warranty 

M3DK0 - Drive kit with one Tandon single-sided 
40-track drive $550.00 

M3KD1 - Drive kit with two Tandon single-sided 
40-track drives $765.00 

M3DK2 - Drive kit with two Tandon double-sided 
40-track drives $995.00 

M3DK4 - Drive kit with two Tandon double-sided 
80-track drives $1,195.00 




LNW Color $499.94 

Computer Kit 

All components to assemble LNW color 
computer - high resolution video RAM and 16K 
user RAM - keyboard - level II compatible 

ROM's, (does not include PCB) 

LNW Expansion $219.95 
Interface Kit 

All components to assemble LNW expansion 
interface, plus 32K of RAM. Does not include 
PCB, dual cassette relay or cabinet. 



Save now on 
EPSON PRINTERS 



Prices do not 
include shipping 



VISA & MASTERCARD 
ACCEPTED 



ATTENTION: OEMS, GOVERNMENT, 
SCHOOLS. CORPORATIONS: We can now 
handle net-30 terms for D&B-rated 
companies. All products will carry an 
additional 7 percent handling fee. 



UMPUTE/; 



a subsidiary of World Wide Data Systems, Inc. 



321 El Dorado • Webster Texas 77598 



►^392 



(713)488-8022 



BUSINESS 



Check the menu for the business program you want. 



Investment du Jour 



C. Brian Honess 
22 Shaftesbury Lane 
Columbia, SC 29209 



roups of programs are often com- 
bined into one larger program using 
the menu technique. The individual pro- 
grams can be of fairly diverse applications, 
but usually have a central theme. For exam- 
ple, in a statistics package you might find 
programs ranging from simple descriptive 
statistics to the most complex multi-variate 
analysis programs. 

Menu 

Let's assume a brief package of three 
financial routines. First, clear the screen. 



Then a series of statements print the menu 
(See Table 1). Put the name and number of 
more routines starting in line 19 of Program 
Listing 1. 

Number the three routines at lines 100, 
200, and 300 of Program Listing 2. Use 
On. . .Goto for routine selection. 

Compound Interest 

When only the principal earns interest for 
the entire life of a deposit or loan, the in- 
terest due at the end of the time is simple in- 
terest. Invest $100.00 at five percent per 
year simple interest. At the end of the year 
you have $105.00. At the end of the second 
year you have $110.00; the $5.00 interest in 
the first year is not added to the principal, 
and draws no interest. Minor problems are 
caused by different numbers of days in the 
months and years, but the principal earning 
interest remains unchanged throughout the 
life of the loan or deposit. 



Compounding (interest due is added to 
the principal) results in different interest 
payments. Different principal amounts are 
used to calculate the interest. 

The formula for finding the value of a 
deposit of P dollars at an interest rate of i 
percent (expressed as a decimal) for n 
periods is fairly simple: 

V = P(1 + i) n 

With compound interest, the value of the 
$100.00 invested for one period at six per- 
cent is the same as when using simple inter- 
est— $106.00. During the next period the en- 
tire $106.00 earns interest at six percent, 
making the amount at the end of two peri- 
ods $1 12.36 instead of the $1 12.00 with sim- 
ple interest. 

Our simple formula does not apply to 
quarterly or daily compounding. The for- 
mula for this type of problem is: 



10 


PRINT 






11 


PRINT 


• • • HONESS FINANCIAL PACKAGE ' ' 


" 


12 


PRINT 








13 PRINT 


PROGRAM 


ENTER ' 




14 


PRINT 




• 




16 


PRINT 








16 


PRINT 


•COMPOUND INTEREST 


1 




17 


PRINT 


•DISCOUNTED PRESENT VALUE 


2 " 


18 


PRINT 


DEPRECIATION 


3 


30 


PRINT 






31 


INPUT 


•WHICH DO YOU WANT"; N 

Program Listing 1 





v = P(i +-L) r 
c 



• • • HONESS FINANCIAL PACKAGE 
PROGRAM ENTER 



COMPOUND INTEREST 
DISCOUNTED PRESENT VALUE 
DEPRECIATION 
WHICH DO YOU WANT? 

Table 1 
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Computer experts 
(the pros) usually have big 
computer experience. 
That's why when they shop 
system software for Z80 
micros, they look for 
the big system features 
they're used to. And that's 
why they like Multi-User 
OASIS. You will too. 



(THEN COMPARE.) 



DATA INTEGRITY: FILE & 
AUTOMATIC RECORD LOCKING 



The biggest challenge 
for any multi-user system 
is co-ordinating requests 
from several user 
to change tt 
at the. 



Without this control, 
unauthorized users could 
access your programs and 
data and do what they like. 
A frightening prospect 
isn't it? 

And multi-users 
can multiply the problem. 

But with the Loc 
Password 



memory is needed. Even 
if you have more than 64K, 
your pay-off is cost savir 
and more efficient use' 
of all the memor^ou he 
availabl 



OASIS IS AVAILABLE FOR 

SYSTEMS Alios Compucorp.C'omemcc 
Delia Products. Digital Group Digita 
Microsystems Dynabyte. 
Index. Intersystems. Nor 
SD Systems; TF 
Graphic Voni 




ires 

5flfJ[JWUlTlS. 

sample: normally 
jserscanviewa 
particular record at the 
same time. But, if that 
record is being updated 
by one user, automatic 
record locking will deny all 
other users access to the 
record until the up-date is 
completed. So records 
are always accurate, 
up-to-date and integrity 
is assured. 

Pros demand file & 
automatic record locking. 
OASIS has it. 



[eepmhfmory 
jser nas been 
when and 
>r how long. 
Pros insist on these 
security features. 
OASIS has them. 



EFFICIENCY: 
RE-ENTRANT BASK 



SYSTEM SECURITY: 
LOGON, PASSWORD 
& USER ACCOUNTING 



A multi-user system 
is often not even practical 
on computers limited 
to 64K memory. 

OASIS Re-entrant 
BASIC makes it practical. 

How? 

Because all users use a 
single run-time BASIC 
module, to execute their 
compiled programs, less 



upports 
nals 
inns little as 
ry. Or, with 
switching, as much 

784K. 

Multi-Tasking lets each 
user run more than one 
job at the same time. 

And there's our BASIC- 
a compiler, interpreter and 
debugger all in one. 
An OASIS exclusive. 

Still more: Editor; Hard 
& Floppy Disk Support; 
Keyed (ISAM), Direct & 
Segue n tial Files; Mail-Box; 
Scheduler; Spooler; 
all from OASIS. 

Our documentation is 
recognized as some of the 
best, most extensive, in the 
industry. And, of course, 
there's plenty of 
application software. 

Put it all together and it's 
easy to see why the real 
pros like OASIS. Join them. 
Send your order today. 



Controlling who gets on 
your system and what they 
do once they're on it is the 
essence of system security. 




REENTRANT BASIC 

COMPILER/INTERPRETER 

DEBUGGER 



DEVELOPMENT PACKAGE 

(Macro AsscToie'; 
Lnkage Eoito'; 
Debuoge*) 



TEXT EDITOR I 
SCRIPT PROCESSOR 



DIAGNOSTIC t 
CONVERSION UTILITIES 

(Memory Test. 

Assembly Language 



Recovery Disk Test 
File Copy from 
otre' OS, eic ) 



COMMUNICATIONS 
PACKAGE 

(Term.nal Emulator. 
File Sena A Receive) 



PACKAGE PRICE 

(An o' Above) 
SINGLE USER 
MULTIUSER 



FILE SORT 



COBOL ANSI 74 



500 

1 : 



Order OASIS froir: 

Phase One Systems, Inc. 

7700 Edgewater Drive, Suite 830 

Oakland, CA 94621 

Tr "mone (415) 562-S085 
TWX 910-366-7139 

NAME 



STREET (NO BOX 
CITY 


-). 


STATE 
AMOUNT$ 


ZIP 



(Attacn system descript.on; 

ado S3 (or shipping; 

Cah'ornia residents add sales tax) 

D Check enclosed n VISA 

□ UPS COD. D Mastercharge 

Card Number 

Fxpiration Date 

Signature 



MAKES MICROS RUN LIKE MINIS 



"When only the principal earns interest 
for the entire life of a deposit or loan, 
the interest due. . . is simple interest.'' 



where: c is the number of times compounding 
is to take place In a period 
n is the number ot periods 
i is the interest rate per period 4 
P is the Principal, and 
V is the value at the end of tfca-Ti 
periods 

Return to the $100.00 at six percent for 12 
years problem and assume quarterly com- 
pounding: 



V -100.00(1.0 = 65? )(*' 12) 



Quarterly compounding yields $204.33 com- 
pared with $201.22 under yearly compound- 
ing. 

Use an Input statement with a literal 
prompt for each of the values needed: 

10 INPUT "WHAT IS THE PRINCIPAL";P 

or combine them all like Program Listing 3. 

Run the program for the same principal at 
the same interest rate, with differing rates 
of compoundings. 

The value of principal subjected to con- 
tinuous compounding is given by: 

V = Pe ,n 



where: V is the value 

P is the principal 

e is the base of the common log 

system and is equal to 2.71828 

i is the interest rate 

n is the number of periods 

The value of $100.00 compounded con- 
tinuously at six percent for 12 years is 
$205,443, compared to $204.33 for quarterly 
compounding and $201.22 for yearly. 

Use the EXP function supplied with most 
Basic versions to code a program: 



10 INPUT P.I.N 
20V-P* EXP (I *N) 
30 PRINT V 



The effective annual rate compares the 
interest you get at different rates, com- 
pounded a different number of times per 
period. For example, suppose you Invest 
$100.00 at six percent compounded quarter- 
ly for 1 year: 

V- 100(1 +0.06/4)1(1 * 4) = $106. 138 



and also suppose you invest $100 at 6.136 
percent compounded annually: 



V= 100(1 +0.06136)= 106.136 

Six percent is the annual rate and 6.136 is 
the effective annual rate. 
This type of calculation is easily coded: 

10 INPUT "WHAT IS THE NOMINAL INTEREST RATE"; R 
20 INPUT "HOW MANY TIMES IS IT COMPOUNDED/YR"; N 
30 I = (1 + R/N)1N - 1 
40 PRINT I 

Present Value 

Present value is the value of a debt on a 



AGE 


DEPP.. CHG. 


ACCUMULATION 


BOOK VALUE AT 






DEPRECIATION 


END OF YEAR 





0.00 


0.00 


3600.00 


1 


525.00 


525.00 


3075.00 


2 


525.00 


1050.00 


2550.00 


3 


525.00 


1575.00 


2025.00 


4 


525.00 


2100.00 


1500.00 


5 


525.00 


2625.00 


975.00 


6 


525.00 


3150.00 

Table 2 


450.00 



10 



30 



headings, menu, etc. 



31 INPUT "WHICH DO YOU WANT"; N 
40 ON N GOTO 100, 200, 300 
50 GOTO 31 
100 



compound interest routine 






199 GOTO 900 






200 






discounted present value routine 






299 GOTO 900 






300 






depreciation routine 






399 GOTO 900 






any other routines you add go here, (add to line 40 also) 


900 INPUT "WANT TO RUN AGAIN— (1 = YES, = 


--NO)' 


X 


910 IFX = 1 GOTO 10 






920 IF X = GOTO 999 






930 GOTO 900 






999 END 






Program Listing 2 







10 PRINT 

11 PRINT 

12 PRINT 

13 PRINT 

14 PRINT 
15PRINT 

16 PRINT 

17 PRINT 

18 PRINT 

19 PRINT 

20 INPUT 



ENTER PRINCIPAL, INTEREST (DECIMAL), 
NO. OF COMPOUNDINGS PER PERIOD, AND 
NO. OF PERIODS" 

EXAMPLE:" 

$100.00 INVESTED FOR 12 YEARS AT 
6% PER YEAR, COMPOUNDED QUARTERLY, 
WOULD BE ENTERED AS:" 

100.00,0.06,4,12 



P.I.C.N 



Program Listing 3 
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This Months Special 

Okidata 



At a New 
\sm, Urn. Price'. 




Microline 
80 



A great buy 

List Price is $449. 
The Microline 80 

is a quiet 

small printer 

with field proven 

reliability. 



LIST 



Feature 

* Friction \ pin paper feed, roll or fan fold 

• Prints eianded characters and block graphics 

* Print spetd 80 characters per second 

* Printhead Vated at 200 million characters continuous 
cycle 1 

• 132-columl compressed print 

• Available &-232C Serial Interfaces: 

\ ORS-256 (256 Character Memory) . $109.00 
1MSP-100 (Unbuffered, Switch 

\ Select Data Rates) $120.00 

^ MSP-200X (200 Character Memory) $215.00 
" MSP 2000X (2000 Character 

Memory) $300.00 

ler available options: 
jjustable Tractor Feed - 

lodel 54100201 $ 50.00 

30 Parallel Output, 

ible to printer $ 35.00 

ions $ 3.00 




ASK FOR OUR 

INSTANT DISCOUNT 

From Roy Hawthorne 

Talk To Bill Tokar On 

Applications 



CALL TOLL FREE 
U.S.A. 

1-800-521-2764 

MICHIGAN 

1-800-482-8393 




into a Word Processing or 
Data Processing System 
by adding one of the NEW 
Okidata Printers 




Microline Microline 

83A 82A 

If you require a system printer, the new Okidata 
Microline 82A, 83A, 84 should be your choice. 

These printers feature: 
•9x9 Dot Matrix heads rated at 200 million 
characters continuous duty - true lower descenders 
•Full forms control - vertical tab, top of form 
•Block Graphics 

•Bidirectional, Short Line Seeking 
•Dual Interface - Parallel & RS-232C Serial 

Microline 82A - 80-column, UST 

120 characters per second $ 649. 

Tractor Optional $ 50. 

Microline 83A - 136-column, 

120 cps, built-in tractor $ 995. 

Microline 84 - 136-column, 

200 cps, built-in tractor $1395. 

Optional Serial Interfaces - RS232C: 

HS-RS232 - 256 Character Buffer $ 150. 

HS-RS232 - 2K Character Buffer $ 180. 

I BIT 18 "* ■* 




Remember: 
We are open 
8:30 AM to 
6:00 PM EST 
Monday - Friday 



No Credit 
Card Penalty 



"The Stocking Source" 
24069 Research Drive 
Farmington Hills, Ml 
48024 
313-474-6708 ^ 438 






-See List ol Advertisers on page 402 
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Software of the Month Club -A revolutionary new way 
to buy name brand software. Available only through 
Microcon SoftwareCenters, the "Unhardware" Store. 



Choose from dozens of front-line products at a 33% 
discount and purchase two more over the next six 
months at discounts of up to 30%. 



SOFTWARE OF THE MONTH FEATURE PRODUCTS FOR NOVEMBER 



ENTERTAINMENT 
THE PRISON E R Based on televi- 
sion show Exciting With sound 
APPLE 48K0isk $19 95 

TERRORIST Manage life and 
death st'uggle with terrorists 
APPLE 48K Disk Game paddles 
required ... $19 95 

ADVENTURES 1.2.3: Three 
adventure pack Voodoo Castle 
The Count. Strange Odyssey. 
TRS 80 MOD I 4 III Tape $13.35 
APPLE Disk 48K ..$26 75 



POOL 1 5: One ol the finest 
HIRES graphic games available 

With sound. APPLE 48K Disk 
Game paddles required $23 40 

LASER WARS Attacking aliens 
m 3D. Ten levels ot difficulty 
With sound APPLE 48K Disk. 
Atari. PET. TRS-80 $19.95 

WORLD WAR III: HIRES graphic 
strategy with sound Three 
scenarios. Animated battles. 
APPLE. Atari, PET. TRS- 
80 $19.95 



BUSINESS 

MAXi-MANAGER Data base 
manager Unbelievable func- 
tionality for your TRS-80 48K 1 
disk mm MOD I & III $53 55 

WOROSTAR'" Best word pro 
cessing system on the 
market . . . $330.00 
APPLE version $250 00 

SPELLSTAR:'" 20,000 base word 
dictionary for Wordstar.™ User 
expandable $167 50 

BASKETBALL HANDICAPPER 



Protect point spreads, analyze 
statistics, accumulative TRS-80 
MOD III $67 00 

EDUCATIONAL ,„ 

THE LEARNING SYSTEM Inter- 
active teaching system for any 
subiect. Prepare own training 
courses of subjects Full test 
mg capabilities APPLE 48K 
Disk $99.95 

ELEM MATH PACKAGE I. Place 
value, nbr strings, math drills, 
speed drills. APPLE II 48K 
Disk $16.75 



Multiplication, division, add' 
lion, subtraction TRS-80 Color 

Computer $16 75 

Place value, nbr strings, math 
drill, division PET . $16 76 

GRAMMAR PACKAGE I Adiec- 
tives. adverbs, nouns, pronouns, 
etc APPLE II Disk. $16 75 

HISTORY & GEOGRAPHY. 
Revolutionary War. US regions. 
Presidents, etc. TRS 80 Color. 
APPLE Disk. PET (please specify 
one) $16.75 



Hundreds of additional products available in our free catalog. 



T.M. 



To join the Software of the Month Club or receive further infor- 
mation and our free catalog, simply fill out the coupon below 
or call toll free 1-800-343-6214, except in Mass. call 
1-617-924-3333. ,«* 



NOTE: Prices listed are 33V, off manufacturers lisl price. Buy any number ot products Irom 
current list and order two more within the next six months at special Club member prices 
Members will be informed each month ot new products and prices Guaranteed replacement of 
defective products tor X days Substitutions not permitted. Prices vahd to December 15 1981 

SoftwareCenters, Inc. 

3*. PI U CTRCCT • IAJ4TCDTOVAJIU U & (VM7 1 * w 




25 ELM STREET* WATERTOWN. MA 02172 



MEMSSRSMF AND MFOftMATMM FOftM 

NAME AGE: 


PRODUCT 


PRICE 


ADDRESS: 






CITY: STATE: ZIPr 






SIGNATURE: 


n VISA Account* 

U MasterCard Account # 




TYPE OF COM PUTER: nPSYR- 


shipping and 


D 5V. "DISK O 8" DISK D TAPE 

G 1 wish to ioin the Software of the Month Club.' " Please send me the following 


Expiration Date: 


5% sales tax for 
Mass resident* ♦ { 


products at the discount prices listed above. 1 agree to buy 2 more from your 
Software ot the Month Catalog within the next 12 months (Buy as many as you like. 
Simply attach list of additional items.) 
' Please send me your free catalog. 1 am particularly interested in 


Inter Bank 1 




(MasterCard only) 

Mail to: Software of the Month Club 


check or money order S | 


(type of software). 


25 Elm Street • Waterlown, MA 02172 



'The amount of depreciation each year 

reduces the taxable income, 

as you recover your cost. . . " 



date earlier than the due date. 

Suppose 1 agree to pay you $1000.00 a 
year from now. Money is now earning six 
percent. What Is the present value of the 
debt? You should settle for less than the 
$1000.00 you will get a year from now. You 
can invest the amount today at six percent 
and have your $1000.00 at the end of the 
year. This is almost the same problem as 
compound interest; now we know V and 
solve for P. 

The formula: 



P«V(1 + i)" 



is only slightly different than the compound 
interest formula. Recall that: 



present value program follows: 



10 INPUT "WHAT IS THE COST OF THE ASSET "; C 

20 INPUT "WHAT IS THE SALVAGE VALUE "; SV 

30 INPUT "HOW MANY YEARS DEPRECIATION"; N 

40 PRINT 

50 PRINT " print your headings here " 

60 PRINT 

70 A = 

80 DC = 

90 Df«0 

100 BV.C 

110 PRINT A DC, DF, BV 

120 DC«(C-SVVN 

130 FOR A = 1 TO N 

140 DF = DF + DC 

150 BV-BV-DC 

180 PRINT A. DC, DF, BV 

170 NEXT A 



Program Listing 4 



,-3 



is the same as J- 



When you compound at more than onetime 
per period, the formula reflects this: 



P=V(1 +_!>-' 
c 



where c Is the number of times compound- 
ing takes place per period. 

What amount must be invested now to 
yield $1000.00 at six percent compounded 
quarterly, 12 years from now? 



p » 1000.00 (1 + 9=98) -< 4 * 12 > 



= 1000.00 ( 



( 1+0^06, (4' 12) 

= 1000.00 ( — 1 — ) 
1.015 48 

-1000.00 •(1«04348) 

= $489 36 

Check this result with the compound in- 
terest program and formula. The value 
489.36 invested for 12 years at six percent 
compounded quarterly yields $1000.00. The 



20 INPUT V,I,C,N 
30P»V(1/((1 + UC)t(C*N)) 
40 PRINT V 



Depreciation 

As an asset is used it loses value. The 
asset has to be replaced at the end of its 
useful life. Consider a company setting 
aside a portion of Its earnings in a deprecia- 
tion fund. Actually, the amount of depreci- 
ation each year reduces the taxable in- 
come, as you recover your cost during the 
asset's useful life. The straight-line method 
for depreciating an asset is simplest. Sup- 
pose a machine costs $3600.00 and has a 
useful life of six years. At the end of the six 



10 INPUT "SCRAP VALUE OF ASSET 

20 INPUT "COST OF ASSET 

30 INPUT "NO. OF YEARS TO DEPRECIATE 

40 A-SWC 

50 D« 0.001 

60 T»1 - 

70 B = Tt N 

80 IF A > -BTHEN 110 

90 D.D + 0.001 

100 GOTO 60 

1 10 PRINT "RATE OF DEPRECIATION - "; D 



*";SV 
»";C 

»";N 



Program Listing 5 



MORSE CODE, BAUDOT and ASCII RTTY 
FORTHETRS-80 MODELS I and III 

DISASSEMBLED HANDBOOK - VOLUME 4 



Chapt. 
Chapt 
Chapl. 
Chapt 
Chapt 
Chapt 
Chapl 
Chapt 
Chapt. 
Chapt 



no RS-232C interlace is required 

1 : 8 to 800 WPM Morse transmit pgm. 
2: Adding type ahead capabilities 
3: Morse receive decoding program 
4: Merging + 12 prepared messages 

5 Baudot transmit 60-66-75-100 WPM 

6 Baudot receive for above speeds 

7 Merging + 22 prepared messages 
8: ASCII transmit program 110 Baud 
9: ASCII receive decoding program 

10: Merging + 22 prepared messages 

S18 ( US] per copy add $2 shipping 

I $4.50 overseas airmail 



-GERMAN & FRENCH LANGUAGE EDITIONS- 

Morse, Baudot * ASCII on disks S49 
(Vol. 4 required for Instructions] 

RICHCRAFT ENGINEERING LTD. 
«1B Wahmeda Industrial Park 
Chautauqua, New York 14722 ^276 

COD orders (US only] |716] 753-2654 



NEW 



PROGRAM WRITES 
PROGRAMS FOR YOU 

Education • Business • Hobbyist 

Now anyone can create BASIC Programs 
in minutes with QUIKPRO. You don't 
have to be a computer programmer to 
produce filing programs, data manage- 
ment & entry. QUIKPRO gives you a sep- 
erate BASIC Program everytime that you 
can List, examine, or even modify. QUIK- 
PRO will pay for itself the first time you 

use it. Order from this ad for the 
Introductory price of $89. 

MICROSOUTH, Dept. F, P.O. Bo* 1446 
Orange Park, FL 32073, (904) 269-1918 



L. 



►"243 



MEMOREX 

FLEXIBLE DISCS 



WE WILL NOT BE UNDER- 
SOLD". Call Free (800)2354137 
for prices and information. Dealer 
mquines invited and CO.D's 
accepted 

WS4 



PACIFIC k»370 
EXCHANGES 

100 Foothill Blvd. 
S*n Lul* Obispo. CA 
93401. InCal.cjM 
(800)592 5935 or 
(805)543- 1 037 




.'See List ol Advertisers on page 402 
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"Seldom is an asset depreciated 
the same amount in its first year 
as in one of the later years of its life." 

years, the machine has a scrap value of In other words, the book values for the first 
$450.00. n years are: 



Average yearly depreciation = 



_ 3600-450 _ 



= S525.00 



Table 2 shows the yearly depreciation 
charge, the amount accumulated in the de- 
preciation fund, and the book value of the 
machine at the end of each year: 

The book value drops to the salvage value 
at the end of six years. The accumulated 
depreciation plus the book value at the end 
of the year always equals the cost. 

Program Listing 4 prints this table. Code 
the headings as you like; commas between 
the variables space the printing in the first 
four fields. 

There are some serious problems with 
the straight-line depreciation method. Sel- 
dom is an asset depreciated the same 
amount in its first year as in one of the later 
years of its life. Consider your automobile, 
for example. You would like to depreciate it 
more the first year than the second, more 
the second than the third, and so on. (Tie 
this to the concept of Present Value. The 
more you depreciate the car early in the use- 
ful life, the more tax savings you get and 
also the more money you can earn on that 
depreciation fund money at compound in- 
terest.) You want to keep the book value in 
line with the real value of the car at the end 
of each year. Overcome this problem by cal- 
culating the depreciation charge as a fixed 
percentage of the book value each year, 
known as the constant-percentage (or de- 
clining-balance) depreciation method. 

In the constant-percentage depreciation 
method, assume an original cost C, and a 
fixed depreciation percentage d, so that the 
depreciation charge is Cd at the end of the 
first year, and the book value is: C-Cd, 
which equals C (1 - d). At the end of the sec- 
ond year, the depreciation charge is 
C(1 - d)d and the book value is: 

C(1-d)2 



C(1-d), CO-d) 2 , CCI-d) 3 qi-d) n 

Since the book value at the end of n years is 
the scrap value, we can say: 

SV = C(1-d) n 

Consider the same problem: a $3600.00 
machine with a useful life of six years and a 
scrap value of $450.00. If we substitute what 
we know into the equation, we have: 



460 = 3600 (1-( 



or: 



(1-d) 6 = 4503600 = 0.1 25 

solve for d, use logs: 

6log(1-d) = log0.12S 

We run into trouble in the Basic program 
on several different fronts. If your computer 
has only base e logs, convert from base 10 
with: 

iog b (X) = log e (XVIog e {b) 

To find the base 10 log of 0.125 with a base e 
log function, you could say: 

LQ = LOG(0.126)/LOG(10) 

When we start working with: 

6log(1-d) = log0.125 



we eventually must find an anti-log. I use 
the iteration technique. 

Suppose we just set d equal to 0.01 and 
try it in our formula: 



AGE 


BOOK VALUE AT 


DEPRECIATION 


ACCUMULATED 




END OF YEAR 


CHARGE 


DEPRECIATION 





3600.00 


0.00 


0.00 


1 


2545.20 


1054.80 


1054.80 


2 


1799.46 


745.74 


1800.54 


3 


1272.22 


527.24 


2327.78 


4 


899.46 


372.76 


2700.54 


5 


635.92 


263.54 


1964.08 


6 


449.59 


186.33 

Table 3 


3150.41 



120 


AG = 




130 


DC = 




140 


DF = 




150 


BV = C 




160 


PRINT AG 


BV, DC, DF 


170 


FOR AG ■ 


1TON 


180 


X = C*(1 


- D) t AG 


190 


DC=BV- 


X 


200 


DF = DF + 


DC 


210 


BV = X 




220 


PRINT AG 


BV, DC, DF 


230 


NEXT AG 




Program Listing 6 



(1 - 0.01 ) 6 = 0.94 

Because 0.94 is not the 0.125 we would like, 
0.01 must be wrong. Let's try 0.02: 

(1-0.02) 6 = 0.88 

A little closer, but not 0.125. As the value of 
d goes up, the answer goes down. In the 
iteration technique, start at some very small 
value (0.001) and compare the answer to 
what it should be (in this case, 0.125). If our 
guess is too low, the answer is more than 
0.125. Add a small numberto d and try again 
until the answer equals 0.125. At that time 
we have a good approximation of d (See 
Program Listing 5). 

Lines 10 through 30 allow us to input the 
values for the calculations. Line 40 calcu- 
lates the number we want to approximate in 
the iteration technique (0.125 with the data 
from the example problem). In line 50 we 
start with a d value of 0.1 percent. You can 
make this and the incremental value in line 
90 smaller if you like. These values allow 
reasonable running times, and produce rates 
of depreciation accurate to the third deci- 
mal place. Line 60 calculates T; (which I 
named "T" to stand for "Term") line 70 
raises this term to the nth power and calls it 
B. Line 80 compares B to A; if A is greater 
than or equal to B,D is printed. If A is less 
than B the program adds 0.001 to D and 
tries again. 

The book value is 41 f off, as is the 
amount in the accumulated depreciation at 
the end of the six years (See Table 3). The 
value of D is slightly inaccurate; the itera- 
tion technique only found a good approxi- 
mation. If you want greater accuracy (and 
are willing to wait for it while your program 
finds d) increment d by 0.0001 or 0.00001 in 
line 90. 

Program Listing 6 makes the table. Insert 
your own headings. 

Here we calculated the book value first 
and subtracted the new book value from the 



AGE 


DEPRECIATION 


ACCUMULATED 


BOOK VALUE AT 




CHARGE 


DEPRECIATION 


END OF YEAR 





0.00 


0.00 


3600.00 


1 


900.00 


900.00 


2700.00 


2 


750.00 


1650.00 


1950.00 


3 


600.00 


2250.00 


1350.00 


4 


450.00 


2700.00 


900.00 


5 


300.00 


3000.00 


600.00 


6 


150.00 


3150.00 

Table A 


450.00 



196 • 80 Microcomputing, November 1981 



"This formula never allows you 
to reduce the asset balance to zero." 



old book value to get the depreciation 
charge. This is added to the amount already 
in the accumulated depreciation. 

The Sum-of-years-digits method in- 
creases the present value of the deprecia- 
tion tax shield. Assume the same problem: 
a $3600.00 machine with a $450.00 scrap 
value and a useful life of six years. Depreci- 
ate it 6/21 the first year, 5/21 the second 
year, 4/21 the third year, 3/21 the fourth year, 
2/21 the fifth year, and 1/21 the last year. 
Add all the numerators: 

1+2 + 3 + 4 + 5 + 6 = 21 = 100% 
21 21 

The sum of the "n" integers is given by: 



10 INPUT "COST OF ASSET 

20 INPUT "SCRAP VALUE IS 

30 INPUT "NO. OF YEARS 

40 D = 2* (1/N) 

50 AG=0 

60 DC = 

70 DF = 

80 BV = 

90 PRINT AG, DC, DF, BV 

100 FOR AG = 1 TON 

110 CD = BV ' D 

120 OF = DF + DC 

130 BV = BV-DC 

140 PRINT AG, DC, DF, BV 

150 NEXT AG 



= ";C 
= "; SV 
= ";N 



Program Listing 7 



n(n + 1) 
2 

In our example (where n = 6): 

6(6+1) - 6*7 - 42 - 91 
2 2 2 

Table 4 is produced. 

The scrap value is the book value at the 
end of six years. The depreciation charge in 
the first year was found by multiplying 6/21 
by the amount to be depreciated 
(cost-scrap value) = 6/21 *(3600-450) - 
900.00. All values in this equation stay the 
same each year except the numerator over 
the 21, which decreases by 1. 

Program Listing 7 produces this table. 
Add headings to suit your self. 

The program follows the methods used 



before, except for line 110 in the loop. The 
age (AG) must go from 1 to n but the numer- 
ator of the multiplication factor must go 
from n down to 1. The program calculates a 
value of UD for each value of AG. 

The Double-Declining Balance method of 
depreciation applies a uniform rate to the 
remaining book value. Assume that for tax 
purposes the rate cannot exceed twice the 
straight-line rate (hence, the "double" in the 
name). Consider the $3600.00 machine with 
the $450.00 salvage value and the six year 
life (See Table 5). 

The straight-line rate would be: 

100% = 16.6667% per year 
6yrs. 

This method allows us to double that, so we 
will use 33.3333% per year. The $1200.00 



AGE 


DEPRECIATION 


ACCUMULATED 


BOOK VALUE AT 




CHARGE 


DEPRECIATION 


END OF YEAR 





0.00 


0.00 


3600.00 


1 


1200.00 


1200.00 


2400.00 


2 


800.00 


2000.00 


1600.00 


3 


533.33 


2533.33 


1066.67 


4 


355.56 


2888.89 


711.11 


5 


237.04 


3125.93 


474.07 


6 


158.02 


3283.95 

Table 5 


316.05 



GANTT-PACK 



EASY PROJECT PLANNING 

• Dynamic Scratchpad Entry 

• Automatic Organization 

• Graphics for Communications 



UNIQUE PROGRAM FEATURES 

• Simple Editing/Updating 

• Rapid Screen Review 

• Printer of Your Choice 



Charts and Data to Screen and Printer 




POWERFUL, FLEXIBLE, SYSTEM DESIGNED BY EXPERIENCED PROFESSIONALS 

• Now available for TRS-80* Model I, 48 K, 2 disks 

• TRS-80* Models II and III Versions by December, 1981 



LIBRA LABORATORIES, INC. ^ 
495 Main Street 
Metuchen, NJ 08840 



Tel. (201) 494-2224 

Gantt-Pack © Libra Laboratories, 1981 

PRICE $149.50 

*TRS-80 Trademark of Tandy Corp. 
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". . . the loan is amortized when you pay 
the principal and interest 
by a sequence of payments 
at equal intervals of time." 



depreciation in the first year was the result 
of multiplying the book value of $36.00 by 
0.333333 = 1200.00. The $800.00 in the sec- 
ond year is 33.333% of 2400.00. 



10 INPUT "COST OF ASSET = 


";C 


20 INPUT "SCRAP VALUE IS 


= ";SV 


30 INPUT "NO. OF YEARS 


»";N 


40 = 2" (1/N) 




50 AG = 




60 DC = 




70 DF-0 




80 BV = 




90 PRINT AG, DC. DF, BV 




100 FOR AG = 1 TO N 




1 10 CD = 8V * D 




120 DF = BV-DC 




130 BV = BVF-DC 




140 PRINT AG, DC, DF, BV 




150 NEXT AG 




Program Listing 8 





This formula never allows you to reduce 
the asset balance to zero. The book value 
cannot fall below the scrap value of the 
asset before the six years are up. Accoun- 
tants and taxpayers who favor the high in- 
itial write-off in the double-declining-bal- 
ance method have to convert to some other 
method (often straight-line) towards the end 



10 


81 


1 


75.00 


825 00 


9175.00 


11 


81 


2 


68.81 


831.19 


8343 81 


12 


81 


3 


62 58 


837 42 


7506 39 


1 


82 


4 








7 


82 


10 


17.61 


882.39 


1456.92 


8 


82 


11 


10.99 


889.01 


576.91 


9 


82 


12 


4.33 


581.24 


0.00 








Table 6 






96K CP/M® 

(For your TRS-80* Model II) 
Multiple Job Executive 

Add a whole new dimension to your 
TRS-80 Model II. Let it work while you 
work!! 

ATON's unique JobStream™ CP/M 2.2, along with additional RAM memory; allows you to 
simultaneously compile, assemble, or link in one 64K background partition (62K TPA) while you 
edit Mies, and spool to the printer, and communicate with another computer in up to four 32K 
foreground partitions (28K TPA). 

As you expand memory beyond 64K. you also enter the amazing world of TrackMode BIOS™ 
which not only multiplies diskette speed up to five times, but also automatically performs read 
after write checks for the ultimate in data reliability. 

'Gain hard disk performance for a fraction of the cost— and no backup problems!!' 

* Works in 32K, add RAM memory to 256K using standard Radio Shack memory boards. 

'Supports two sided expansion disk drives (1.2 megabytes per diskette). 

JobStream CP/M 2.2 (with Z-80** Debugger) $235 

Omni Writer™ Video Text Editor $130 

Z-80 Debugger Source Code $ 50 

Package of above (a $415 value) $295 



"Software with Service" 




on 



nternational. Inc. 



Prepaid, Visa. MasterCard or COO. 
Shipping and handling extra. 
California residents add 6% sales tax. 

CPM* Digital Research. Inc 
""Tandy Corp. •""Ziiog Corp 
JobStream TrackMode BIOS'" ATON intl 
0mm Writer'" Omnigraphics 

260 Brooklyn Avenue, San Jose, CA 95128 
•398 (408) 286-4078 



of the asset depreciation. The IRS allows 
you to change from the declining-balance 
method to the straight-line method any time 
during the useful life of the asset. The 
unrecovered cost of the asset, less the 
estimated salvage value, must be spread 
over the estimated remaining useful life 
determined at the time of the change. In 
many circumstances you may also change 
from Declining Balance to Sum-of-years-dig- 
its, and from Sum-of-years-digits to straight- 
line depreciation. (See IRS Publication 534.) 
Program Listing 8 produces the table. 
Add your own headings and input prompts. 

Loan Amortization Table 

If you take out a loan with interest, the 
loan is amortized when you pay the princi- 
pal and interest by a sequence of payments 
at equal intervals of time. The payments are 
almost always equal, and the time interval 
is usually one month (see Program Listing 9). 

Assume you make the following entries 
in lines 15 through 35: 

10000.00. 0.09. 900.00, 10, 81 

You borrow $10,000.00 at nine percent per 
year. The payments are $900.00 per month, 
and the first payment will be made in Oc- 
tober (month number 10) of 1981 (81). The 
body of the table is in Table 6. 

Column 1 is the month number and col- 
umn 2 is the year. Column 3 is the payment 
number. Columns 4 and 5 are the portions 
of the payment applied to the reduction of 
the principal and the interest on the princi- 
pal. The first month interest was $75.00 
because $10000 * (0.09/12) = 75. If the inter- 
est is $75 and you made a $900 payment, 
then $825 is available to reduce the princi- 
pal. In line 1 1 of the table the remaining bal- 
ance is $576.91, less than a typical $900.00 
payment. In this case pay only $576.91 plus 
the interest on the $576.91, instead of a full 
$900.00. 

Lines 15 through 35 of Program Listing 8 
are the prompted variables input and lines 
36 through 41 print the column headings. 
The Print Using statement lines up the num- 
bers nicely under the headings and prints 
dollars and cents. Line 42 sets the payment 
number counter to one. Line 45 finds the in- 
terest for this month by multiplying the loan 
balance by a 12th of the Interest rate (as- 
suming monthly payments). Line 50 calcu- 
lates how much of the payment is applied to 
the principal reduction by subtracting the 
calculated interest from the amount of the 
payment. Line 55 calculates the new out- 
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mm 




LOWERCASE MOD 

KIT 

NO SOFTWARE 
ALL HARDWARE 




FOR TRS-80 MOD 1 



THIS OFFER 

WILL NOT 
BE REPEATED 



$89 



95 



WHILE STOCK LASTS 



CECDAT, INC. ^62 
P.O. Box 497 
Hayden Lake, ID 83835 

CALL NOW 
(208) 772-9571 

90 DAY WARRANTY 

WITH ALL 

OPTIONS 

($125 00 VALUE) 



Name . 

Street 

City State Zip 

Signature_ 

You must check 

~ "Mem Size" L_ "Memory Size"— "Debounce". . "Block Cursor" 

Price valid through December 31, 1981 



ORDER INFORMATION TRS-80 is a Trademark of Tandy Corp. 
Check, Money Order, Bank Draft 
VISA, MASTERCHARGE(add3%) 
Card No. 



Expiration Date_ 



"THE PATCH 2"@89.95ea. 
Ship & Hand. @2.50ea._ 



^Today's Date_ 



ID Sales Tax 3% (Id Res) 

TOTAL ORDER 




UTILITY 
FORCE 



THE VIDEO MANAGER £.U FIRST IN A SERIES 

Our Video Manager will enhance your computer's per- 
formance with these features: vertical printing on 
screen; forms design direct from screen to printer; send 
entire screen or any part to your printer; save screen to 
disk as a file and more. Written so you can utilize it from 
DOS or BASIC. Available on disk for: TRS-80, # Mod I TRS 
DOS 2.3, Mod II TRS DOS 1.2 & 2.0, CP/tVI 2.0 or later, 
soon available for* Mod III. For your convenience with 
Visa or M/C phone in your order. Please add $2 for hand- 
ling and postage. ""Tandy Corp. 

SOFTWAREHOUSE INTERNATIONAL 

5070 N. Sixth St. Suite 103B 
Fresno, CA 93710 (209) 221-7877 

TO RECEIVE A FREE CATALOG PLEASE -n 



^See List ol Advertisers on page 402 





Programming drive 
you wild? 

We have the high quality programs you demand 
at a price that will please. Send for FREE catalog. 

VTHE BERG WORKS ^1 . 

Box 742G Janesville, Wl 53547 jff 
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"The unrecovered cost of the asset, 
less the estimated salvage value, 
must be spread over the 
estimated remaining useful life. . .." 



standing balance. Line 65 checks for an out- 
standing balance less than the payment. If 
this is the case, line 400 calculates the 



values to be printed for the last payment. If 
this is not the case lines 70 through 97 add 
one to the payment number and one to the 



month number. If the month number is 13 it 
is set back to one (January) and the year 
number is incremented by one.B 



10 CLS:PRINT:PRINT 7AB<20) -'LOAN AMORTIZATION TABLE":PRINT 


75 MO = MO + 1 




15 INPUT "LOAN PRINCIPAL = "; P 


80 IF MO =13 THEN 90 




20 INPUT "INTEREST RATE = "; R 


85 GOTO 45 




25 INPUT "TOTAL PAYMENT = "; M 


90 MO-1 




30 INPUT "STARTING MONTH =". MO 


95 YR = YR + 




35 INPUT "STARTING YEAR = "; YR 


96 GOTO 45 




36 PRINT 


400 N = N + 1 






410 NO = MO +1 




40 PRINTMO YEAR N INTEREST TO PRIN. REMAIN." 


420 IF MO < = 12 THEN 430 




41 PRINT 


422 MO-1 




42 N = 1 


423 YR = YR + 1 




45 l = P * (R/12) 


430 l = P * (R/12) 




50 PR = M - 1 


435 PR = P+I 




55 PR = M-1 


440 P = 




60 PRIN USING A$; MO, YR. N. I, PR. P 


450 PRINT USING AS; MO. YR. N. 


. PR. P 


65 IFP + (P * (R/12))< = M THEN 400 


455 PRINT 




70 N = N + 1 


999 END 




Program 


Listing 9 





CO-DIR, BLINKING 



^CURSOR ORIENTED 
4T DIRECTORY! 

KILL! EXECUTE! COPY! LIST! 

BLINKING CURSOR DOES IT ALL RIGHT ON THE DIRECTORY SCREEN! 



FiX$IT48/CHB 

AGMS/IHS 



mm 

mm 

SCREEH/flAP 



Never type a program name again! 

Access to any program on any directory page! 

Very very easy to use! 



TO ORDER 'CO-DIR' (R): Specify DOS and Model I /III. 
Available for DOS PLUS* NEWDOS/80* - 1.0 and 2.0 



19 



95 



•Trade Mark of Micro-Systems Software, Inc. "Trade Mark of Apparat 
Inc. 

Dealer inquiries invited. 



PICOTRIN 

TECHNOLOGY. INC. 

Fl. res. add tax. PH.: 305— 586-2377 3531 San Castle Blvd. Lantana, Fl. 33462 ^ 4 74 
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ABM Commander 



The United States is under attack! You control the master ABM 
targetry and must defend your six cities from the onslaught of 
ICl3Ms, MIRVs, smart bombs, strategic bombers, and killer 
satellites. Hundreds of millions of lives rest on your reflexes and 
your supply of anti-ballistic missiles. 

Will you still own this game in 1 990? Then switch to Laser 
Commander! You control the sites of a land-based anti-ballistic 
laser. Blast the enemy as he descends, but be prudent! Your 
energy depletes with each blast, and your power supply depends 
on your remaining cities. 

Features include: 

• One or two players • A guarantee of satisfaction 

• Multiple difficulty levels • Two complete games in one 

• Fast machine-language • Sound effects 

graphics 

ABM/Laser Commander is the best game of its type on the 
TRS-80. Other versions don't even come close. We guarantee 
you will agree! 

Model I or Model ill 1 6K Level II only 

Cassette . . . $14.95 Diskette . . . s 1 7.95 

Laser Commander 



To Order Call Med Systems 

1-800-334-5470 



GRBASIC 2.0 




Our best selling GRBASIC has been upgraded. GRBASIC 
adds a set of commands to BASIC that allow the user to produce 
machine language speed graphics directly from BASIC. This is 
not a string packer or a C1SR function. Mew BASIC commands 
are added directly to BASIC. All existing programs will still run. 



Trade-in Policy for GRBASIC 1.0 

Send us the original GRBASIC disk or cassette with 
$5.00 and we will send you GRBASIC 2.0. We must have 
,the original media returned. Ho exceptions. u 



GRBASIC 2.0 Model I and Model III 1 6K and up 

Cassette. .. $19.95 
GRBASIC 2.0 Model I and Model III Diskette . . . $24.95 
Please Specify DOS System When Ordering! 



Some Features of GRBASIC 2.0 

Draws or erases lines between any set of points on the screen. 
Coordinates may be chained. A corner to corner line is drawn in 
under 6/ 1 OOths of a second! 

Draws a circle of any given radius at a given point. Circles may be 
drawn off the edge of the screen. 

Draws a shape at any given point, using the last specified rotation 
and magnification. Any shape of a multiple set can be specified. 
Shapes can be drawn off the screen in extended space, and are 
user-definable with no limitations except the TRS-80' s resolution. 

Magnifies a defined shape from 1 -255. This changes the size of a 
previously defined shape. 

Rotates a shape in 45 degree increments. 

Sends sound to the cassette port. User specifies range of 
frequency and duration of each frequency. Repeat factor is 
available. 

Extensive, newly rewritten manual. 




©^ss^a© 



P.O. box 2674 
chapel hill, nc 27514 

1 800 334 5470 



•'See List ol Advertisers on page 402 
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It's Not Your Printer, 
It's Your Software. 




Some Features of Qwerty 3.0 

I Automatically prints in proportional print, with a suitable 
format. Transitions between the three print styles are easy, 
including all expanded print modes. 

2. Qwerty 3.0 adds 75 new symbols, including upper and 

lower case Greek letters, mathematical symbols such as 
integralsand summations. arrows, brackets. and probability 
symbols. 

3. Any character can be used as a subscript or superscript. 

even simultaneously. Carats, bars, and tildes can be placed 
over any character, with precise positjon control. 

4. Underlining, with or without underlining of spaces, including 

long ratios and mathematical expressions. 

5. Footnotes can be placed on any page so that they remain 

on the desired page, even if text is inserted later. 

6 Table commands enable positioning of the pnnt head 
anywhere on a line. Invaluable in printing neat mathematical 
layouts, tables, columnar material, etc.. in proportional pnnt. 

7. Pretty commands allow printing of repetitions of a chosen 

character. When combined with Table, decorative borders 
can be produced with ease. 

8. Folio format produces output in two or three columns per 

page, in either proportional or 16.7 cp mode. Ideal for 
newsletters. 

9. Supplies a third output mode, in which only Scripsit 

commands are obeyed. Allows printing of special Qwerty 
commands for future reference. 

10. Page End indicates where pages will end. and the page 

number, without pnnting the text. One can prepare an 
almost error-free document without ever using paper. 

1 1. Correction of Scripsit serrorsand inconveniences, extensive 

documentation, and much more! 



Since we introduced Qwerty 3.0 in September, people have 
been calling to ask if we were making ludicrous claims. The 
answer is NO! Qwerty 3.0 does everything we claim and more! 
Like Greek letters. Simultaneous subscripts and superscripts. 
Even footnotes and two or three column folio formats. See the 
list of features in the box. Mo other piece of software of this type 
can match Qwerty 3.0. 

Qwerty 3.0 is more than 'fully tested." It has seen thousands of 
hours of use in a university environment. A master's thesis and a 
statistical doctoral dissertation were produced and accepted 
right off a Centronics 737 using this package. 

Qwerty 3.0 is the finest Scripsit addition available. All you need 
is Scripsit. at least one disk drive, and one of the following 
printers: Centronics 737. Centronics 739. or Lineprinter IV. It is 
the best. Period. We Guarantee You Will Agree! \i for some 
reason, you find that this program does not meet your needs, 
return the entire package within 14 days for a prompt and 
cheerful refund. 

For cautious buyers, we offer the manual (almost 70 pages) for 
$ 1 0.00. When you decide to buy Qwerty 3.0, we will credit the 
full manual price. 

Centronics 737 printers were still available at this writing. Med 
Systems sells them. Please call for price and availability. 

Qwerty 3.0 Disk, Manual, Reference Card, 
and Printer Table Rule $49.95 

Qwerty 3.0 Manual Alone $10.00 



<Zl. **v 
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The Concept 



The Continuum Series marks a new era in adventure 
games. Every game features full screen, 3-dimensional 
perspective graphics at machine language speed. Every 
one of more than 600 locations is drawn graphically. The 
problems are not old cliches, but new, original and 
challenging. These games are more complex with graphics 
than most adventure games are without' See reviews in 
February and August issues of '80 Microcomputing. 
Once you've played a Continuum adventure, verbal 
adventures just aren't the same! 

Adventure beyond mere words . . the Continuum Series 



3 ASYLUM, the newest Continuum adventure 
places you in an institution full of guards, 
inmates, doctors, and many more bizarre char- 
acters. Asylum features an advanced language interpreter 
which allows input of complete sentences as well as one 
and two word commands. Graphic rooms, hallways and 
doors twist and turn in a layout guaranteed to send you 
screaming! 

ASYLUM Cassette ... $1 9.95 Diskette . . . $22.95 



2 LABYRINTH deposits you in a huge maze of 
tunnels inhabited by gnomes, ghosts, witches, 
and an evil minotaur. You must Find the weapons 
and treasures needed to destroy the minotaur before he 
discovers you! The labyrinth meanders through space 
and time, so don't be surprised if you come upon yourself 
wandering through the lonely corridors. 

LABYRINTH Cassette ... $ 1 4.95 Diskette ... $ 1 7.95 



^m DEATHMAZE 5000, the original Continuum 
^ adventure. The single goal is straightforward. 
A ESCAPE ALIVE! Vile monsters, vicious dogs, 
hideous traps, and other horrors will plague your every 
step as you struggle to survive one of the most challenging 
adventures ever written. Expect to die a hundred deaths 
before you escape this one! Just a hint: remember 
Beowulf! 

DEATHMAZE 5000 

Cassette ... $ 1 4.95 Diskette ... $ 1 7.95 



All programs are compatible with both Model I and Model 
III TRS-80 Level II. Cassettes require 16K, diskettes 32K. 

Hint sheets for these games are $1 .00 each. Specify title. 




S20OBE2S 



p.0. box 2674 : , 

chapel hill, nc 27814 

1 800 334-5470 



Continuum 




Satisfaction Guaranteed! 

If for any reason you are not satisfied with our products, 
return your order within 14 days for a prompt and cheerful 
refund. 

Ordering Information 

Orders are processed within five working days. We pay all 
postage and handling within the U.S., Canada, and U.S. 
territories. European orders please include $3.00 for air 
post 
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D Asylum ($19 95) 

D Deathmaze 5000 ($14 95) 

□ Labyrinth ($14 95) 
[Zl Adventures on Disk (add $3.00) 

□ GRBASIC Cassette ($1 9.95) 

□ GRBASlCDisk ($24 95) 

Specify DOS 

□ Qwerty3 ($49.95) 

□ ABM/Laser Commander Cassette ($14.95) 
D ABM/Laser Commander Disk ($17.95) 

Total 

Name 

Street 

City State Zip 



Computer: _ 
Model I 16k| I 
j \ Mastercard 
MC or VISA # 



Model III 16k[ j 
£jWMi j I check 



Expiration Date 



►'Sot List of Advertisers on page 402 
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TECHNIQUE 



You use them in prose, so use them in code. 



In Praise of Outlines 



Dennis Drew 

908 Byers 

Joplin, Missouri 64801 



I teach programming classes using the 
TRS-80, and there is something I notice 
about all new programmers: they do things 



the hard way. For example, if I ask them to 
explain the following lines: INPUT "ENTER 
YOUR NAME ":A$. The explanation will 
sound like: "This line assigns a literal value 
into the string variable A$ using input from 
the keyboard." 

What's wrong with saying, "It lets you 
enter your name into the computer." The 
use of "twelve large words when one small 
one will do" is not confined to newcomers 



STRING VARIABLES: 




Variable name/purpose 


Location (lines) 


A$ Holds list data 


10,50,1100-1500, 




2040,2060,2080, 




2100,2120,3010- 




3030,4030-4050, 




5010,6020,6040- 




6080 


B$ Decision 


20,30,2010- 




2120,4010 


C$ Small Sort marker 


6010,6020 


D$ Sort saver 


6040-6080 


NUMERIC VARIABLES: 




A For/next counter 


4050,2020,3000, 




4000,5000,5020, 




6020 


B,C,D Tape counters 


40,50,5000,5010 


E Choice 


60-80 


F Number of items 


40,100,1100- 




1150,2020,3000, 




4000,5000,6020, 




6090 


G For. . .Next counter 


4060 


H Sort marker 


6020 


I Sort marker 


6020,6040-6100 


Program Variables 



either. I consider myself a fair programmer, 
yet I have to sweat through many articles I 
read in computer magazines. 

A Question of Difficulty 

How hard is it to write a program? In my 
early programming days I wrote a game 
called PHASE VII (available from Cheshire 
Software, P.O. Box 1295, Joplin, MO 64802). 
It was a difficult job and, because I knew 
nothing about program preparation, it took 
two years to write the game. It should have 
taken two or three months; but I had to 
restart three times. 

Imagine the following: You have worked 
several hours on a program. There are about 
thirty major routines, a hundred minor ones, 
dozens of variables and everything has to 
fit together just right. Your brain is weary. 
Suddenly, you cannot remember the pur- 
pose of a certain variable. Now you have big 
trouble. Like a line of dominoes, the pro- 
gram starts falling, and you can do nothing 
to stop it. Crash! What a mess! 

A Writer Doesn't Just Write 

When a professional writer begins a 
novel he starts with a theme, which he 
writes down, putting the general plot on 
paper. After this, he writes an outline, a sim- 
ple explanation of the story, piece by piece. 
He then writes a rough draft which follows 
the outline closely. Once the rough draft is 
finished, he re-reads to correct and revise. 
Using this rough draft, he writes the fin- 
ished version. Then he lets a reliable friend 
read it and comment on it before showing it 
to anyone else. To do otherwise would be 
suicide in the writing market. 

A Programmer Doesn't Just Code 

Coding is actually writing the program in 
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"/ consider myself a fair programmer, 

yet I have to sweat through many articles 

I read in computer magazines." 



computer language. If a programmer tries 
to write a program starting with coding he 
will die a slow, painful death, with bytes all 
over his body (sorry). 

There is a set of easy-to-follow steps 
that I always use: 

1. Define the task 

2. Outline the procedure 

3. Code 

4. Enter 

5. Run 

6. Debug 

7. GOTO 5 

These steps can save hours of program- 
ming time and effort. Let's look at each step 
individually, while writing a small sample 
program. Then we will apply the principles 
to a larger program. 

Define the Task 

Write a mailing list program which ac- 
cepts 100 names and addresses of three 
lines each, allows corrections, prints ad- 
dresses on envelopes, prints names on the 
screen, stores names on tape, retrieves 
names from tape and sorts by zip codes (we 
use third class mail). 

Outline the Procedure 

There are different ways to outline pro- 



cedure. Some folks diagram with flow- 
charts, drawings of computer programs. 
Flowcharts have their use, but I never flow- 
chart. Why? Because in my mind it is too 
close to coding, and is no substitute for out- 
lining. Let me give an example by writing a 
standard flowchart for the definition (see 
Fig. 1). 

That flowchart is not simple. I use 
another method that fits my natural work- 
saving (lazy) attitudes. I outline in simple 
English. 

If you can't explain a program in simple 
English, you sure can't write it in Basic. 
Your mother taught you English when you 
were a child; you should know the language 
far better than Basic. Use the power of your 
native language. This is my outline of the 
task: 

1. Start with a zero. 

2. Add five if the number is less than 100. 

3. If the number equals 100 end the 
program. 

4. Print the number and its square root 
in columns. 

5. Return to step two. 

The outline is easier to understand and 
faster to write than a flowchart. 



Code the Program 

Of course, to get the program to work on 
the computer, it has to be entered in Basic. 
Let's code it now following the outline: 

• Start with zero. 

10 X = (this line should be eliminated on 
the TRS-80.) 

• Add five if the number is less than 100. If 
the number equals 100 end the program. 

20 IF X<100 X = X + 5 ELSE END 

• Print the number and its square root in 
columns. 

30 PRINT X, SQR(X), 

• Continue. 
40 GOTO 20 

Of course you now Enter and Run the pro- 
gram. Despite having taken the correct 
steps so far, the whole thing is not worth a 
bit (sorry again) unless it's correct. 

Debug 

Too often we see programs laced with 
bugs; I am tired of entering 16K adventure 
and Star Trek games that don't work. 

Debugging a program means correcting 
errors; It sometimes takes as much (if not 
more) time than writing the program in the 
first place. Do not run a program once and 
decide it works. I put all of my programs 
through hours of actual execution before I 



10 CLSjCLEAR 10800:DIMA«C101,5> 

20 INPUT "DO YOU WISH TO PULL DATA FROM TAPE " j B 

30 IF LEFT*(B*. 1 >="N"60 

40 INPUT"PREPARE TAPE TO PLAY. PRESS ENTER. "jF: 
I NPUTW- 1 , F : FORA= 1 TOFSTEP4 s PR I NTA: B=A+ 1 s C=A+2 1 D= 
A+3 

50 INPUT*- 1, A* (A, 1) ,A»(A,2) , A*<A,3> ,A*(A,4> , A* < 
A, 5) , A*<B, 1) ,A*(B,2) ,A*<B,3) , A*<B,4> ,A«(B,5) , A* 
(C, 1) , A«CC,2> , A*(C,3> ,A»<C,4> , A*(C,3) ,A*(D, 1) ,A 
*(D,2) , A»(D,3) ,A»(D,4) ,A»(D,5> iNEXT 
60 CLSf PRINT"DO YOU WISH TO 1 -ENTER 2-CHANGE 
3-LIST 4-PRINT ENVELOPES 5-STORE 6 SORT " 

70 INPUTE 

80 IFE<10RE>6THEN60 

90 ONEGOTOl 000, 2000, 3000, 4000, 5000, 6000 

1000 PRINTiF=F+l»PRINTF 

1100 INPUT"NAME "jA»(F,l> 

INPUT"ADD: "jA*<F,2> 

INPUT"CITY: "jA*<F,3> 

INPUT"STATE« "!A*<F,4) 

INPUT"ZIP: ";A«<F,5) 

GOT 060 

2000 PR I NT « PR I NT "WHICH NAME DO YOU WISH TO CHAN 
BE?" 

INPUTS* 

FORA-1TOF: IFA*(A, 1 ) -B»THEN2030ELSENEXT 

INPUT" NAME i "|B» 

IFB«=""THEN2050ELSEA«(A, 1 > «B* 

INPUT"ADD« ";B« 

IFB*=" "THEN2O70ELSEA* <A, 2) =*B» 

INPUT-CITYi "iB» 

IFB«=" "THEN2090ELSEA* <A, 3> =B« 

INPUT "STATE i " j B* 

IFB*-" "THEN21 10ELSEA* (A, 4) =B* 



1 200 
1300 
1400 
15O0 
1 600 



2010 
2020 
2030 
2040 
2O50 
2060 
2O70 
2080 
2090 
2 1 00 



2110 INPUT"ZIPi "|B* 

2120 IFB*=" "THEN2130ELSEA* (A, 5) =B* 

2130 G0T060 

3OO0 CLS:FORA=lTOFiPRINTA 

3010 PRINTA*(A, 1) 

3020 PRINTA«(A,2) 

3030 PRINTA«(A,3) ; ", "iA»(A,4>;" "«A*tA,5> 

3040 PR I NT i NEXT : FORA= 1 TOSCO : NEX r j G0T060 

4000 CLS:F0RA=1T0F 

40 10 INPUT" INSERT ENVELOPE. PRbSS ENTER " : B% 

4020 CLS sPRINT "PLEASE WAIT 

4030 LPRINTA»(A, 1 ) 

4O40 LPRINTA*(A,2) 

4050 LPRINTAS(A,3) : ", ";A«(A.4>i" ":A»<A,5> 

4060 F0RG=1T012:LPRINT" ":NEXT 

4070 NEXT1GOTO6O 

5000 CLSi PRINT-PREPARE TO RECORD. ENTER" s INPUTA 

iPRINT#-1,FjFORA=1TOFSTEP4iB=A+1 iC=A+2iD=A+3 

5010 PRINT #-1, A* (A, 1 ) , A* <A,2) . A* (A, 3) , A* (A, 4) ,A 

♦(A, 5) , A* < B , 1) , A* ( B , 2 > , A* < B . 3 > ,A*(B,4) .A*(B,5) , 

A» < C , 1 > , A* < C , 2 ) . A* < C , 3 > , A» < C . 4 ) , A* < C , 5 > . A* < D , 1 ) 

. A«(D,2) , A*(D,3) ,A«(D,4) , A«(D,5) 

5020 PRINT A: NEXT 

5030 GOT 060 

6000 CLS: PRINT-SORTING. PLEASE WAIT 

60 IO C*^" 99999" 

6020 I=I+1:F0RA=IT0F: IFA» (A, 5) <C*THENC*»A* ( A, 5 ) 

iH»A 

6030 NEXT 

6040 D*«=A» ( I , 1 ) : A* ( I , 1 ) =A» <H, 1 > « A* (H, 1 ) «D» 

6050 D*«A*<I,2) : A» (1,2) -A» (H, 2) 1 A«(H,2)'D* 

6060 D»-A*<I,3) iA*(I,3>=A*(H.3> :A»(H,3)«D* 

6070 D*=A»<I,4) 1 A«(I,4)=A*(H,4) : A»(H,4)=D* 

6080 D*-A*(I,5) : A* ( I ,5)«A*(H,3) :A»<H.5)=D« 

6090 IFI*F+1I«0:G0T060 

61O0 PRINTI:G0T06010 



Program Listing 1. 
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PACKER Machine language program that edits all or part 
ot your Basic program to run faster, save memory, or 
ease editing. The 5 options include UNPACK— unpacks 
multiple statement lines into single statements 
maintaining logic, inserts spaces and renumbers lines 
SHORT— deletes unnecessary words, spaces, and REM 
statements. PACK— packs lines into maximum multiple 
statement lines, including all branches. MOVE— moves 
line or blocks ot lines to any new location on program. On 
2 cassettes for 16K. 32K. & 48K 
For TRS-80 Mod I or III Level II or Disk Basic . . . $29.95 
SYSTEM TAPE DUPLICATOR: Copy your SYSTEM format 
tapes. Includes verify routines. The Model III version 
allows use of both 500 and 1500 baud cassettes speeds. 

For TRS-80 Model I or III Level II $15.95 

CASSETTE LABEL MAKER: A mini word processor to print 
cassette labels on a line printer Includes 50 peel - and - 
stick labels on tractor feed paper 

For TR-80 Model I of III Level II & Printer $17 95 

PRINT TO LPRINT TO PRINT. Edits your Basic program in 
seconds to change all Prints to LPrints (except Print© or 
Print*) or LPrints to Prints Save edited version. 

For TR-80 Model I or III Level II $12 95 

FAST SORT ROUTINES: for use with Radio Shacks 
Accounts Receivable. Inventory Control I. and Disk 
Mailing List Systems for Model I Level II Sorts in 
SECONDS! You'll be amazed at the time they can save 
Supplied on data diskette with complete instructions 

FAST SORT for Accounts Receivable $19.95 

FAST SORT for Inventory Control I $19.95 

FAST SORT for Disk Mailing List (specify data diskette of 

cassette for 1 drive system) $14.95 

ALL THREE ROUTINES $44.95 

Prices subject to change without notice. Call or write for a 
complete catalog. Dealer inquiries invited. VISA and 
Mastercharge accepted Foreign order in US currency 
only. Kansas residents add 3% sales tax. 
On-line catalog in Wichita FORUM-80: 316-682-2113 
Or call our 24 hour phone (316) 683-4811 or write. 
COTTAGE SOFTWARE 
614 N. HARDING 
WICHITA. KANSAS 67208 -233 
TRS-80 is a trademark of Tandy Corporation 



TRS-80 



SAVE A BUNDLE 

fc When you buy your 
TRS 80™ equipment! 

Use our toll free number to 

check our price before you buy 

a TRS 80™ . . . anywhere! 



TRS40 * ■ utot^n * or ina A*o*o $A»ck On 



Don't delay . . . CALL TODAY 



►^148 



SALES COMPANY 

1412 WEST FAIRFIELD DR. 

P.O. BOX 8098 PENSACOLA FL 32606 

904/4384607 

nationwide i 800 874 1 551 
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"Any child can write a program; 
a good programmer writes 
bug-free programs." 

release them for publication. Your pro- 
grams are no less important. Any child can 
write a program; a good programmer writes 
bug-free programs. 

Outline the Procedure 

1. Clear screen. Reserve string space 
(100 times 3 times 36 equals 10,800). Set 
dimensions (name, address, city, state, zip 
code times 100 plus 1 for extra element in 
For. . . Next loops equals 101 by 5). 

2. Allow pulling of data from tape if 
desired. 

Pull total number of names. 

Loop through total number of names 

four at a time to save tape time. 

3. Give program options: Clear screen; 
Correct or change; List on screen; Print 
envelopes; Store names on tape; Sort by zip; 
Go to the proper routine. 

4. Entry routines: Add 1 to total number 
of names. Print total. Enter name. Enter ad- 
dress. Enter city, state, zip (in separate 
variables). Go to Item 3. 

5. Change routine: Allow entry of name. 
Find correct name in list by using a compar- 
ing loop. Allow corrections. Go to item 3. 

6. List routine: Loop 1 through the total 
number of names. Display name, address, 
city, state, zip. Print a blank line. Finish 
loop. Go to Item 3. 

7. Print routine: Loop 1 through total 
number of names. Prompt to Insert 
envelope. Print an envelope. Feed envelope 
to operator. Finish loop. Go to Item 3. 

8. Store routine: Loop 1 through total 
number four at a time. Store four on tape. 
.Finish loop. Go to Item 3. 

9. Sort routine: Start main loop to go 
through number of names. Start minor loop 
1 through number of names. Find smallest 
item in list. Exchange with item at top of 
list. Finish minor loop. Finish main loop. Go 
to item 3. 



f start J 



INITIATE 
A NUMBER 



INCREMENT 
BY 5 



FIGURE 

SQUARE 

ROOT 



PRINT 

NUMBER 



TAB 



PRINT 

SQUARE 

ROOT 



TAB 




End of outline 

Code: You can follow the program by 
comparing it to the outline (see Program 
Listing 1). 

The last thing we need to cover is docu- 
mentation. I do not use REM statements, 
because they take up computer space and 
slow down programs. For example, I 
clocked the following program at 10.82 
seconds. 

10 FOR X = 1 TO 5000 
20 NEXT X 

After adding the following line: 15 REM the 
program took 14.68 seconds. A few REM 
statements outside of loops will not make a 
lot of difference, but REM statements also 
consume memory. If you write a program 
and run out of space the first thing you do is 
cut REM statements. Why put them there in 
the first place? RAM is valuable, so do not 



clog It up with REM. 

The solution Is to use pencil and paper. 
On paper you have all the room for REM 
statements and variable notation you need. 
Do not skimp on documentation I This is 
very important if you expect to program in a 
professional manner. If you look at an un- 
documented program six months from now 
you probably will not understand it. 

It is necessary to write down REM-type 
statements in a non-menu driven program 
to document programming routines. In the 
mailing list program, the menu in Iine60and 
80 will serve this purpose. 

This demonstrates the art of program- 
ming simply and effectively. If you follow 
the seven basic steps every time you write a 
program, you will save time and memory, 
and avoid extra unnecessary work.B 



Color computer owners 




Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron, »^500 

181 Commercial Street, 

Sunnyvale, CA 94086 



L Please send a 32K Color Computer 
Interface for $199.00 

D Please send a CCI Disk Card for $99.00 

3 Please include CCDOS and manual 
for $29.95 

□ Also include a ROM Backup adaptor 

for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

State Zip 

Charge my: 

D MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

C Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



• t.'K RAM plu> Disk Imerfac 



TRS-M) ■» a trademark of Tandv 



INTERFACE 



A to D Alchemy. 



Real World Interface— Part II 



Elliott K. Rand 
P.O. Box 552 
Melbourne, FL 32901 



There is a need for direct communication 
between personal computers and the 
real world. Without it the entry of sophisti- 
cated data is limited to input through a key- 
board. This precludes real time applica- 
tions, requires at least one additional level 
of abstraction, and introduces human error 
into a system. 

The computer counts in whole numbers 
which change abruptly. Since the computer 
counts in jumps while the real world is con- 
tinuous, converting one to the other means 
some small error must be tolerated (Fig. 1). 
Each increment of an eight-bit word is .4 



percent of the full amount. That would be 
like measuring a foot and having a max- 
imum error of less than 1/20 inch. If you 
need greater accuracy and you can cope 
with their complexity and cost, you can use 
a 10-bit (.1 percent) or 12-bit .025 percent) 
system. Most requirements are satisfied by 
an eight-bit system. Small errors like two 
plus two equals 3.984 are not a problem, but 
big errors can result if you assume a com- 
puter means 4.000000 when it shows you 
a 4. 

Computer Talks to Real World 

You need a means to convert the digital 
word into the power to drive a motor, 
vary an audio tone, or control a light source. 
A digital-to-analog converter can make that 
conversion. It can do it with either of two 
types of resistance networks (Fig. 2). With 
the supply voltages shown in Fig. 2, peg- 
ging the digital switches at the same set- 
tings in both systems will give identical cur- 
rent flow through the ammeter. 



ANALOG 

VOLTAGE" 




SAMPLING INTERVAL 



Fig. 1. Digitized Analog Signal. 
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Converter Resistances 

Binary-weighted resistances in a ratio of 
2" (1 , 2, 4, 8, etc.) are connected as shown in 
Fig. 2a. In a four switch system 15 steps of 
1/8 ampere from zero amperes to 15/8 
amperes provide the 16 levels of a 4-bit 
system according to the closing of the ap- 
propriate switches. 

This system found its widest use when 
complete digital-analog converters were 
not available on a chip. In this type of con- 
version, accuracy suffers if many bits are 
used. The range of resistor values in an 
eight-bit system would be from R to 256R. 
Resistor tolerances of . 1 percent or better of 
non-standard higher values are required. It 
is difficult to maintain the system's linear 
properties after four or five bits because of 
its unpredictable drift with variations in 
temperature and other elements. 

Climbing the R-2R-Ladder 

Resistances R and 2R are connected as 
shown in Fig. 2b. With all switches 
grounded, the resistance from any node is 
2R in any direction. Closing any switch 
divides the current at each node. Connect- 
ing S1— the farthest switch from the am- 
meter—to the minus 4V source makes the 
current through the ammeter 1/16 of the cur- 
rent through S1 ; connecting S4— the switch 
closest to the ammeter — makes the current 
through the ammeter 1/2 the current 
through S4. Thevenin's theorem or the prin- 
ciple of superposition will show the current 
flow through the ammeter is an analog 
equivalent of the digital value represented 
by the switch settings. 

The major advantage of this system is 
the ease of fabricating extremely closely- 
matched resistances right on the chip with 
values of R. The requirement for twice the 
number of resistors is not a disadvantage 
considering microcircuit dimensions. 

Affordable Chip 

Current-to-voltage conversion is easily 
accomplished through the use of an opera- 
tional amplifier. (Fig. 3.) By selecting the re- 



'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 




OTHER 
MYSTERIES 



312 pages 
$29.95 



Get them at your local I JG dealer! 



'It has twelve thousand one-liners 

in it, and every one is great!' 

- Dennis Kitsz. Phone orders (714) 946-5805 

TKS-Mi i,a trademark of Tandy. Microsoft is trademark of Microsoft. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Writen 
by Harvard Pennington it has more than 
130 pages of easy to read, entertaining and 
immensely useful information - find out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions . . . the list goes on! 

Many readers have saved days of work 
by recovering files that had been unread- 
able. Now in its fourth updated printing, 
TRS-80 Disk and Other Mysteries has 
been getting rave reviews in several mag- 
azines. Yours for only $22.50 (plus $3.00 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and Other 
Mysteries is the complete guide to your 
Level II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
II ROMs available. 

Exploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $3.00 shipping, CA residents 
add $1.80 sales tax). 

IJU I omputer Services, 
1260 West Foothill Blvd., 
:--T Upland, CA 91786 
Please send me the following 
Other Mysteries: 

□ TRS-80 Disk for $22.50 

□ Microsoft BASIC Decoded for $29.95 

□ The Custom TRS-80 for $29.95 

D BASIC Faster and Better for $29.95 
D The BFBLIB Disk for $19.95 

□ The BFBDEM Disk for $19.95 
Please add $3.00 per book, or disk, 
for shipping. 

Overseas airmail $8.00 per book. 
California residents add 69J sales tax. 

Name 

Address 




City 

State Zip 

Charge my: 

□ MasterCard Interbank Code. 

□ Visa Expiration Date 

Card No 

Zl Check enclosed for 

□ Ship COD ($3.00 extra) 
Signature 
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'These transistors are inserted 
within the feedback loop 
to provide up to 75 mA ..." 



quired value for R F we can achieve any de- 
sired multiplication. The mechanical switch- 
es may be replaced with FET switches ac- 
cessed by the data bus. 

A widely used integrated circuit, DAC-08, 
available from Precision Monolithics and 
National Semiconductor, provides R-2R 
capabilities on a single chip. Wide use has 
made the chip very affordable. A block 
diagram and an equivalent circuit of the 
DAC-08 are shown in Figs. 8a and b. 

Inside the Beast 

A schematic of the digital-to-analog sec- 
tion of the real world interface is shown in 
Fig. 4. A reference voltage (V r ) is generated 
across VR1 for use within the digital-analog 
integrated circuit. Maximum voltage output 
of the system is 255/256 times VrRm/Rf, 
available at pin six of 741 operational am- 
plifier AR1. This voltage is used to drive 
transistors Q1 and Q2. Those transistors 
are inserted within the feedback loop to pro- 
vide up to 75 mA output current from the 
digital-analog converter. This low im- 
pedance output voltage is returned to the 
negative input of AR1 . This ensures that the 
output voltage will remain constant as long 
as the load does not draw more than 75 mA 
(the limit established by the 2W 220-ohm 
collector resistors). 

Getting Your Feet Wet 

To perform these experiments, all in- 
tegrated circuits except IC7 must be in- 
stalled. If IC7 is already installed it does not 
need to be removed. Both the plus five volt 
and the plus-minus 15 volt direct current 
supplies are also required. 

Before attempting these experiments be 
sure to remove power from the TRS-80 and 
all power supplies. Never leave the power 
on while setting up or reconfiguring test 
hardware. 

If the interconnect cable is not already in- 
stalled between the TRS-80 and the real 
world interface connect the card-edge con- 
nector to the expansion port with the 
ribbon-cable exiting upward. Install the 
40-pin DIP plug into S01. Pin one of the 
40-pin DIP plug goes to pin one of S01. 

Connect the plus five volt and the plus- 
minus 15 volt direct current supplies to the 
real world interface. Connect a direct cur- 
rent voltmeter capable of reading 15 volts 
across the digital-analog output and 
ground. 

Turn on the plus five volt supply. All light 
emitting diodes (LEDs) should light. Turn on 
the plus-minus 15 volt supply. The voltmeter 
should indicate approximately 10.25 volts. 
Turn on the TRS-80. 

A memory size start-up routine should oc- 
cur. No memory need be reserved for these 
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experiments, so press Enter to get into 
Level II Basic. 
Enter and run: 

10 OUT 127,137 'Configures 8255 

20 OUT 124,128 'Loads 80H into Port A 



You should observe only the most- 
significant-bit (MSB) (left-most) LED lit. The 
meter should read exactly one-half the 
meter reading on power-up. 

Run the program after changing line 20 to 
20 OUT 124,64 'Loads 40H into Port A. You 
should observe only the second MSB LED 
lit. The meter should read exactly one- 
quarter of the meter reading on power-up. 

You may want to try other values In line 
20. Note that an error message occurs if a 
value outside the range of 0-255 is at- 
tempted, and quantities to the right of the 
decimal point are ignored. 



Enter and run: 

10 OUT 127,137 
20 OUT 124,064 
30 OUT 124,128 
40 GOTO 20 

You should observe the two MSB LEDs ap- 
pear lit while the meter reads somewhere 
between one-quarter and one-half of the 
meter reading on power-up. The system is 
switching between the two voltages too 
fast for the meter or eye to follow it. 

Run the program after adding 25 FOR P 
= 1 TO 100:NEXT P and 35 FOR P = 1 TO 
100:NEXT P. Now the LEDs toggle visibly 
and the meter needle swings between the 
two values. 

Change lines 25 and 35 to 25 FOR P = 1 
TO 10:NEXT P and 35 FOR P = 1 TO 
10:NEXT P and run the program. The LEDs 
will toggle rapidly while the meter needle 



VOLT 




Fig. 2a. Binary weighted D/A converter. 



NODE I NODE 2 NODE 3 NODE 4 
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Fig. 2b. R, 2R Ladder D/A converter. 
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Fig. 3. Positive Low-Impedance Output Operation 



LEVEL IV PRODUCTS, INC. 

- IS NOW OFFERING - 

The Full TRS-80* Line at Discount Prices, 

with Extended Warranty Coverage 






COLOR COMPUTER 



16K(R) 


$440 


16K(E) 


$359 


16Kw/ext basic (R) 


$529 


16Kw/ext basic (E) 


$479 



MOD III COMPUTER 

16K(R) $8b9 

48K 2-40 drives (R) $2010 
48K2-80 drives (E) $1829 
48K2-80 drives (E) $2119 
48K 2-80/80 drives (E) $24 19 
RS232 interface add $89 



MOD II COMPUTER 

32K(R) $2950 

64K(R) $3375 

Expansion Dr#l (R) $999 
Expansion Dr# 1 -2-3 (E) $695 



NOTE: THE MOD III CAN BE ASSEMBLED WITH UP TO 4 MEG UNFORMATTED FLOPPY DISK STOR- 
AGE CAPACITY (4-80 TRK DOUBLE SIDED DRIVES) - CALL FOR A QUOTE ON THE SYSTEM 
TAILORED TO YOUR EXACT NEEDS. 



PRINTERS 



Line Printer IV (R) $849 

Line Printer VI (R) $986 

Daisy Wheel II (R) $1679 

C ITOH Starwriters Call 

Centronics All Call 

Epson All All 

AnadexAII Can 



MPI DRIVES FOR: MOD I, MOD III, h COLOR 

MODEL RAW SINGLE DUAL 

40TRK(E) $240 $298 $576 

40/40TRK(E) $360 $419 $818 

80TRK(E) $360 $419 $818 

80/80TRK(E) $502 $549 $1078 



PERIPHERALS 



OK(R) 

16K(R) 

32K(R) 

16K(E) 

32K(E) 



16KRAM(200MS) 



$249 
$359 
$469 
$305 
$362 
$ 39 



DEALER'S INQUIRIES INVITED, CALL FOR OUR WHOLESALE DEPARTMENT (313) 525hd201 



WARRANTY POUCY 

Items including non-Radio 
Shack components (E) are 
covered by an extended six- 
month ports/labor warranty m 
our tech service center 

Items constructed from Radio 
Shack approved components 
(R) are covered by a 90-day 
parts/labor warranty at any 
Rado Shack store, plus an addi- 
tional 90 days in our tech ser- 
vice center 



TERMS OF SAU 



,2%^ Discount allowed on cash 
pre-paid orders Personal 
checks require two weeks tor 
bonk clearance 

Visa. Master Charge and COD 
orders occepted Add St 50 fa 
CQD.'s 

Shippmg/handlmg/insurance 
odd 1 5% or $2 50 minimum 

Prompt shipments from stock 



LEVEL IV PRODUCTS, INC. 
32461 SCHOOLCRAFT ROAD 
LIVONIA, MICHIGAN 461SO 

MICHIGAN - (313) 5254200 
TOLL FREE - 600-521-3305 



•TRADEMARK OF TANDY CORP 




THE NEW CbbpuCAmA 

IS AVAILABLE FOR 
YOUR CHURCH TODAY! 

CmPtfiAiMiA 

is the first affordable computerized church record 
system which enable* your staff to quickly and 
accurately 

• Record all weekly contributions 

• Prepare IRS statements tor members 

• Maintain personal records 

• Sort records by skill or activity 

• Maintain mailing lists 

• Print mail inn labels 

• Use a "Word Processor" lor 

Sermons 

• Bulletins 

• I etters 

• Stencils 

• Automate payroll and accounting 

• Maintain inventories for 

9lquipment. Rooks 

• Music. Sermons, etc. 



CaapuCAmb 



is a COMPLETE system including 

• Reliable microcomputer 

• High speed printer's} 

• Quality computer programs 

• Required training & manuals. 



CbupuCMM 



requires no prior knowledge of computers. 
Your church staff will rapidly adopt the 
COMPUCHURCH system for all their 
administrative tasks. A real time saver! 



EbupuEAum/i 



was developed by computer specialists at 

MTS, Inc. Or. Stewart W. Turner, President 
of MTS, Inc. also has an in depth 
understanding of church finances and 
administration, and can personally custom 
design a system for your church . . . from 100 
to 1000 members. 



EmpyEAmb 



h AFFORDABLE due to recent advances in 
technology . . . even with a modest church 
budget, we can install a COMPLETE system 
in your church for ONLY 

$5000 — (8000 
depending on your church needs. 

(Software available separately) 

Call our specialists today for more 
information and a free sample portfolio. 
O.K. to call evenings when rates are low 



CZTZD f-O. BOX 596 
P/fW Nicevilte, FL 32578 
I Hi I J* (904)897-3741 ^«i 

MfOtOCOMM/TM TKHNOtOCY AND SOfTWAMl 



"No memory need be 

reserved for these dithers 

between limits of its earlier swings." 



dithers between the limits of its earlier 
swings. An oscilloscope can be connected 
to the digital-analog output terminals for a 
more Informative examination of the 
various signals developed. 
Next enter and RuniOO: 

100 OUT 127,137 

110 FOR N = 1 TO 285 

120 OUT 124.N 

+I5VDC 



R46 

. lOOfl 
DIA ^— Vvv 

OUTPUT 
(0-I0V) 




(^ 



03 

2N3055 OR 

EQUIVALENT 
POWER TRAN- 
SISTOR 



BASELESS PLI 
PANEL LAMP 



v(GND) 
Fig. 5. Lamp Driver Circuitry. 



130 NEXT N 
140 GOTO 110 

You should observe the LEDs continuously 
counting from 0-255. The meter swings 
from zero to maximum in about two 
seconds and quickly returns to zero at the 
end of each count. An oscilloscope will 
show a staircase-sawtooth waveform. 
Change line 140 and add the lines: 

140 FOR N = 255 TO STEP - 1 

150 OUT 124, N 
160 NEXT N 
170 GOTO 110 

Run the program again. Now the voltmeter 
swings from zero to maximum and back to 
zero, describing a triangular waveform. 

Add 125 FOR P = 1 TO 10:NEXT P and 
155 FOR P = 1 TO 10:NEXT P and RuniOO 
the program. Now the ramp may be more 
closely studied. 

Enter and Run200: 



200 OUT 127.137 

210 INPUT "ENTER DECIMAL NUMBER 0-2S5";M 

220 IF M<0 OR M>2S5 GOTO 210 

230 OUT 124, M 

240 GOTO 210 

The voltmeter will Indicate a voltage pro- 




0/A OUT 



Fig. 4. Digital to- Ana log Converter. 
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You've Cot 

TOTAL ACCESS 



2 



( specializing in trsso *) 



Rose 



: -£ 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've Got 

• Disk Drives 

TA400 ( 40-T ) $289 

TA 800 ( 80-T ) $41 9 

TA400 Flippy $319 

TA800 Flippy $439 

All with silver case & power supply 
All TA Drives are MPl. 

• CABLES 

2-Drlve $23.95 

4-Drlve $33.95 

Extender cable $14.95 

• BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy $289 

TA800B Flippy $409 

• EPSON PRINTERS 

MX70 $379.00 

MX80 $475.00 

MX80 F/T $589.00 

MX100 $799.00 

Parallel cables $29.95 

• Delivery slow on some models 

• OPERATING SYSTEMS 

trsdos 2.3 Disk & Manual ...$17.95 

LDOS $129.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3. 3.3D $89.95 

• IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive Case (sliver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
$25 

90 day warranty on drives. Add $5.00 freight per 
drive In Cont. US. UPS COD charge $1.40. There Is 
also a 15 day free trial on TA drives, if not com- 
pletelv satisfied ill refund your money ( less ship- 
ping ). I'll take exception to Improper use or 
mishandling. 

• USERS GROUPS 

When your club makes a group buy, 
be sure to can me for a price. 
Rose 

TRSSO * COMPUTERS 
•COMPUTERS 

26-1061 Mod III, LI. 4K. $595 

26-1062 Mod III, Lll. 16K $850 

26-1066 Mod III.48K/2 Dlsk/RS232 

$2150 

26-4002 Mod II, 64k $3300 

26-3001 Color computer, 4k. . . $330 
26-3002 color computer, 16k. . $510 
26-3501 Pocket computer $195 

• DISK EXPANSION, MOD II 

26-4160 One Disk $977 

26-4161 TWO Disk $1487 

26-4162 Three Disk $1998 

lobo drive units also available. 

• Trademark of Percom Data Co. 

• * Trademark of LNW 



• PERIPHERALS 

26-1140 0k Exp. interface $255 

26-1140 W/16K Mem, tested$305 
26-1140 W/32K Mem, tested$355 

26-1172 D.C. Modem II $135 

26-1206 CTR-80 Recorder $51 

26-3503 P.C. interface $42 

16K Memory, Guar. 1 yr $29 

• PRINTERS 

26-1165 Line Printer V $1581 

26-1 1 66 Line Printer VI $986 

26-1158 Daisy Wheel II $1694* 

26-3505 P.C. Printer $127 

DP9500/1 Anadex $1295 

■ LIMITED AVAILABILITY 

• SOFTWARE 

26-1563 Scripsit $85 

26-1566/7 ViSicalC $85 

All other R/s software 15* off list 



The complete line of Radio Shack products is 
available through TA with standard RS limited 
warrenty. Call me for price and delivery. Just 
cause you don't see it, don't mean we ain't 
got it. 

ROSE 



ROSE'S 
SPECIAL 
OF THE 
MONTH 

* AEROCOMPS • 

ALL NEW 

double density 
controller 

■ddc" $149.95 

Here's a Double Density Controller for 
Mod. 1 that does away with all those data 
separation problems that seem to keep 
cropping up! Rose wouldn't fun ya now, 
would she? Don't be scared of Double 
Density any more. AEROCOMP has design- 
ed some advanced circuitry that even I 
don't understand • but I do know it 
works. Better order now. Quanities are 
going to be a bit short. 

$189.95 complete 

With DOSplUS 3.3D. 

How many do you 
want? 12? 



ROSe'S T-SHIRTS 

With any order of 51,000.00 or 
more, I'll send you one of my 

"MIHhFLOPPY" T-StllltSl 

STARWRITER 45 CDS 
DAISY WHEEL K 

f?'. N . T . E . R ...$1799 

DOUBLE DENSITY 
DATA SEPARATOR 
FROM AEROCOMP 
$49.95 

if you own a Percom "uoubler A" *, 
"Doubler II"* or "LNDoubler ** 
upgrade it with the "DDS". Plugs 
right in. No more lock-out! You 
deserve one of these. 

ORDER NOW! 
TOLL FREE 
800-527-3582 

write or call Rose toll free at 
1-800-527-3582 Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. You can pay 
by VISA or mastercard, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order cod (we ship cods 
cash, certified check or money 
order only). Rose will take American 
money In Just about any form. Add 
freight (UPS where possible) on all 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the money! 

TOTAL ACCESS 

P.O. BOX 3002 
RICHARDSON, TX 75080 



214-234-1770 

• TRS80 & Radio Shack are trademarks of 
Tandy Corp. 
copyright 1981 total access 



^6 



TO ACC / 23 
TOACC1/24 



■See List ol Adveriiseis on page 402 
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"Without the spacer 

the heat-sink will 

be at the same voltage. . . " 



R47 

I5K 

0-IOV ©— "Wv 




IN4002 



^7 
(NO RESISTORS) 




DI4 



- " m* T0 MOTOR 
Ul3 +I.5V0C TO 
-I.5VDC 

DI2 



-I5V 



-I5V 



Fig. 6. Bi-directional, Variable-Speed, Permanent-Magnet Motor Driver. 



portional to the decimal input (10X/255 
volts). The LEDs will indicate the binary 
equivalent of the decimal input. Both the 
voltmeter reading and the LEDs still only in- 
dicate an abstraction of a physical condi- 
tion and have no real meaning to the phys- 
ical world. 

The Reality Connection 

Connect the lamp driver circuit (Fig. 5) to 
the output of the digital-analog converter. 
Use a 2 N 3055 NPN power transistor or 
equivalent with a heat-sink. Be sure to apply 
some silicone grease between the tran- 
sistor and heat-sink to maximize the 
transfer of heat and put an insulating 
spacer between them. Without the spacer 



the heat-sink will be at the same voltage as 
the transistor collector. Avoid inadvertent 
contact with other circuitry. 

This circuit provides adequate current 
to power a small panel lamp. A base- 
less 12-volt bulb, like the kind used in 
automobile instrument panels, is conve- 
nient to use with clip leads, or inserted 
directly into a solderless breadboard or the 
space provided on the printed circuit board, 
avoiding the requirement for sockets and 
other items. 

Run all the programs I've described with 
the panel lamp circuitry and the meter 
across the digital-analog output. Program 
operation will control the light bulb's 
brilliance. Note the voltmeter indicates 




Fig. 7. Voltage-Controlled Audio Oscillator. 
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several volts above zero before the lamp 
glows. 

The 0-10 volt direct current output from 
the digital-analog converter can be translat- 
ed into a proportional voltage of about 
minus 1.5 vdc-plus 1.5 vdc (see Fig. 6). 

Operational amplifier U8 sums the minus 
15 vdc and the 0-10 vdc inputs. With the 
values shown in Fig. 6, an output of minus 
1.5-1.5 vdc results from converter output 
voltages of 0-10 vdc. Transistors Q4-Q7 in- 
crease the circuit current-driving capability 
from a few mA from U8 to one Ampere. 

Connect the motor-driver to the ap- 
propriate power supplies. Do not connect 
the permanent-magnet motor to the motor- 
driver output circuitry yet. 

Type and enter OUT 127,137: OUT124.128. 
This sets the motor-drive output to zero 
volts. Now connect the permanent-magnet 
motor to the motor drive output circuitry. 

This motor is a 1.5 volt direct current 
motor used in small tape-recorders and bat- 
tery-operated toys. (Radio Shack #273-208 
or equivalent.) Clamp the motor in a small 
vise to prevent it from jumping around. 

Run200 the program previously loaded. 
For numbers lower than 105 rotation of the 
motor shaft will be in one direction. Speed 
of rotation will increase as the numbers ap- 
proach zero. For numbers higher than 150 
rotation of the motor shaft will be in the op- 
posite direction, increasing as the number 
approaches 255. Painting a spiral on the 
motor shaft with nail polish or white correc- 
tion fluid makes the direction of rotation of 
the shaft more visible. 



SUPER MICRO PRO CESSOR FOOTBALL 



SCORE: Ttf MGHTY COHPUTER - B 



I ■ 
■"■ 
I ■ 
IB 
I ■ 

s 

« O^ ^ W ^ U U. ... .XX. ^. ^ ^ 



g ii 21 a u a ti 31 a ii g 

...VOUR TEAK 0FFB61K TOWEL <~ I— 
1ST DOWN RMO 10 W THE MIGHTY COWUTERS » 



Hill WHAT IS YOUR 0FTO6IVE PIPY'' lllll 



CLOCK IS RUMIM) - TIME RDOINING 11 I 28 ■ PLAY TIMER S 



Animated Graphics — Game Time Clock 
(48K-32K) Available for TRS80" Lll M1 or M3 
48K DISC '22.95 - 32K DISC *19.95. (48K 
has more of everything!!!) 

16K DISC OR TAPE *1 2.96 

Many more super programs Please write for 
free listing and program details. 

Attention: Software Authors— We want good 

programs — Top royalty plan. Dealer inquiries 

welcomed. 

* TRS80 is a Reg Trademark of Tandy Corp. 

MICRO PRO SYSTEMS 

Route #2 Box 533 
Cumming, Georgia 30130 




TEACH YOUR 
CHILDREN 

Learning to count money by Malcolm Nygren 



A three-program learning system that teaches 
the important skill of counting money. 

1. Counting Coins — Instruction and drill in 
counting pennies, nickels, dimes and 
quarters. 

2. Shopping Trip — Buy goods in various 
stores; count out the payments and earn 
•'purple stamps" for a right answer. Three 
speed levels. 

3. Check-Out — Run your own checkout 
counter. Learn and practice how to make 
change. 

Learning to count money by Malcolm Nygren 
features superior graphics and is available for 
TRS-80 Model l-Level II-I6K on cassette 
only. Shipped postpaid by first-class mail 
Each program J6.95— all three $19.95 



ALSO AVAILABLE 

ALPHA— Alphabet recognition tot 

preschoolers 
SIGMA — Addition problems lor 

Grades 1-1 
MGMA-KX — Addition problems for 
— the younger or slower 
learner 
SPK L— Spelling practise for 
Grades 2-4 
Available on cassette only. $5.95 each. Two for $11. 
All four for $20.00. k» 104 

Mercer System* Inc. 

87 Scooter lane 

Hlchtvllle, N.Y. I isoi 



H 



( .ro„ss,on.,l software TRS-80 > MODEL 

BASIC CROSS REFERENCE 



• USD WHtRi NAMES ARt USID FAST 

• CAN YOU DlUIl THAI UNI' IINDOUI' 

• OOYOU HAVI Dt AD C ODINC 

•WAN I A nk t PROGRAM LISTING WITH 

DAT! & 1IMI IN HtADINs, 



• SAVI HOURS' 

• PARAUH SfKIAl PRINItRS 

• SrVlRAl OPTIONS 

• hHlPI VARIAH1I 

UNI WIDIH & PAt.l DtPTH 



NOW AVAIL ADlt 1 



d>CQQQ ♦POSTAGE* 

5»oy.yy handling 

IXXUMtNIAIION ONLY $10 00 
ULDUC MBit ON PURIHASI 



DISK SORT 

•MENU DRIVEN « 

• RANDOM HI IS * 

•CHAINS TO SYSTEM t 

OR BASIC PROGRAMS 

BASIC COMPILER 



• YOU DON I HAVI H) 111 A PROGRAMMER IO USl II 1 
fAS> IO USl »IASY tOINSIKI INK) 

FAST' IOBSIRIAMIOR $69.99 



• SPECS SAVED 

ON DISK 



NON-MOP RUNNINt.' 



+ POSTAGE & 
HANDLING 



DOCUMENTATION ONLY. $1000 
l)ll)U< HBO ON PUR( HAS! 



• WRIT UN BY MICROSOFT 



• TRSDOS* BASIC COMPAIIIiLL ' • I ASY TO USl 

• FAS1FR THAN BASIC BY UP IO •AUGMENTED WITH OUR 
tOTIMIS DOCUMIM AIIOS 

irs*)* * iRSDos" ari RicistiRiD GOODLYDDON DATA SYSTEMS 

TRADEMARKS OF TANDY CORP 5436 RIVERSIDE DR.. CHINO. CA. 91710 



$350.00 



■f POSTAGE & 

HANDLING 



MASTER CHARGE or 
VISA accepted. 



THE BOOKKEEPERS 



FOR INFO CALL (6031-447-2745 



Full Charge Bookkeeper— 48K, 3 DRIVE, w/ALPHA $129.95 

Intermediate Bookkeeper— 48K, 2DRIVE & Printer $109.95 

Cheap Bookkeeper— 32K, 2DRIVE & Printer $ 89.95 

All Above Are Daily Journal— G/L Systems 

Ann Rose, our Accounts Receivable Clerk— 
48K, 2 DRIVE & PRINTER 



$150.00 



STURDIVANT & DUNN, INC. ^82 

BOX 277, 124 WASHINGTON ST.. CONWAY. NH, 03818 







Model 



488-80B For Model 1 Operition 



... .,«■., :TT", 



Model 488-80C For Model 3 Operation 



IEEE-488 TO TRS-80* INTERFACE 
Everything needed to add powerful 
BASIC GPIB-488 controller capability to 
TRS-80 Model 1 or 3, Level 2 or DOS with 
a minimum of 16K. 

488-80B or 488-80C $325. 

+ shipping, insurance & lax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING LABORATORIES ^291 
11 Neil Drive • Old Bethpage. NY 11804 
Telephone: (516) 694-3205 

'Trademark of Tandy Corp 

There is no aftiliaticn between Scientific Engineering 

Laboratories and Tandy Corp. or Radio Shack 



VISA/MC Order Line Only (except Mich.) 800-253-4358 ext. 100 

FINDISK-II The ultimate in automatic disk indexing with exclusive features Model-I $20.00 

AUTOMATICALLY create INDEX of programs or data from all your disks, print disk LABELS, print 
alphabetized MASTERLIST. do fast SEARCH, add DESCRIPTIONS Also automatically detect DATA or 
SYS disks. PURGE disks and index of old files, and UPDATE from revised disks only 

SOLAR-I The critical calculations for passive design. . . Model! $30.00 Model-II $45 00 

INPUT any latitude, orientation, slope, roof overhang, storage type, building loss. OUTPUT: solar angles, 
shading, time, heat gain/loss, percent solar, fuel use Print report by hour, month, year in presentation format 

RIA-II Complex Real Estate Investment Analysis Model-I $30.00 Model-II $45.00 

Analysis for investor or homeowner using Elwood method INPUT Project costs, loan and tax data, 
expenses, depreciation rate OUTPUT Cap rate/value, mortgage payments, before after tax cash flows, return 
(IRR) . profit/gain from sale over any time series. 

DEPRECIATE-I Manage a list of depreciable Items Model-I $15.00 Model-II $20.00 

Tracks long list of depreciable items with varying purchase dates, depreciation rates, or per cent business use 
Update any time. Pnnt tax form Used by many CPAs 

STRUCT-1 Graphic design of steel/ wood beams and moment transfer Model-I $ 15.00 

INPUT: span/cantilever, uniform/point loads, beam material. OUTPUT with screen graphics beam moment 
& shear diagrams Print job report with diagram, stresses, and required beam sizes. 

Min32K On disk (Modi one drive order tape) Add $1.00 postage (Mich, add 4% tax) VISA MC 
^88 DOCUMAN SOFTWARE BOX 387- A KALAMAZOO, Ml 49005(616) 344-0805 



t^See List of Advertisers on page 402 
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"The computer can also convert 
analog signals into audio tones.' 



Enter 128 in response to the program 
prompt to stop the permanent-magnet 
motor, then Enter and Run300: 



300 OUT 127,137:0UT 124,128: FOR N = 128 TO 

STEP -1;OUT 124, N:NEXT N 
310 FOR N = TO 256 
320 OUT 124, N 

330 FOR M - 1 TO 1&NEXT M 
340 NEXT N 

350 FOR N = 255 TO STEP - 1 
360 OUT 124, N 

370 FOR M = 1 TO 10:NEXT M 
380 NEXT N 
390 GOTO 310 

The permanent-magnet motor gradually in- 
creases its speed in one direction, then 
slows to a stop, reverses direction, and 
gradually increases to maximum speed in 



the opposite direction. You may want to in- 
crease or decrease the delay loops in line 
330 and 370. 

When the motor is stopped, depress 
Break, enter and Run400: 



400 OUT 
410 FOR 
420 OUT 
430 FOR 
440 OUT 
450 FOR 
460 OUT 
470 FOR 
480 OUT 
490 FOR 
500 OUT 
510 FOR 
520 OUT 
530 FOR 
540 OUT 



127.137.OUT 124.128 

N = 1 TO500:NEXT N 

124.105 

N = 1 TO500:NEXT N 

124.70 

N = 1 TO 500:NEXT N 

124.35 

N ■ 1 TO 500:NEXT N 

124,0 

N = 1 TO500:NEXT N 

124.255 

N = 1 TO500.NEXT N 

124.220 

N = 1 TO 500:NEXT N 

124.185 




Fig. 8a. DAC-08 Block Diagram. 



550 FOR N = 1 TO 500:NEXT N 
560 OUT 124,150 
570 GOTO 410 

The permanent-magnet motor suddenly 
changes speed and direction at one-second 
intervals. Hold the motor in your hand. 
Notice that large speed changes or rever- 
sals cause the motor to torque (twist) op- 
posite to the shaft rotation. These speed 
and direction changes are sudden but not 
Instantaneous. 

The computer can also convert analog 
signals into audio tones (see Fig. 7). A 
number of schemes have been devised to 
produce musical or audio tones from the 
TRS-80, using the system as a very expen- 
sive square-wave generator. The major dis- 
advantage with internally generated audio 
Is it ties up the whole system which could 
be doing other things. 

This is an example when the hardware/ 
software trade-off —always an engineering 
consideration— favors hardware. 

For our application, the integrated circuit 
for the 555 timer is configured as a voltage- 
to-frequency converter. Varying the input to 
R55 (24K) to between zero and 10 volts 
direct current results in the charging volt- 
age — appearing at the junction of R55 
(24K), R56 (10K), and R57 (1 OK)— varying be- 
tween 10.6 volts and 13.5 volts dc. To allow 
the 555 to function as an oscillator, C t must 
charge to 2/3 of Vcc (10 volts). This require- 
ment is met with the value given for R55 
(24K). Lowering the value of R55 to 20K 
causes the 555 to stop oscillating as the in- 
put to R55 approaches zero volts. This per- 
mits silencing the oscillator if desired. 

Because of the capacitor involved, linear 




OUT 



OUT 
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Fig. 8b. DAC-08 Equivalent Circuit. 



(straight-line) variations in voltage result in 
logarithmic changes in frequency. Happily 
the human ear and brain respond log- 
arithmically to sound, and the result is sur- 
prisingly pleasant. 

Next RunlOO the program previously 
loaded. The light and motor may remain 
connected if desired. 

You should hear a realistic siren sound 
from the loudspeaker. 

Run200. For each number entered, a 
unique tone is heard. 

Next, enter and Run600: 

800 OUT 127,137 
610 A ■ RND(258)-1 
620 OUT 124, A 
630 GOTO 610 

You should hear a jangled cacophony of 
tones. If the motor is connected, it will go 
bananas trying to follow the signal. The 
light will flash in disco style. 
Enter and Run700: 

700 OUT 1 27,1 37:CLS 

710 A - RND(256)-1 

720 PRINT A; 

730 OUT 124, A 

740 FOR N = 1 TO KfcNEXT N 

750 GOTO 710 

Now the tones are distinct and separ- 
ated. Some of you may be reminded of the 
music of J. S. Bach. The duration of each 
note is equal. 

To vary the duration of each note enter 
and Run800: 

800 OUT 127,137rCLS 

810 A - RND(256}-1 

820 PRINT A; 

830 OUT 124^ 

840 B » RND(100) + 10 

850 FOR N = 1 TO B:NEXT N 

860 GOTO 810 

The tones heard are reminiscent of bag- 
pipes. You may want to experiment with 
additional program variations. For In- 
stance, a third random element may be in- 
troduced to control the number of times a 
note is repeated. 

The Real World Is Ours 

We are now communicating with the 
physical world using our TRS-80 as sophis- 
ticated controllers. We have demonstrated 
by simple experiments the basic principles 
of controlling the real world, affecting the 
senses of sight, sound, and touch. 

Control is still through the keyboard re- 
quiring human intervention to change pro- 
gram effects. Next month we will explore 
the methods and applications of analog-to- 
digital conversion as a sophisticated re- 
sponse to the physical world and decision- 
making without human intervention. ■ 




#19 SOFTWARE 



ULTIMATE SOFTWARE PLAN 



We'll match any advertised price 
on any item that we carry. And if 
you find a lower price on what you 
bought within 30 days of buying 
it. just show us the ad and we'll 
refund the difference. 
It's that simple. 



Combine our price protection 
with the availability of full profes- 
sional support and our automatic 
update service and you have the 
Ultimate Software Plan. 

It's a convenient, uncomplicated, 
logical way to get your software. 



disk WITH 
MANUAL 
ARTIFICIAL INTELLIGENCE 

Medical! PAS-3) $849/140 

Dental (PAS-3) $849/S40 

ASYST DESIGN 

Prof Time Accounting 1549/140 

General Subroutine $269/140 

Application Utilities $439/140 
COMPLETE BUS. SYSTEMS 
Creator $269/$25 

Reporter $169 $20 

Both S399/S45 

COMPUTER CONTROL 
Fabs(B-tree) 1159/120 

UltraSortll $159 $25 

COMPUTER PATHWAYS 

Peart (level 1) S 99/125 

Pearl (level 21 $299/140 

Pearl (level 3) $549 $50 

DIGITAL RESEARCH 

CP/M 2 2 

NorthStar $149/525 

TRS-80 Model II (P+T)$159/*35 



/ 



MANUAL 
ONLY 

v^ (New items or new prices) 

CP/M users specily disk systems and lormats Most formats available 



Microoolis 

Cromomco 

PL/l-80 

BT-80 

Mac 

Sid 

Z-Sid 

Tex 

DeSpool 

O.M.A. 

Ascom 

DMA-DOS 

CBS 

Formula 

GRAHAM-DORIAN 

General Ledger 

Acct Receivable 

Acct Payable 

Job Costing 

Payroll II 

Inventory II 

Payroll 

Inventory 

Cash Register 

Apartment Mgt 

Surveying 

Medical 

Dental 

MICRO-AP 

S- Basic 

Selector IV 



$169/$25 
$189/525 
*459/$35 
$179/$30 
$ 85/*15 
* 65/$ 15 
$ 90/115 
$ 90/$15 
$ 50/$ 10 



$149/$15 
$ 1 79/*35 
$369/$ 4 5 
$539/$45 

$729/$40 
$729 -$40 
»729/$40 
$729/$40 
$7 29, $40 
1729/140 

$493- $40 
$493 $40 
$493/$40 
$493 $40 
1729/140 
1729/140 
$729/$40 

$269/$25 

$469/$35 



MICRO DATA BASE SYSTEMS 
HDBS $269/$35 

MDBS $79S/$40 

DRSor QRSorRTL $269/$ 10 

MDBSPKG $1295/$60 
MICROPRO 

WordStar $319/$60 

Customization Notes $ 89/$ na 
Mail-Merge $109/$25 

WordStar/Mail-Merge *419/*85 
Data Star $249/*60 

WordMaster S 1 1 9/S40 

Super Sort I $199/ $40 

Spell Star .$175/$40 



MICROSOFT 




Basic-80 


$289 'Sna 


Basic Compiler 


$329/$na 


Fortran-80 


$349/$na 


Cobol-80 


$574, Sna 


M-Sort 


S124/Sna 


Macrc-BO 


$144,-$na 


Edtt-80 


$ 84/Srta 


MuSimp/MuMath 


$224-Sna 


MuLisp-80 


Si74/$na 



ORGANIC SOFTWARE 

TextWnter III »1 11/125 

OateBooKll $269 $25 

Milestone 1269/130 
OSBORNE 

General Ledger $ 59. $20 

Acct Rec/Acct Pay $ 59/J20 

Payroll w/Cost $ 59/120 

All 3 $129/160 

All 3 + CBASIC-2 $199/»75 

• Enhanced Osborne $269/$60 

• With C Basic 1349/175 

PEACHTREE' 

General I edger 1399,140 

Acct Receivable $399: 540 

Acct Payable $399/$40 

Payroll . $399/ $40 

Inventory 1399/140 

Surveyor $399/$40 

Property Mgt . 1799/140 

CPA Client Write-up $799/140 

P5 Version Add $129 

SOFTWARE WORKS 

Adapt (CDOS to CP/M) $ 69/$na 

Ratfor $ 86/Sna 

SOHO GROUP 

MatchMaker $ 97/S20 

Worksheet $177/$20 

STRUCTURED SY8TEMS 

GLorARorAPorPay $599/$40 

Inventory Control $599/$40 

Analyst $199'S25 

Lettenght $179/$ 25 

QSort $ 89/$ 20 

• NAD $ 87/$20 

SUPER SOFT 

Diagnostic I $ 49 S20 

Diagnostic II $ 84/$ 20 

Disk Doctor $ 84/$20 

Forth (8080 or Z80I $149/130 

Fortran $219/130 

Fortran w/RattOr S289/S35 

Other less 10% 

TCS 

GLorARorAPorPay $ 79/125 

All 4 $269/199 

• Compiled each $ 99/$25 
UNICORN 

Mince $149/125 

Scribble 1149/125 

Bolh 1249/150 



WHITESMITHS 
"C Compiler 
Pascal (incl "C") 

DATA BASE" 
FMS-80 

-'dBASI II 
Condor II 
** Access/80 
•s Optimum 

PASCAL 

Pascal/MTv 
Pascal/2 
Pascal/UCSD 4 
Pascal /M 



OTHER GOODIES 

• Select 

• Forcaster 

• Micro Plan 

x The Last One 
SuperCalc 
Target 
BSTAM 
BSTMS 
Tiny C 

Tiny C Compiler 
CBASlC-2 
Nevada Cobol 
MtcroStat 
Vedit 

MimModei 
StatPak 
Micro B + 
Raid 

String/80 
Stnng/80 (source) 
ISIS II . ... 

Plan 80 



1269/lna 
$199/$na 
$419/$na 
5549 Sna 
$269/150 
$189/130 
1149,115 
1149/115 
1 89/150 
1229/150 
$ 98, $20 
$129/125 
$224 $25 
$105/$ 15 
1449/150 
1449/140 
$229/$ 20 
1224/135 
$ 84/120 
12 79/1 na 
$199/150 
$269/$30 



INFO UNLIMITED 

EasyWnler 1224 

Datadex 1349 

Other less 15% 

MICROSOFT 

Soltcard [Z-80 CP/M) 1259 

Fortran 1179 

Cobol $499 

MICROPRO 

Wordstar $269 

MailMerge $ 99 

Wordstar/MalMerge $349 

SuperSortl $159 

•Speltstar $129 

PERSONAL SOFTWARE 



$600/$30 
$850/145 

$649/545 
$595/ $50 
$899/$ 50 
$699/$ 50 
$749/$50 



$429/130 
$349/$30 
$4 29/$ 50 
$189/120 



Visicalc 3 3 
CCA Data Mgr 
Desktop/Plan II 
Visiterm 
V.sidex 
Visiplot 

Visitrend/Visiplot 
Zork 

PEACHTREE' 

General Ledger 

Accl Receivable 

Accl Payable 

Payroll 

Inventory ... 

OTHER GOODIES 

dBASE II 
VU *3R 
(usew/Vistcalc). 
s Context Connector 

:usew/Vi$icalc: 
<f Micro Courier 
• TCS Apple 

(complete business) 
Super-Text II 
Data Factory 
DB Master 
Charles Mann 
STC 



$159 
1 84 

1159 
1129 
1159 
$149 
$229 
$ 34 



$224/140 
1224/140 
$224/140 
1224/140 
1224/140 



1329/150 
1 79 

1129 

$219 

$269 $99 
$127 
$134 
$184 

less 1 5% 
less 15% 



WORD PROCESSING 
WordSearch $179/150 

SpeUGuard 1229/125 

VTS/8C 1259/165 

Mag.cWand 1289/145 

Spell Binder 1349/145 

ORDERS ONLY- CALL TOLL FREE VISA • MASTERCHARGE 

1-800-854-2003 ext 823 • Calif. 1-800-522-1500 ext 823 

Overseas — add 110 plus additional postage • Add 12.50 postage and handling per each item • California 
residents add 6% sales tax • Allow 2 weeks on checks. COD. ok • Prices subiect to change without notice 
All items subiect to availability • Jf — Mfgs. Trademark 

THE DISCOUNT SOFTWARE GROUP 

6520 Selma Ave. Suite 309 • Los Angeles. Ca. 90028 • (213) 666-7677 
Infl TELEX 499-0032 BVHL Attn: DiscSoft • USA TELEX 194-634 BVHL Attn: DiscSoft • *•* tM > 
TWX 910-321-3597 BVHL Attn: DiscSoft 
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[Tvm GREATp t oirarns byjfruce HansenlJ 



IWENTORE 



the 
system 



! BRAND NEW! 



ctUke 



orm e«oct'u, i 

nw* than lust 



Create your own adventures tu look ^nj ^4 

tbose »r.tten bu, Scott Adams' I m Adventure 3)4*** 
a program -- it's a un,que e»per*nce ,n creativity,! Included Ml I be Adven- 
ture 3>^«te^ package are 

% An adventure editor »b.cb allows ^ou to design, debug, r-eod <and *r.te 

i|Our own adventure creations' 
9 A" adventure drver j"or executing ijour adventure creation*' 

• T*0 full lengtb adventures "M w'l Adventure' and "Xju-ra\aT <, 
Adventure" 

9 /£\ 50+ page manual m a handsome notebook describing tbe adventure 
language and how to use it, includes a free mini -adventure' 

# An nvitation to jom tbe adventurer's user group wb.cn will entitle <jpu to 

free program updates, user tps. a specal discount on adventures, a user 
newsletter, and speoal b«;p getting tbe adventures 4O0 write marketed 

The Adventure System actually utilizes a unique 
lamuiatfe that permits you to input criteria for build- 
ing an adventure aame to your specifications. Vou 
are limited only by your Imagination!! Challenge, 
amaze and entertain your friends with your own ad- 
venture programs! Adventure characters can in- 
clude your family or friends: adventures can take 
Place at home, work, campus or your own city! 



The 


Ad 


venture J)i|ster» 
just S3QQ5 


sells for 


P 


ease 


spec. fn rlodel 


lor HI 


ke«u 


r« 


drive and 48 


<RAM 



For the cost of three adventures. 

TAS lets you create dozens !! 

In stock and ready to ship NOW. 



II I *• AVter*»<»4t» ,)owitp 't a'voijs accept**^ vub*«. r.be^ to t*«<»* foqoi n*> 

SOut t*w\j «wl ai.ovi ^»"q«««(frt»proqrw\ to »ubtc*-.b»rt J«At 
OoJ llwn t}r»or* rlorcK 3' iQO? eac* p»*lO" tukirb.nq/rvrw.nq \, 
\K I 1 * .«v» p»r.oJ to I Ab *"J "*M O" "a, tki ao*v«rt.t««n«r.t. wJ rvce.y. 

Sk abfo'wteki fi-w. a p roy w coi*d PLY. Yov wll f.«J t^>-« p»-ogram to o* 
I j Umi, ful of bun * co-t^.n.^ ^ .r^ Swanninf - a 
I t'O". 't'i W* to amv«9 ^ov fo»" *exjr>* o" **v* FLTr '* °°* f °*" *^* Of-Hf***** 
It -* tfvtftlobW Onl^ tnrxXKjh th.s 0nj f «VM0* <»dv«H>W*«tf . Off**" gOO-J w^t I 
More*. 31. 196? T-e"N fovr «v« of TAS«"»$J6oo FLY I 

I f»w» You'll twat nOutt«lf if ^ov <n.« tb.« orw 1 



|\ame: 
Address 

C*9 - 

Stote. Zi 



The Alternate Source MONitor j 

OVeiVieW: TASMON « on interactive / SO mon.tor and d.s- 1 

assembler /AH versions come complete w.tb tape and disk |/(^). and alio* L 

programs to be eas.'i) converted prom one medium to tbe otber source code J| 

generated bu, T A 5 M ON can be loaded bu, all popular editor/assembler 1 

programs TASMON Features a command to \u% relocate tself to k 

arin memonj block ijOu tpCCiflf J 

PUTPOSe: Tbe purpose of TASMON •« to alUstud^. debugging. ^ 
tracing and s.ngle -stepping of /_ OO object code Opecal care k»s been 
taken to make tbe program easi^ to u$e bv, beginning /-OO programmers 
I AjrlC^/N *"5 developed as a result of tbe autbor's dissatisfaction 
with tbe seven monitors be purchased | AjllvJN "01 a 45+ page user 
manual document ng eacb of 'ts features, and ncludes special user sessions 
wbii n document tne more complicated features 

"other excellent disassemblers are ... The Alternate Source's 
TASMON. which Provides symbols and disk (lies. (The TASMON 
package is a powerful monitor, one of the best I've seen.)" 

William Barden. Jr. 



Command Summary: 





l<«pW» iwg*te*i 


• 


l_otf<^ i^tt** 1 top* 




rloa.bt '"♦■to'ii 


• 


L~- /CMD M fw 




|— Jr. rr«fno<-Vf t£v™p 


• 


V-*^v.r.f s ,^te^ tap. 




AoC_H "V^O^ Ju"vp 


• 


VW^f, /CMD M f-U 




L/^Mttinb 1 *^ ***?■ 


• 


W-t. iwiU- t<^» 




L>WIM»Wf to p'intr'" 


• 


W-u /CMD M fW 




LX"rp tCV* to printer 


• 


PoUCTrTlfaU to <J-«b 




Sv" -«« «»'v»s 


• 


D« , «»^bl« to tap. 




Subtract hea w.lu« 


• 


S.t UakpoM* .r ROM 




P.nJ \M cont»Cut.v» b^tw 


• 


S't br.akpont. .0 RAM 




jK.p forward or* initrvdion 


• 


S't breakpont, (0 total) 




XJocV vp 0"» .nttrurt.on 


• 


D'tplai, k"»alipo "t< 




(..W"" Ittt" 


• 


\J*Oi+ b'^eaHpO'it* 




'locate (iniamini 


• 


O-n^W »t»pp-"a (t«o «a^J 




riov* bloci of "*Mi( 


• 


1 rac-n^ at O tpe^« 


Plus: 


Disassembles with labels! 


• 


K»»P ICW" 




TASMON I &. Ill i«r* 


• 


Opl't ccrtwi J-cpUi, 




TASMON 1 J«s 


• 


U«vr- or*a»rJ pognat-oi 




TASMON III «W 


• 


D"« ort»r " ••etut-ons 




$29.95 



H 



D R^r -e a TAS I M! 1 



The Alternate Source 

1806 Ada Street 

Lansing. Michigan 48910 

517-487-3358 

517-485-0344 s m 



Q Rusb me a TAS III d,sk! 

Rusb me a TASMON tape' 

Rusb me a TASMON I d.sk! 

Ruvb me a TASMON III disk! 



a 
a 
□ 



AW $? OO (or poclw>g-«9 on<J pwtaa* 

AJJ $i so for C.OD ^P-~t< 

AM **% fo»" cr<irgr («>V4 orje-5 
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IT 



MODEM 80 

Communications Package 



Abilities: 

• l^emote operation of a | Kj-OO rlodel I or 1 1 1 from a terminal or a 
second | I'vO-OO through a telephone lml\ -- pies rnoij be transferred 
vi tn the unattended computer 

• termor \~ree file transfer? vitn another | |<3)-00 or a computer that 
can use the protocol of the (_M» y\ program "rlodem" which is widely 
used on computer bulletin boards yand available on C^k-vrl user group 
<J,sk number 25). 

• \ — ile transfers with many other types of computers with the | Ro-OO 
actmg as a terminal. | he program 'S set up for use with rl'CrolN-t I , 
the jouree, 1 — orum OO's and similar systems, but the communication 
parameters, character set. and control characters may be redefined to 
operate w«tn many other computers. 

Advantages: 

• 1 — 'les of unlimited length mau, be handled, even In a 3?Kn System. >0v 'th 
the "XMODEM/CMD" f.U transfer ut.l.ty. files may be trans- 
f erred with a lOfC computer. 

• \ — lies mau, be prepared off-line, taking advantage of your word proces- 
sing program, or the included program " ^AVt'Cn L) "- jhoula 
a first attempt at transmission fail, your file is still safely on your disk Gr- 1 
available for a second try,. 

• | ransmit ana receive f les mau, be opened before communication begins, 
and mau, be turned on and off independently. |n a specialized application, 
one file may be transmitted while a different file 'S Simultaneously being 
received. Control codes mau be used to allow the remote computer to 
control the file operations 

• /\ smgle line mau be sent from the file, allowing sending from the file to 
be intermixed with taping from the keyboard. | his allows a more flexible 
response to prompts from the remote computer, and permits transmitting 
data to a computer that cannot accept full speed transmission and does 
not use control codes to start and stop the file transmission. 

• UC^Jo commands and programs which execute <n the lower IOK of 
memory mau be executed while maintaining positions m the transmit and 
receive f i'es | he previous screen contents are restored upon completion 
of the DOS command. 

MODEM 80 Is compatible with ALL popular opera- 
ting systems including LOOS. Newdos/80 (even ver- 
sion 2.0). DOSPLUS. TRSOOS and ULTRADOS. 

MODEM 80 regu.res one disk drive and 32.K 
MODEM 80 ,s supplied on diskette with full-s.ie punched manual 

MODEM 80 costs just S3Q.Q5 

□ 

a 



AT LAST « 

CONCINNATOR 

| he wait is over, | |odel 1 1 1 people!" (^.oncmnator opens the door to machine 
language programming! (^_oncmnator is a patch to l^adio jhack s trditor 
/Assembler 1/2 packoge -- patches it right up to worl\ on YUUlN > H ! ' cm ' 
|\Jot only that, but C_oncmnator makes numerous improvements to the par- 
age; just look. 

Improvements: 

• You can reserve memory for machine language program*; and dump t'-c 
assembled code to this reserved area'. f\eeps V^orr mnator r memory 
still intact so that you can return to it later! 

# \_,oncmnator allows you to execute the assembled code that uOu dumped 
into the reserved memory area'. \ his means you can test your code a-^d 
do your debugging, etc. without tons of tape \l\_). vv hen. and only when 
your program is complete - then you can save your source/objfc t < ode to 
tape! | oggle between assembled code and C_onannator at w"! 

# Vv hen it comes to tape \l\_), C_,oncmnator provides you with all of the 
ideal opt'Ons: it honors the break key so you can escape from unwanted 
loads or saves; it features a verify option to ensure that your code wjk 
saved accurately; it also supports selectable baud rate (_500 or I500J! 

9 C_oncmnator is at your command -- ready at any time to convert, disp'a 4 
and/ or modify contents of memory locations! 

# V^oncmnator keeps you informed of available memory by ront nuallud s 
p'aying the number of bytes remaining m the text buffer! 

• Enter, at any time. BASIC'* mon tor mode (SYSTEM prompt) 
for jumps to any location in memory and/or to load jY j I t" I I tapf-s 

• Enter, at any time, BASIC* command mode (READY prompt) 
to perform any needed calculator functions 

9 (^.oncinnator even allows you to return to fully programmable fjA D 
l\_~ keeping (^oncnnator intact ana waiting, and optiona'ly. dumped 
machine programs and source code protected in man memory! 

Tlie beSt neWS * that Concmnator prov.des ALL of these opt ons. 
and takes away less than AOO bytes from the original text buffer (w' e- no 
memory s reserved)!! iDClUdCd Wfttl CODClnnatOr « a p ogra n 
called SYSTPE which allows you to combine EDTASM and Q.n- 
Cinnator into one Jl J I trl tope at high speed, for easy use. fl lOirO 
IXMIUS PrOtfram. CPYALL. a''\ows you to read back dtps UoJ« 
produced by (^_,ononnator, ana resave it as a continuous (rather tt or S&a- 
mentedj high speed tape! 

And ifs Just $19.95!! 

Concinnator requires Radio Shack's EDTASM 1.2 
(Concinnator does NOT support disk I/O. sorry) 



I 




Rush me a Modem 80 | d.sk! 


The Alternate Source 


Rush me a Modern QO III d.sk' 


1806 Ma Street 




Lansing. Michuan 48910 


l^ush me a (^.oncmnator tape! 


517-487-3358 

5174854344 



-\dd >"200 pocwqinq and pottta^c 

Add$l.50forCOD«».1.~nt« 
Add «% for charge COrcJ ortU. 



The Aternote S°"rc« s oLo^c accept ng tuUcr hers to lt»r nsooi "f ^| 

tjut tr*e4 aren't ww9tjfl g vng a*OK i free programs to suDscrberv ^Joft no* ■ 

and then Before More* 31. I(?8? each pe^on tu bscr.Ug/ren*.. ng j C r a 3 

2A issue period to TAS. "'J mention ng th? odvertnement. «.l rvtc .*. V 

abto'vtel H free, a program colled FLYe You v. I f^d t* i program to b<< ■ 

I ter«,ll H fUll Of DOSS 1* conto-.ng no err^ SWaHnlM * * *' j 

t.on. it't tur. to omvt. ^ou for hour^ on end FLY « not for (flip on.pfotv 1 

It .5 available onl 4 through lh.« arj s.m.'ar odvert.sementt. offer good onl.l 
March 31. IQ8?. T«^t 4 four ,«ues of TAS <"* H>0 OO. fLY t 
free YovM SWat 40vr,.lf ,f ^ou mm l»w, one! 




•See List ot Advertisers on page 402 
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APPLICATION 



An assembly time-cost analysis program with heart. 



The Pacemaker 



David Tin is 
National Controls Inc. 
4500 John Young Pkwy. 
Orlando, FL 32804 



A modern piece of electronic equip- 
ment consists of a multitude of parts. 
In fact, a printed circuit board assembly 
may include hundreds of resistors, 
capacitors, transistors, diodes and in- 
tegrated circuits. Have you ever wondered 
how a finished assembly was created from 
a pile of parts? 

It should be immediately obvious a 
worker does not sit down with all the com- 
ponents to build the finished product. In- 
stead, assembly lines are created in which 
the product has parts added to it until a 
completed unit is produced. 

Pacing a Line 

This brings us to the concept of a 
"paced" assembly line. Imagine an 
assembly line consisting of four work- 
stations whose purpose is to build a 
printed circuit assembly. A bare board 
enters the first station and has parts 
mounted on it. Then it's passed to the next 
three for additional parts, until the final 
assembly emerges at the last station. All 
seems to be working well. But suppose it 
takes the first station five minutes to com- 
plete the required task, the second three 
minutes, the third eight and the fourth 
four. Some workers will be sitting for long 
stretches with nothing to do while others 
must work feverishly to keep up. 

Looking at the total time of our 
hypothetical four-station line, we find it 
should take 20 minutes of assembly time 
to build a single unit. But is that true? 

Even though station two can finish its 
job in three minutes, it must wait two more 
minutes for the next piece from station 
one. Station three in turn requires eight 
minutes for its task. A backlog starts to 
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build as the two faster stations pass on 
more boards than it can handle. Station 
four, like station two, is limited by its 
preceding station. It can finish a job in four 
minutes, but must wait four more minutes 
for station three to finish. 

This results in an assembly time of 26 
minutes instead of 20 minutes and an effi- 
ciency of only 78 percent. The solution is 
to redistribute the work among the work- 
stations so each will take equal time. 

An actual production line will have these 
problems multiplied manyfold. How do you 
set up an efficient assembly line from 
scratch? 

You could go on past experience or a 
"gut feeling" and later adjust the line as re- 
quired. But this wastes time and man- 
power resources. Good practice dictates 
establishing standard times for every 
operation. Then, by adding all the standard 
times, a total time for the finished 
assembly can be established. 

Working backward, you can divide the 
total time by the number of work stations 
to arrive at a time per work station. Know- 
ing this, you can return to the per compo- 
nent standard times to determine what 
combinations of parts should be assigned 
to each work station. This step is usually 
the most difficult one, involving the 
manipulation of lots of numbers, and can 
turn into a major job when applied to an 
assembly with a large number of parts. 

The Computer Steps In 

Here is where an assembly time/cost 
analysis program is useful. Such a pro- 
gram allows the engineer to easily rear- 
range work station compositions until a 
balanced condition is achieved. 

Assembly Time/Cost Analysis allows a 
person to create a paced assembly line 
with a minimum of aggravation. Through a 
master menu, the user can create new files 
or load saved files containing assembly/ 
work station data. Parts can be changed, 
added, deleted or moved from one station 



to another. Station composition can be 
viewed either for a single station or all sta- 
tions sequentially. Each station may con- 
tain up to 20 discrete components, and the 
number of stations is limited only by your 
computer's memory size. Finally, cost per 
work station can be automatically com- 
puted, a necessary detail for a profit mak- 
ing business. 

Glossary 

The program is essentially self-prompt- 
ing; however, a glossary of terms used as 
they are encountered in the program is in- 
cluded for maximum understanding. 

• Performance Factor-This is an adjust- 
ment number used for uncontrollable 
variables — fatigue, housekeeping, per- 
sonal needs, etc. It is generally between 
one and two although it could be higher for 
really inefficient operations. 

To illustrate, it may take 0.5 minutes to 
bend the leads on a resistor, insert it in a 
printed circuit board, solder it and clip the 
leads. Based on this standard time you 
might expect 120 resistors an hour to be 
handled. But try doing it yourself some- 
time; before long you get tired and bored. 
You stretch, go get a drink, go to the 
bathroom, talk to a fellow worker, etc. At 
the end of an hour you may have done only 
100 resistors. To allow for this, an adjust- 
ment is made to the standard time. 

• Raw Minutes-This is the ideal time to 
perform the required operations for a 
single part. When displayed in the station 
breakdown, this will be multiplied by the 
quantity of the particular part. 

• Factored Minutes-This is the adjusted 
allowable time for installation of a line 
item. This number represents Raw 
Minutes times Quantity times Perfor- 
mance Factor. 

• Factored Hours-The adjusted allow- 
able time for a line item converted to hours 
or fractions of hours. 

• Direct Labor Hourly Rate-The average 
hourly wage paid to a direct labor 



"Have you ever wondered 

how a finished assembly was created 

from a pile of parts?" 



worker— those individuals who actually 
build the product. 

• Overhead Percentage-A factor used 
to add in the cost of doing business other 
than raw materials and direct labor. This 
includes rental of facilities, maintenance, 
management salaries, office workers, 
utilities, etc. It even extends to the cost of 
the company's softball team, company 
picnic and greens fees for the golf league. 
Anything that costs money adds to the ex- 
pense of operation and is included in 
overhead. 

Initial entry into the program results in a 
two choice mini-menu. A new file can be 
created or an old one recalled. Entering a 
new file entails inserting file name, per- 
formance factor and number of assembly 
line stations information. If you are unsure 
about the actual number of stations 
needed, it causes no harm to specify some 
extras and then leave them blank. The ar- 
ray scanner used by various parts of the 
program detects these empty stations and 
notifies you of their availability. When 
reading in an old file you don't get in- 
itialization prompts since the required 
data is stored as part of the file. 

Both selections eventually get you to 
the Main Menu. This gives you 10 com- 
mands plus an exit from the program: 

• Totals By Station-Use this command to 
view a work station component breakdown. 
Either a single station or all stations in se- 
quence can be viewed. Output can be either 
video or printer. 

• Factored Hours By Station-This is a 
summary of all stations, used as a quick 
check to see how well the line balancing is 
proceeding. Output can be to either video 
or printer. 

• Reassign Parts- Parts can be moved 
from one station to another. Requests for 
movement to or from nonexistent stations 
or to full stations are trapped and rejected. 

• Enter Additional Parts-This is a two- 
part routine. Parts can be added to an ex- 
isting station if it is not full or an empty 
station can be assigned a parts group. The 
parts entry portion requires a yes/no after 
each part is entered. The station entry por- 
tion uses the "easy entry" mode first used 
when creating a new file. 

• Delete Parts-As the command states, 
you tell it what item at what station to 
delete and it does. First, however, it 
displays the item and part numbers and 
asks for confirmation to delete it. 

• Assembly Costs-The Direct Labor 
Hourly Rate and Overhead Percentage are 



entered and a cost per station and total 
cost are calculated. Output can be video or 
printer. 

• Save Current File-Saves the work sta- 
tion file on disk. 

• Restart- Provides a clean way to finish 
operations on one file and start on a dif- 
ferent one. 

• Change Performance Factor-Allows 
instant changes to be made to the fac- 
tored calculations. 

• Edit Current File-Single line items can 
be changed. A small menu allows selec- 
tion of specifications to change. 

Line List 

I tried to write the program in a modular 
fashion so it could be modified or ex- 
panded as the need arose. With that in 
mind, I've provided a line number list: 
• Lines 10-90: Initialization. The user 
has the option of opening a new file or 



retrieving an old one. 

• Lines 100-110: Main menu. 

• Lines 990-1999: Work station com- 
position breakdown by single station or 
all stations. 

• Lines 2000-2999: Factored hours per 
work station and total for all stations. 

• Lines 3000-3999: Parts transfer from 
one station to another. 

• Lines 4000-4999: Addition of parts to 
a station. 

• Lines 5000-5999: Deletion of parts 
from a station. 

• Lines 6000-6999: Cost analysis by 
work station and total for all stations. 

• Lines 7000-7999: Menu driven editor. 

• Lines 8000-8999: Saves the current 
file to disk. 

• Lines 9000-9999: Loads a requested 
file from disk. 

• Lines 10000-14040: Various sub- 
routines. ■ 



Program Listing 



10 CLS :CLEAR1500:P$-"II.I»«I I" :C$»" SSIM.II" 

15 PRINT CHRS123) :PRINT8128, "ASSEMBLY TIME/COST ANALYSIS" :FORX»l 
TO300:NEXT 

16 PRINT«262,"(1) CREATE NEW FILE" 

17 PRINT?326,"(2) LOAD EXISTING FILE" 

18 PRINTS390,"";: INPUT A 

19 IF A<1 OR A>2 THEN 16 ELSE IF A-2 THEN 9000 

20 INPUT "ASSEMBLY (FILE) NAME "|F$ 
25 INPUT" PERFORMANCE FACTOR ";PF 

30 INPUT "NUMBER OF WORKSTATIONS ";NS 
40 G0SUB 14000 
50 JO»0:FORX»1TONS 

55 CLS: S-l ! PRINT" STATION NUMBER : " ;X: PRINT"ENTRY IN ITEM FIELD: 
'$' ENDS STATION ENTRY, •/' ENDS ALL ENTRY" 

60 PRINTS25, "PARTS THIS STATION : " ; S; : PRINT§192 , " ITEM NUMBER : 
"!iPRINT9320,"PART NUMBER : 
*>:PRINTe448, "QUANTITY : "» :PRINT?576, "RAW MINUTES FOR S 

INGLE ITEM : "; 

70 PRINTS205,"";: INPUT XS: IFX$="e"THEN90ELSEIFX$»"/"THEN100ELSE 
IN(X,S)-VAL(XS) :PRINT0333,"";:INPUTPN$(X,S) : PRINT04 58 ,"*;: INPUT 
QT(X,S) :PRINTe606,"";:INPUTRM(X,S) 
75 PS(X)-S 

B0 RM(X,S)-RM(X,S)*QT(X,S) : FM(X ,S) = RM(X ,S) *PF: FHI (X ,S) «FM(X ,S) /6 
0:S»S+1:IFS>20THENCLS:PRINT"NO FURTHER ITEMS ALLOWED FOR THIS ST 
ATION";:FORA»1TO500:NEXTA:CLS:GOTO90ELSEGOTO60 
90 IFJO-1THEN4170ELSENEXTX 

100 CLS: PRINTTABf 15) ; "ENTER OPTION DESIRED" :PRINTTAB( 15) | "( 1) TO 
TALS BY STATION" :PRINTTAB( 15) ;"( 2) FACTORED HOURS BY STATION" : PR 
INTTAB(15) ;"(3) REASSIGN PARTS" :PRINTTAB( 15) ; " ( 4) ENTER ADDITION 
AL PARTS": PRINTTABf 15) ;"(5) DELETE PARTS" 

105 PRINTTAB(15) ;"(6) ASSEMBLY COSTS" :PRINTTAB(15) ; " (7) SAVE CUR 
RENT FILE":PRINTTAB(15);"(8) RESTART" :PRINTTAB(15) ;" (9) CHANGE P 
ERPORMANCE FACTOR" : PRINTTAB(15) J " (10) EDIT CURRENT FILE* :PRINTTA 
B(15)j"(ll) END J0B":PRINTTAB(15) ;"";:INPUT O 

110 IF 0<1 OR 0>11 THEN 100 ELSE ON GOTO 990,2000,3000,4000,50 
00,6000,8000,10,13600,7000,10000 

990 CLS: INPUT" (1) ALL STATIONS OR (2) SINGLE STATION ";A:IF A<1 
OR A>2 THEN 990 

1000 OS-0: INPUT" (S) SCREEN OR (P) PRINTER " ; AS: IFAS="P"THENOS=l: 
GOSUB13000 

1001 IF A=2 AND OS=0 INPUT'WHICH STATION " ; X :GOSUB1010:GOTO1999 

1002 IF A»2 AND OS»l INPUT'WHICH STATION " ; X :GOSUB1070 :GOT01999 

1003 IF A=l AND OS-0 GOTO 1005 

1004 IF A'l AND OS-1 GOTO 1060 

1005 FOR X=1TONS:CLS:GOSUB1010:NEXTX:GOTO1999 
1010 S«1:TFI(X)»0:CLS 

1020 PRINT'STATION NUMBER: " ;X: PRINT'ITEM I PART I QUAN. 

RAW MIN, FACT. MIN. FACT. HRS.": PRINT 
1030 IFS>20THEN1050ELSBIFIN(X,S)=0 THEN1050ELSEPRINTTAB ( 2) ;IN(X, 
S) | :PRINTTAB(9) ;PN$(X,S) ; : PRINTTAB( 23) ;QT(X,S) ; : PRINTTAB (31) ; *"; 
••PRINTUSING P$jRM(X,S) ;: PRINTTABf 42) ; "" ; : PRINTUSING PS; FM(X , S) ; : 
PRINTTAB(53) ; "" ; :FHI (X,S) =FM(X,S)/60:PRINTUSING P$;FHt(X,S) 
1035 TFI(X)«TFI(X)+FHI(X,S) 



Program continues 
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>THTEME'J i ■. •. '■ : -■_.._ MQ70PS 

Af.fi t<-". .>;■■ r ..-' SET i>t ltj PP0OK«i^S W"!C"H 
[NC'LUt-ES PtOTrihG .v PHDII/BW SftfiPHS 
-->f<i CREST IhG humBES"? •> LlKLtH ^ftQCifitWi 

PACKAGE -•'-:> — <-H.-_V 

TO GET YOURS. 
SIND CHECK OR MONEY ORDER TO 

P.M.W. ^ 595 

7741 ALABAMA AVE. »8 
CANOGA PARK. CA. 91304 

We ship same day on money orders. 

4-6 weeks lor checks 

no COD's or charge cards 

'TRS-80 is a trademark ol the Radio Shack Oiv. ol 

Tandy Corp. 

"Foreign residents add SI. 50 postage and handling 



EPSON Printers 



MX-80 
MX*80ft 
MX- 70 



MX- 100 



f o t 



*«'C 



We have accessories 



*» 



C.ITOH Starwriter Printers 



25 cps Parallel S1425 
45cps Parallel SI 770 



OKIDATA Printers 



Microline 80 $410 



DIABLO Printers 



630 RO 



$1990 



UDS 
LEXICON 



MODEM 103LP $169 
MODEM LEX-11 $125 



Scotch 3M Diskettes 
8" SSSD 10/S2.79 50/S2.69 
5 1/4" SSSD 10/S2.69 50/S2.59 



APPLE SOFTWARE PGM'S 15% OFF 
VISICALC $159 

SOFTCARD $296 

BASIC 80 CP/M $297 

BASIC COMPILER CP/M $335 
Write or call for additional programs. 



ask for free i - * i . .-, g 



P.O. Box 305 -323 
Massapequa, N.Y. 11758 

(516) 798-7448 

F08 Shipping Point NYS Rev Add Sales Tax 
arms. M O . Cart. Checks Allow 2 watki for Personal Chks 

PRICES SUBJECT TO CHANGE 
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104B IFS-1BTHENPRINT: INPUT'PRESS <ENTER> FOR MORE" ; AS :CLS: S-S*l : 

GOTO1020 : ELSES-S+1 iGOTO1030 

1050 PRINT :PRINTTAB( 16) ; "TOTAL FACTORED HOURS FOR STATI0N";X; " : 

'jiPRINTUSINC P$;TFt (X) : PRINT: INPUT'PRESS <ENTER> TO CONTINUE";A 

S: RETURN 

1B6B LPRINT CHRS ( 14) ;: LPRINTTAB(IB) ; "ASSEMBLY :"; FS:LPRINT: LPRINT 

TAB(18) ; "PERFORMANCE FACTOR: "; PF : LPRINT CHRS(13):FOR X=1T0NS:G0S 

UB1 87 1 : NEXTX : G0TO1 999 

1888 LPRINTMTEM * PART I QUAN. RAW MIN. FACT. MIN. 

FACT. HRS.":LPRINT CHRS(13) 

1898 IFS>2eTHENlllBELSEIFIN(X,S)'eTHENlllBELSELPRINTTAB(2) r INIX, 

S) j:LPRINTTAB(9) ;PNS(X ,S) j I LPRINTTABI 23) jQT(X,S) ; i LPRINTTABI 31) ; 

"*; iLPRINTUSING PS; RM(X ,S) ; : LPRINTTAB( 42) ; *" ; i LPRINTUSING PS;FM( 

X,S) ;iLPRINTTAB(S3) ;"";: PHI (X,S) ■PM(X,S)/68 iLPRINTUSING P$;FH»(X 

>S 

1188 TF«(X)-TFI(X)+FHI(X,S) iS-S+l:GOTO1090 

111B LPRINT CHRS(13) :LPRINTTAB(16) ("TOTAL FACTORED HOURS FOR STA 

TION'jXi": "; iLPRINTUSING PSfTFI (X) : F0RZ»1T02:LPRINT CHRS(13):NE 

XTZ i RETURN 

1999 GOTOIBB 

2888 OS-0:AS#-0iCLSi INPUT" (S) SCREEN OR (P) PRINTER ";AS:IPA$-"P 

"THEN OS-1:GOSUB138BB 

2818 HDS»"STATION NUMBER FACTORED HOURS": IF OS-1 THEN L 

PR I NT "FACTORED HOURS BY STATION" : LPRINT i LPRINT HDS ELSE CLStPRIH 

T HDS 

282B FOR X-1T0NS 

2838 S-l:TPI(X)-e 

2848 IFS>28THEN2B58ELSEIF IN(X,S) -0THEN 2858 ELSE TP# (X) -TF# (X) ♦ 

PH#(X,S):S»S+l:GOT02B48 

2858 AS»-AS»*TF#(X) iIF OS-1 THEN LPRINTTAB{6) ;X; : LPRINTTAB( 27) ; " 

"; iLPRINTUSING PS;TF# (X) ELSE PRINTTAB(6) ;X; : PRINTTABf 27) ; "" ; : PR 

INTUSING PS;TF#(X) 

2855 IF OS-8 AND X/18«INT(X/18) THEN INPUT'PRESS <ENTER> TO CONT 

INUE'iAS.-CLSiPRINT HDS 

206B NEXT X 

2B7B H2S--TOTAL FACTORED HOURS FOR ALL STATIONS! " ! IF OS-1 THEN 

LPRINT H2Si iLPRINTUSING PS; AS# I LPRINTi LPRINTi ELSE PRINT H2Sj:PR 

INTUSING P$;ASt 

2998 INPUT'PRESS <ENTER> TO CONTINUE"; AS 

2999 GOT0188 

3888 IPNS-ITHENPRINT'ONLY ONE STATION. UNABLE TO TRANSFER PARTS. 

"iGOTO3998ELSECLS:INPUT"REM0VE PART FROM WHICH STATION "iRStlFRS 

<1 OR RS>NS THEN3BB8 

3818 PRINT#128,"")iINPUT"ADD PART TO WHICH STATION ";DSiIFDS<l 

R DS>NS OR DS-RS THEN381B 

3B2B INPUT'ENTER ITEM NUMBER " j PA 

3B3B S-l 

3B48 IF IN{RS,S)-PA THEN3BS8ELSEIF IN(RS,S)-B OR S-2B THEN3858EL 

SE S-S+l:G0TO384B 

3858 PRINT'ITEM "jPA;" NOT POUND. " IG0TO3998 

3868 PRINT'ITEM *|IN(RS,S)j' PART NUMBER "fPNS(RS,S) 

3878 INPUT'IS THIS THE ITEM TO BE MOVED (Y/N) ' ; ASl IPASO'Y'THEN 

3998 

3888 D-l 

3898 IFD>28PRINT'DESTINATION STATION FULL. ' iGOT03998 

31BB IF IN(DS,D)OBTHEN D-D+l :GOT0389B 

311B IN(DS,D)»IN(RS,S) I PNS(DS,D) -PNS(RS,S) :QT(DS,D) -QT(RS.S) :RM( 

3113 PS(DS;-DlPS(RS)-PS(RS)-l 

DS,D)-RM(RS,S) :FM(DS,D)-FM(RS,S) iPHt (DS,D) -FHI (RS,S) 

3115 GOSUB312B:GOT03998 

312B GOSUB137BBIIFS-2BTHEN3158 

3138 IN(RS,S)-IN(RS,S+1) :PN$(RS,S) -PN$(RS,S+1) iQT(RS,S) -QT(RS,Si 

1) :RM(RS,S)-RM(RS,S+1) iFM(RS.S) -PM(RS,S+1) iFHI (RS,S) -FH# (RS.S+1) 

314B S-S+1:IFS-2BTHEN3150ELSE3130 

315B IN(RS,S)-0:PNS(RS,S)-* *:QT(RS,S) -0iRM(RS,S) -0:FM(RS,S) -BiF 

HI (RS,S)«0: RETURN 

3998 GOSUB11B80 

3999 GOTOIBB 

4888 CLSlINPUT'(l) ADD PARTS OR (2) ADD STATI0N';A 

4881 IF A<1 OR A>2 THEN4BBBELSEIF A-2 THEN41B8 

4B82 INPUT'ADD TO WHICH STATION *;DS 

4BB5 IF DS<1 OR DS>NS THEN 4808 

4818 D-l 

4828 IF IN(DS,D)»0 THEN4B38ELSEIF D-28 THENPRINT'STATION FULL'iG 

OTO406BiELSE D-D+l :GOT0482B 

4838 CLS I PRINT* STATION NUMBER i ' ;DS; t PRINT325, 'PARTS THIS STATIO 

N :';DiPRINT:INPUT*ITEM NUMBER I '| IN(DS,D) i PRINT: INPUT* PART NUM 

BER : *;PN$(DS,D) :PRINT: INPUT'QUANTITY i *;QT(DS,D) i PRINTi INPUT' 

RAW MINUTES I 'jRM(DS.D) 

4848 RM(DS,D)-RM(DS,D)*QT(DS,D) :FM (DS,D) -RM(DS.D) *PF: FHI (DS,D) -F 

N(DS,D)/68 

4845 PS(DS)-D 

4850 PRINT:D«D+liIFD>2BTHENPRINT"THIS STATION NOW FULL" iGOT04B6B 

lELSE INPUT'ADD ANOTHER PART TO THIS STATION (Y/N) " »AS: IFAS-*Y"T 

HEN CLS:GOT04B3B 

4860 INPUT'ADD PARTS TO ANOTHER STATION ( Y/N) ' j A$: IFAS-"Y"THEN4B 

8BELSE4999 

4100 ZS-0:GOSUB1358BiPRINT"AVAILABLE EMPTY STATIONS!*; 

411B PORX-lTONS:IFPS(X)-BPRINT"-';X»tZS-l 

4120 NEXTX 

413B IFIS-BTHENPRINT" NONE" ; i PRINTiGOSUBllB8BiGOT04999: ELSEPRINT 

4150 INPUT" STATION NUMBER TO BE ADDED*; A 

4160 IF A<1 OR A>NSTHENPRINT"THAT STATION IS UNDEFINED* iGOTO4150 

iELSEIFPS(A)O0THENPRINT*THAT STATION IS ALREADY IN USE*iGOT0415 

0ELSEX-A: JO-1 IGOT055 

4170 CLS ! INPUT* ANYTHING ELSE TO ADD ( Y/N) ' j AS: IFAS-'Y'THEN40B8EL 

SE1B8 

4999 GOTOIBB 

5SBB CLS: INPUT 'DELETE FROM WHICH STATION *;RS 

5805 IFRS<1 OR RS>NS THEN 5000 

5010 PRINT: INPUT'DELETE ITEM NUMBER *;PA 

5020 S-l 

5030 IF IN(RS,S)-PA THEN5058ELSEIF IN(RS,S)-B OR S-2B THEN5B4BEL 

SE S-S*1|GOTO5030 

5B4B PRINT'ITEM 'jPA;' NOT FOUND. 'iGOTOSBBB 

5858 PRINT'ITEM *;IN(RS,S);' PART NUMBER ';PN$(RS,S) 

5868 INPUT'IS THIS THE ITEM TO BE DELETED ( Y/N) ' ; ASl IFASO'Y'THE 

N5080 

5070 GOSUB 3120 

5075 PS(RS)-PS(RS)-1 

5080 INPUT'DELETE ANOTHER PART FROM THIS STATION (Y/N) * ;A$iIFA$- 

'Y*THENCLS:GOT05Bie 

5998 INPUT'DELETE A PART FROM ANOTHER STATION (Y/N) *;A$: IPA$-'Y' 

THEN5B00 



Program continues 
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Model II 64K $3300 
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Pocket Computer $ 1 89 
P. C. Printer $130 





M BBBBbV. 
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■ SS5 1 
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n 




Ki&WN!: 1 ^ 


B 


Col 
w 


or Computer 4K $ 
16K Ext. Basic $41 


310 
>9 





Model III 16K $839 

2DR + RS232C $2100 



[#%#% |# Here are Just a few of our fine offers . . . 



call toll-free for full information. 



COMPUTERS 




PERIPHERALS 




Microline 82A 


515 


Model II 64K 


$3300 


Expansion Interface OK 


$249 


Microline 83A 


799 


Model III 4K LEV I 


599 


Expansion Interface 16K 


355.50 


Pocket Computer Printer 


130 


MODEL III16K 


839 


'Expansion Interface 16K 


291.50 


DISK DRIVES 




MODEL III 32K 


945.50 


Expansion Interface 32K 


462 


R.S. Model III 1ST-Drive 


712 


* MODEL III 32K 


881.50 


'Expansion Interface 32K 


334 


TEAC40TrackMI 


329 


MODEL III 48K 


1052 


16K RAM N.E.C 200 N.S. chips 25 


R.S. 1 Drive Exp Mil 


999 


'MODEL III 48K 


924 


MODEMS 




R.S. 2 Drive Exp Mil 


1518 


Model III 48K 




Lynx Direct Connect Ml/Mill 


269 


R.S. 3 Drive Exp Mil 


2040 


2 Disc & RS232 c 


2100 


Auto Ans./Dial 




Seimans 8" Mil 


799 


Color Computer 4K 


310 


Telephone Interface II 


169 


Atari 810 Disk 


499 


Color Computer 16K 


416.50 


R.S. Modem I D.C 


130 


SOFTWARE 




•Color Computer 16K 


352.50 


Atari 830 Modem 


159 


R.S. Software 10% off list 




Color Computer 16K 




Atari 850 Interface 


183 


Atari Software 10% off list 




w/extended basic 


459 


PRINTERS 




Newdos + (40) track Ml 


88 


Pocket Computer 


189 


Daisy Wheel II 


1695 


Newdos 80 Mill 


149 


VIDEOTEX 


310 


Line Printer VI 


999 


ST80III 


149 


APPLE 48K only 


1279 


Epson MX80 


499 


ETC. 




ATARI 800 32K 


789 


Epson MX80 FT 


599 


Verbatum 5" Double Density 


32 






Epson MX 100 


799 


Verbatum 8" Data Life 


49.95 






Line Printer VII 


315 


Ctr-80A recorder 


52 


'Computer Plus New Equipment. 
180 Day Extended Warranty 


Line Printer V 


1610 


C. C Joysticks 


22 


HI 1 IC Mel he^b 


r-lin \AM 


Microline80 


345 







Factory warrantees on Apple and Atari equipment. Other 
equipment carries manufacturer's warranty or Computer 
Plus 180 day extended warranty. Combined warrantees 
carry Computer Plus 180 day warranty or original manu- 
facturer's warranty. 



call TOLL free 1-800-343-81 24 



com 



DEALER INQUIRIES ARE INVITED 

Prices subject to change without notice. 
Not responsible for typographical errors. 

TRS-SO It a registered trademark ot Tandy Corp. 




Dept. D 

245A Great Road 
Littleton, MA 01460 
617-48o-3193 



Write for your 
free catalog 



• See List of Advertisers on page 402 
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REAL ESTATE SOFTWARE 



l..r ^PPLfc TRV80 • PET 



• PROPERTY MANAGEMENT SYSTEM: $325 

• Tmint Hnttry • OwwnUp F«*« 

• mi Mm fu»n • 1*11*09 mp*ris 

• Viuncv Rtpoct • UMfflss Rtpm 

• incim Pitatri • Tii Eiatau «t»rt 

• Auto Lin »*•» • 

• toturntd CkKki • i 

• PROPERTY LISTINCSCOMPARABI.ES: $325 

SCREEN ir — • Mu/Mki Prici 

' • UlMl/ZMM/Cllf 

• 22 NMU/lKUAf • Mil Pnci'lricirw 

• MOO lutWg/Ouk • Mil Pne*/Ss Fm 

• Lkttag Mtm FMM • Mtn CwMkw 

• REAL ESTATE ANALYSIS MODULES: $40. Module 

• Hon Pure**** • To Ostamxl Enhanft 

• incoaii Pup AasftjM • APR Inn ArtKysn 

• Priivh; Stan • Lim AiMrtuattiii 

• CwilrucMn CaU/PraM • OtprKuhw AnMinii 

• WORD PROCESSOR - MAGIC WAND: S2S5 



»i Cow*.* Sim S.riwH*. 



C* XnMwits ins 6% Sim 1 



Sum F. (Mat M 1116-Bin Stiiel Minlurtin Bucn C» 90?« 



BLACKJACK PLAYERS 

A YEARS INCOME IN 4 MONTHS. 

•oik Strotogy Ttrtan, (or th* novic* « .xp.ri olik* 
Ui« our Tutori t quickly loam how lo bocomo A WINNER. 
Eorn $40 hoot. Loom th* tocrali ol our lUCCRW. Our Tutori 
will t*och you how to: 

*• MT YOUR MONEY •• 

** PtAY EACH HAND •• 

** NOT GET lARtED *• 

** H A RU$INESS '• 

*••* IIWARE *'•• 

Our Tutori or* not gomoi ! ! ! Thoy or% unoui tools to 
mok* winnori out o( you. Th* outhori hav* ipont 7 yoon 
playing « boing wr tartars. Now io coo you. with th* oid 
of our Tutori. Our Tutori art bosod on th* itratogioi 
d*v*lop*d by Lowronco Rover*. Mor* odvancod ilratogioi 
or* avoilobl* coll for info. Coniullotion ii ovoilobl* 
•or you by mail or phon* From 12pm 12am M ST 

PKG. I contain! 10 Boik Tutori for Atlontk City, or Novoda 
Ruih $3S for I6K Mod I or Mod III. con. $30 for 32K dilk 
Ploaio add $3.00 lor thipping. 

^205 
MICRO M.AJAK SYSTEMS INC. 
2100 NORTH ELLEN STREET 
FLAGSTAFF. ARIZONA 44001 
(402) 774-5723 or (602) 774-754! 



EDUCATIONAL 
SOFTWARE 

For TRS-80' Color Computer. PET, Apple II. 



ELEMENTARY 

SCIENCE 

GEOGRAPHY 

ECONOMICS 

FOREIGN LANG. 

GRAMMAR 



MATH 
HISTORY 
ACCOUNTING 
BUSINESS ED. 
FARM RECORDS 
COIN INVENTORY 



Write for FREE Catalogue: 
MICRO LEARNINGWARE ^ 

BOX 2 I 34. N. MANKATO MN 5600 I 
507-625-2205 



VISA S. MASTER CHARGE ACCEPTED 

vVepay 15- royalty tor (<luc<nion^ 

['rui(MTn i siert «nth us 

Apple is a trademark of Apple Computer Co. 

TRS-ftO Is a regbtefed trademark ol TANDY CORP. 

Pet Is a trademark of Commodore Bus. Machines 
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Program continued 



5999 GOTO 180 

6000 CLS 

6001 INPUT-ENTER DIRECT LABOR HOURLY RATE";DL 
6010 INPUT-ENTER OVERHEAD PERCENTAGE' )OH:OH-OH/100 
6015 OS-0 

6020 INPUT'(S) SCREEN OR (P) PRINTER" ;A$: IFA$»"P"THEN0S-1 tGOSUBl 

3000 

6030 BCS-'STATION — FACTORED HOURS — DIRECT LABOR — OVERHEAD — BURDE 

NED COST" 

6035 TD«0:TA-0:TB«0 

6040 IP0S-1THENLPRINT; "DIRECT LABOR HOURLY RATE: "; :LPRINTUSING C 

$;DL:LPRINT"OVERHEAD:";OH*100;*%"iLPRINTiLPRINTBC$ELSECLS:PRINTB 

CS 

6050 FORX-1TONS 

6060 S-liTFI(X)«0 

6070 IFS>20THEN6080ELSEIF IN(X,S) -0THEN6080ELSE TF» (X) -TFI (X) +FH 

<(X,S) :S-S+1:GOTO6070 

6080 DL(X) -TFI (X) «DL:OH (X) -DL(X) *0H:BL(X) -DL(X) +OB(X) :TD«TD+DL(X 
) :TA«TA+OH(X) :TB»TB+BL(X) 

6090 IF OS'l THEN LPRINTTAB(3) |X; : LPRI NTTAB ( 1 2 ) ; ""; iLPRINTUSING 

PS; TFI (X) ;iLPRINTTAB(26) ; "" J : LPRINTUSING C$;DL(X) ; i LPRI NTTAB (3 8) 

;""» iLPRINTUSING CS;0H (X) ;: LPRINTTAB( 50) ; "";: LPRINTUSING C$;BL(X 

) :GOTO6120 

6100 PRINTTAB(3) ;X; : PRINTTAB( 12) ; "" j : PRINTUSING P$iTPI (X) ; 1 PRINT 

TAB(26) ;"";iPRINTUSING C$;DL(X) ; iPRINTTAB(38) ;""; I PRINTUSING CSl 

0H(X) ;:PRI NTTAB (50) ;"") : PRINTUSING CS;BL(X) 

6110 IF X/10-INTU/10) THEN GOSUB 11000:CLS: PRINT BCS 

6120 NEXT X 

6130 IF OS-1 THEN LPRINT" " :LPRINTTAB{9) j "ASSEMBLY COST"; i LPRI NTT 

AB(26);"";:LPRINTUSING C$;TD; : LPRI NTyAB ( 3 8 ) ;""; iLPRINTUSING C$;T 

A;:LPRINTTAB(50) ;*";: LPRINTUSING CS;TB: LPRINT: LPRINT :G0T06 998 

6140 PRINT: PRINTTAB( 9) ; "ASSEMBLY COST* ; : PRINTTAB(26) ; "" ) : PRINTUS 

ING CS;TD::PRINTTAB<38) ;""): PRINTUSING C5;TA; 1 PRINTTAB(50) ; "" ( 1 P 

RINTUS1NG C$;TB 

6998 GOSUB11000 

6999 GOTO 100 

7000 CLS:INPUT"EDIT WHICH STATION" |X: IFX<1 OR X>NS THEN7000 
7010 PRINT§64,"EDIT WHICH ITEM"; '.INPUT A:Y»1 

7015 IF IN(X,Y)-A THEN7030 ELSEIF Y«20 THEN7020ELSE Y-Y+liGOTO70 

15 

7020 PRINT" ITEM"; A; "NOT FOUND. CONTINUE TO EDIT ( Y/N) " ; : INPUTAS: 

IPAS«*Y"THEN7000ELSE7999 

7030 CLS:PRINT»30, "STATION NUMBER: ";X; i PRINT8128 , "ITEM NUMBER: ";I 

N(X,Y) ;:PRINT»192,"PART NUMBER: ";PNS(X,Y) ; :PRINT a 256 , "QUANTITY: " 

;QT(X,Y) ;:PRINT|320,"RAW MINUTES FOR A SINGLE ITEM: ";RM(X,Y)/QT( 

X,Y) ; 

7040 PRINTtJ448,"EDIT (1) ITEM NUMBER (2) PART NUMBER (3) QUANTIT 

Y 

(4) RAW MINUTES (5) QUIT";:INPUT A:IFA<1 OR A>5 THEN 7040 
7045 PRINT0576,"":ON A GOTO 7050,7060,7070,7080,7090 
7050 PRINT0640,"NEW ITEM NUMBER" ;: INPUT IN(X,Y) :GOTO7030 
7060 PRINTl3640,"NEW PART NUMBER"; : INPUT PN$ (X, Y) :GOTO7030 
7070 PRINT0640,"NEW QUANTITY" ; 1 INPUT A:RM(X, Y) -RM(X , Y) /QT(X , Y) :Q 
T(X,Y)-A:RM(X,Y)«RM(X,Y)*QT(X,Y) :GOTO7030 

7080 PRINT«640,"NBW RAW MINUTES" ;: INPUT RM(X , Y) :RM{X, Y) -RM(X ,Y) * 
QT(X,Y) :GOTO7030 
7090 FM(X,Y)-RM(X,Y)*PF:FHI(X,Y)-FH(X,Y)/60 

7999 GOTO 100 

8000 ONERRORGOTO12000:CLS:INPUT"ENTER NAME FILE IS TO BE SAVED U 
NDER ";F$ 

8005 GOSUB 13500 

8010 INPUT" INSERT DATA DISK IN DRIVE AND PRESS <ENTER>";A$ 

8020 0PEN"0",1,F$:PRINTI1,NS,PF 

8025 P0RX-1T0NS:PRINTI1,PS(X) :NEXTX 

8030 F0RX-1T0NS:F0RY-1T0PS(X) 

8040 PRINTI1,IN(X,Y) ,QT(X,Y) ,RM(X,Y) ,FM(X,Y) ,PHI(X,Y) 

8050 NEXTYiNEXTX 

8060 PORX«1TONS:FORY-1TOPS(X) 

8070 PRINTI1,PN$(X,Y) 

8080 NEXTYiNEXTX 

8090 CL0SE1 

8998 GOSUB 11000 

8999 GOTO 100 

9000 0NERRORGOTO1 20 00: CLS: INPUT" ENTER NAME OF FILE TO BE RETRIEV 
ED ";F$ 

9010 INPUT'INSERT DATA DISK IN DRIVE AND PRESS <ENTER>*(AS 

9020 OPEN" I ",1,F$: INPUT! 1,NS,PF:GOSUB14000 

9022 PRINT "PERFORMANCE FACTOR IS " ; PF 

9025 FORX-1TONS:INPUTI1,PS(X) iNEXTX 

9030 FORX-1TONS:FORY«1TOPS(X) 

9040 INPUTI1,IN(X,Y) ,QT(X,Y) ,RM(X,Y) ,PM(X,Y) ,FHI(X,Y) 

9050 NEXTYiNEXTX 

9060 FORX-1TONS:PORY«1TOPS(X) 

9070 INPUTtl,PN$(X,Y) 

9080 NEXTYiNEXTX 

9090 CLOSE1 

9998 GOSUB11000 

9999 GOTO 100 

10000 CLSiEND 

11000 PRINT'PRESS <ENTER> TO CONTINUE" 

11010 A$>INKEY$iIFAS-""THEN11010ELSERETURN 

12000 CLOSEiPRINT ERROR: GOSUB11000 :RESUME100 

13000 P«PEEK(14312) :IP P>128 THEN CLS: INPUT'PRINTER NOT READY. A 

BORT (Y/N)";A$ ELSE GOTO13020 

13010 IP A$-"Y"THEN OS-0:GOTO13020:ELSE INPUT'READY PRINTER AND 

PRESS <ENTER>";AS:GOTO13000 

13020 RETURN 

13500 PRINT"* + SCANNING ARRAYS + +" iFORX-lTONSiS-1 

13510 IFS>20THEN13520ELSEIF IN(X,S) -0THEN13520ELSES-S+1:GOTO1351 



13520 PS (X)»S-l:NEXTXi RETURN 

13600 CLS:PRINT"PERFORMANCE FACTOR IS ";PF:INPUT"NEW PERFORMANCE 

FACTOR ";PF 
13610 GOSUB 13700 

13620 FOR X-lTONSiFOR Y-ITOPS(X) 
13630 FM(X,Y)-RM(X,Y)*PFiFHI(X,Y)-FM(X,Y)/60 
13640 NEXTYiNEXTX tGOSUB11000 :GOTO100 
13700 PRINT"* + ADJUSTING ARRAYS ♦ +"tRETURN 
14000 CLS:PRINT CHR$(23) :PRINT8464, "INITIALIZING" 

14010 DIM IN(NS,20) ,PN$(NS,20) ,QT(NS,20) ,RM(NS,20) ,PH(NS,20) ,PHI 
(NS,20) ,TFI(NS) ,DL(NS) ,0H(NS) ,BL(NS) ,PS(NS) 
14020 FORX-1TONS:FORY-1TO20 

14030 IN(X,Y)«8:PN$(X,Y)«" " :QT(X,Y) -0:RM(X,Y) -8:FM(X, Y) -0:FH#(X 
,Y)-0 
14040 NEXTYiNEXTX: RETURN 




The MX-100. Not just better. Bigger. 



cpson. 



Our MX-80 was a pretty tough act to follow. I mean, 
how do you top the best-selling printer in the world? 

Frankly, it wasn't easy. But the results of all our 
sleepless nights will knock your socks off. 

The MX-100 is a printer that must be seen to be be- 
lieved. For starters, we built in unmatched correspon- 
dence quality printing, and an ultra-high resolution bit 
image graphics capability. Then we added the ability to 
print up to 233 columns of information on 15" wide 
paper to give you the most incredible spread sheets 
you're ever likely to see. Finally, we topped it all off 
with both a satin-smooth friction feed platen and fully 
adjustable, removable tractors. And the list of standard 
features goes on and on and on. 

Needless to say, the specs on this machine — and 
especially at under $1000 —are practically unbelievable. 
But there's something about the MX-100 that goes far 



beyond just the specs; something about the way it all 

comes together, the attention to detail, the fit, the feel. 

Mere words fail us. But when you see an MX-100, you'll 

know what we mean. 
All in all, the MX-100 is the most remarkable printer 

we've ever built. Which creates rather a large prob- 
lem for those of us at 
Epson. 

How are we going to 
top this? 

Your next printer. 




EPSON 

EPSON AMERICA, INC. 



3415 Kashiwa Street -Torrance, California 90505 • (213) 539-9140 
Sec the whole incredible Epson MX Series of printers at your Authorized Epson Dealer. 



■See List of Advertisers on page 402 



80 Microcomputing, November 1981 • 225 






Instan t Softwonelnc^ 

Peterborough, NH 03458 - A Division of WAYNE GREEN INC. 



This coupon may be redeemed for one dollar off any Instant 

Software package at all participating dealers in the United 

States. Limit— one coupon per package. Not valid for mail order 

purchases. All information must be filled out completely. 

Dealers— redeem coupon through Instant Software. 



Program you are purchasing 
Your name 



Address 



City 



State 



Zip 



Dealer name„ 



Address. 



Zip 
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I nstant Software Inc. 

Peterborough, NH 03458 -A Division of WAYNE GREEN INC. 



This coupon may be redeemed for one dollar off any Instant 

Software package at all participating dealers in the United 

States. Limit— one coupon per package. Not valid for mail order 

purchases. All information must be filled out completely. 

Dealers— redeem coupon through Instant Software. 

Program you are purchasing Dealer name. 




Your name. 



Address 



State 



_Zip_ 



Address. 



Zip 



& 

** 



m 






Instant Softwar e Inc. 

Peterborough. NH 03458- A Division of WAYNE GREEN INC 



i \£\ V a u^r^c^^^f^ 



This coupon may be redeemed for one dollar off any Instant 

Software package at all participating dealers in the United 

States. Limit— one coupon per package. Not valid for mail order 

purchases. All information must be filled out completely. 

Dealers— redeem coupon through Instant Software. 



Program you are purchasing 
Your name 



Address. 



City 



State 



Z«R. 



Dealer name. 



Address. 



.Z|p_ 
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For Microcomputers 



U.S. $1.00 UK 50p FFR 5 
DM 2 URA IOOO SFR 1 





Business 

Education 

Games 



r^v\ 



Instant Software 



ar new products 



TEMPLE OF THE SUN 

Your quest for the ancient Rites of the 
Shaman has finally led you to a remote 
South American ruin, long rumored to be 
the legendary TEMPLE OF THE SUN. 
Now, at last you are able to explore the 
site for the last clues to the most powerful 
order of Wizards left In the world. Oeto- 
dlrectlonal. the matrix ot this adventure 
Is nearly endless, as are the ways to die. 
Model I. Level II. 16K 
B012R (Tape) S 19.95 
5011RD(DUk)$29.9S 



THE RUSSIAN DISK 

Well, here It Is: THE RUSSIAN DISK. 
Everything your APPLE computer needs 
to put you Into the Internationa] picture. 
Instant Software has packed two multi- 
part packages onto this single disk, so that 
you can master the Russian (or Cyrillic) 
Alphabet In no time flat, learn to type in 
Russian, and to read and recognize a vari- 
ety of Russian words for foods, drinks. 
stores, and even names. 

The first set of programs eases you 
through the Cyrillic alphabet in short, 
rapidly digested and thoroughly exercised 
steps, starting with those letters which 
most resemble the English counterparts 
and Introducing the more exotic ones bit 
by bit. Enjoy that lift which comes from 
the discovery that you have learned the 
entire Russian alphabet, almost without 
trying. 

The second set of programs develops 
your reading ability in Russian, and ex- 
pands your Russian vocabulary as well. 
You'll learn the words for various foods, 
drinks and places to eat. for signs and 
names of stores— everything the traveller 
needs to know. 

Furthermore, the program will allow 
you to practice typing in Russian, using 
the Cyrillic characters. Recommended age 
level. 10 to adult. 

RUSSIAN DISK requires 32K RAM. one 
disk drive, an Apple II or Apple II Plus and 
Applesoft. 
0283AD (Disk) $24.90 



MASTER REVER8I 

Are you looking for a game you can 
spend hours with: a game that's simple 
to play, yet infinitely challenging: a game 
that you can play with a friend, or against 
your computer In the wee hours of the 
morning: a game that can be played at 
parties, and at serious tournaments? 

Look no farther! Master Reversl will 
meet all your needs! 

Master Reversl is a tournament-win- 
ning game program that has more fea- 
tures than any other reversi program on 
the market. It will challenge and teach 
you no matter what your degree of exper- 
tise. 

What makes Master Reversl really spe- 
cial is its ability to allow in-depth analysis 
of moves and games. You may examine 
the computer's evaluation and choice of 
moves. You can save and replay Interest- 
ing moves and games. You will be able to 
study and manipulate dozens of tourna- 
ment-level games which are provided In 
the program's vast library. 

Master Reversl will enable you to over- 
come any barriers standing between you 
and a world championship. 
Model I. Level II. 16K. 
0378RD (Disk) $29.95 



CAPITALIZATION 

As the first module in the Instant Soft- 
ware Aided Instruction (CAI) English 
Language Series. CAPITALIZATION Is an 
educationally solid program for the 
teaching and review of the rules governing 
capital letters. With this program and an 
Apple computer, the student, the writer, 
the reporter — anyone can learn or review 
the 12 fundamental rules of capitalization 
quickly and effectively. 

The program is designed for students of 
junior high school level and beyond. Each 
rule is concisely explained on the screen, 
and examples are given. Next, the student 
Is allowed to exercise the usage of the rule. 
The computer keeps score and reports the 
level of mastery at the end of each set of ex- 
ercises. The student may then choose to 
study the next usage, or may return for 
further practice to the previous exercise. A 
Model Mastery Worksheet Is Included In 
the documentation as an aid to teacher 
and student CAPITALIZATION requires 
32K. one disk drive and an Apple II or II 
Plus with Applesoft Basic. 
OS39AD (Disk) $24.98 



SPACE SHUTTLE 

inside the cockpit of the space shuttle. 
Columbia, the pale green light from three 
computer driven TV screens illuminates 
the craft's 1.400 switches and circuit 
breakers. The Command Pilot gives the 
necessary instructions to begin what 
NASA calls the "deorbit" procedure. It's 
time to bring this baby home. 

Just 55 hours ago. 5.3 million pounds of 
thrust from two solid fuel boosters, essen- 
tially 15-story firecrackers, sent the 
somewhat chubby Space Shuttle into or- 
bit. Now. on- board computers performing 
325.000 separate operations every second 
will help guide the craft safely and 
gracefully back to Its roost. 

Over the Indian Ocean, the OMS engines 
bum for two minutes to slow the craft 
down from its orbital speed— a speed 
equivalent to 25 times the speed of sound! 
The shuttle craft begins to drop and is 
turned nose up so that its tile coated belly 
will absorb the enormous heat of reentry. 
Those 34.000 silicon glass tiles are all that 
prevent the craft from being burned up. 
Thirty-five minutes later, the orblter 
enters the Earth's atmosphere over Mid- 
way Island. By now. the shuttle Is banking 
and flying wide traverses to control Its 
speed. The strain on its superstructure Is 
tremendous. Finally, the runway at Cape 
Canaveral Is dead ahead. At 190 miles per 
hour, the shuttle touches down and ends 
Its perilous Journey. 

Instant Software's SPACE SHUTTLE 
puts you in the Command Pilot's chair of 
one of America's first reusable space 
vehicles. You will bring her back from 
space. Simply stated, this will be the most 
fascinating and breathtaking experience 
you will have until the space shuttle be- 
comes a commuter run. 

SPACE SHUTTLE Is the ultimate air 
flight simulation. Model I. Level II. 16K: 
Model III. 16K. 
0332R (Tape) $14.98 



USER'S TIPS 

Never remove a floppy disk from Its pro- 
tective plastic casing. 



DRAQON0UE8T 
THE PRINCESS 
HAS BEEN KIDNAPPED 

And you. Sir Knight, have the task of 
returning her to her father, the King, be- 
fore nightfall, when SMAEGOR. the most 
foul, will certainly do her In. 

Explore the unfamiliar lands beside the 
River Delta as you search for clues to 
SMAEGOR'S hiding place. Get the tools 
you will need: weapons, food, and magical 
Items if you can find them. Prepare for en- 
counters with the creatures of the land for 
some of them may be in league with The 
Dragon. Seek answers in the Land of the 
Dead, but enter cautiously for III awaits 
you there. 

When, at last you are ready, confront the 
Mighty SMAEGOR in his lair, for Mlady 
awaits and is In much danger. CAN YOU 
DO IT? Can you vanquish SMAEGOR and 
beat the selling sun? Many surprises await 
you In this DRAGONQUEST— and one of 
them Is named DEATH. 

In a desperate race against the sun. you 
search for SMAEGOR. Monarch of Dragon- 
folk, who has kidnapped the princess of 
the Realm and holds her in a distant and 
unknown place. In a quest for Honor and 
glory, you must search the land, seeking 
out the tools needed for the ultimate con- 
frontation. On the River Delta, in the aban- 
doned Temple of Baathteskl. Goddess of 
the Blade, everywhere clues abound. But 
WHERE is the Princess? Now. as never 
before, the genius of CHARLES FOR- 
SYTHE shines In this machine language 
ADVENTURE DRAGONQUEST. Can YOU 
save M'lady from the iron clutches of 
SMAEGOR? Tape version: Model 1. Level 
II. 16K: Model III. 16K. Two individual disk 
versions available for Model I and 
Model III. 

B0O8R (Tape) $18.98 
8007RD (Disk, MODEL I) $21.98 
801OR3D (Disk. MODEL HI) $21.98 



THE ELECTRONIC BREADBOARD 

Computer Aided Design (CAD) is one of 
the newest applications of microcomputer 
technology. THE ELECTRONIC BREAD- 
BOARD permits the design and analysis of 
analog circuits. It can be used to evaluate 
voltages, currents. Impedance and the fre- 
quency response of any circuit. This pack- 
age is Ideal for audio component repair- 
men, ham radio technicians, hobbyists, 
electrical engineers, telecommunications 
engineers, audlophlles and students of 
electronics. Tests can be made on any 
analog circuit such as transmitting and 
receiving equipment, amplifiers and the 
like. The program will allow: adding or 
removing components: calculating imped- 
ance at a particular point In the circuit: ob- 
taining the voltage at a particular point (or 
all points): setting of the desired frequency 
or a sweep range of frequencies for analy- 
sis: and saving of circuit designs on 
cassette tape. 

Components In a simulated circuit can 
be removed or Inserted for fast, efficient 
design or analysis. The possible causes of 
circuit failure can easily be determined, 
reducing the amount of time spent on 
troubleshooting. In conjunction with a 
course In analog electronics, the program 
can be used as a training aid. Students can 
verify electrical theory by entering exam- 
ple circuits and determining frequency re- 
sponse. If you're an electronic doughboy, 
then you need THE ELECTRONIC BREAD- 
BOARD! Model I, Level 0. 16K: Model ID. 
16K. 
028TR (Tape) $49.98 



NEW PRODUCTS 
AVAILABLE SOON 
for the TRS-80* 



DOMES OP KILOARI 

The Ion Station at Kllgari is rich in 
history and as far away from the civilized 
galaxy as you can get. Your Survey craft 
has been disabled, her Ion engines are 
dead for lack of fuel. Only by retrieving 
an Ion rod for the mass con ve-rier can you 
hope to leave the Outrim and return to 
Federation space. But the automated 
Dlgitron Ion Station Is programmed to 
destroy all Intruders. Can you solve the 
puzzle presented by this classic Adven- 
ture? Or will you be doomed to the lonely 
wasteland of Kllgari forever*? 



TIMBQUE8T 

Sifting through the sands of time, you 
attempt to solve the mystery as It unfolds 
before you. From the distant past to the 
obscure future your Time machine 
tracks Adventure In Its truest form. High 
speed machine language with ail the 
features you have grown to enjoy. Easily 
one of the best and destined to become a 
classic. 



TRS-80 is a trademark of *?odo Shock, o 
division of Tondy Corp 
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Our Guarantee 

Defective software may be returned for exact replacement at no cost to you, or for full 
credit, within thirty days of the invoice date. You MUST enclose dated proof of purchase 
for any replacement to be made, so please keep your invoice. 

Should a disk or cassette become defective after the warranty period, Instant Software 
will still protect you. You may return the original defective cassette along with $4.00, or 
any disk with $5.00 for a replacement. Again, you must provide us with a copy of your 
invoice for anv return to be made. 



On the Cover: sculpture entitled "The 
Undersecretary in Charge of Protocol" by 
Don Simpson, courtesy of the Earthlight 
Gallery. Boston. 

Photo by Martin Paul 



Trademark notices for entire catalog 

l A trademark of Apple Computer. Inc. 

"A trademark of Tandy Corporation 

S A trademark of Commodore Business Machines. Inc. 
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'A trademark of Personal Microcomputers. Inc. 
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"... .It's becoming very clear now. . . 
Your microcomputing lile is going 1o be very 
exciting. . Money! I see much 
money for you. Perhaps it is the 
money you will gain when 
Instant Software's new 
business applications 
guide your financial 
endeavors. I see 
travel. . .you will 
journey to distant 
worlds in distant 
times. You will build 
kingdoms from des- 
erts and armies 
from slaves. Never 
will you be bored, 
adventurous one! Your 
programming burdens will 
lighten with new utilities— new 
tools. I see color! Many 
bright colors! I see new 
packaging lor all these trea- 
sures .. .everything new! 
And. . .yes, a tall, hand- 
some stranger who will 
guide you to these won- 
ders. It will be your In- 
stant Software dealer— 
a wise one indeed. All 
awaits you — all Is 
yours for the asking. 
Soon, very soon!" 



Get a glimpse of the future today— at your nearest 

Instant Software dealer. 



MMMM 

THE COMPUTER SHOP Gadsden 

ALASKA 

COMPUTER TALK. Anchorage 

JUNEAU ELECTRONICS. Jutau 

WAPATCO. Anchorage 

ARIZONA 

COMPUTER STORE. Phoanti 

MESA ELECTRONICS, Mesa 

MILLET'S ELECTRONICS. Un 

PERSONAL COMPUTER PLACE. Uisi 

SIMUTEX. Tucson 

SOFTWARE STATION. Tempe 

TOT BOX. 5 terra V.sta 

ARKANSAS 

MICRO COMPUTER SYSTEMS Hot Springs 

CALIFORNIA 

ADVANCE RADIO (R/S DEALER). Grass Valley 

ADVANCED COMPUTER PRODUCTS Santa An 

ALLTRONICS. San Jose 

AMCO ELECTRONIC SUPPLY. AIuSA 

ASAP COMPUTERS. Signal MiU 

BYTE INDUSTRIES. Hey*ard 

BYTE SHOP. MOMWl Vie* 

CAPITOL COMPUTER SYSTEUS Sacramento 

COAST ELECTRONICS Mono Bay 

COMPUSOUNO. Orange 

COMPUTER MART OF CALIFORNIA. INC 

D-amond Bar 

COMPUTER PLUS. Sonny.au 

COMPUTER STORE. San Leenflro 

COMPUTER WORLO. Westminster 

DEROSEAR APPLIANCE a REPAIR. Weaverv.llr 

DIMENSIONAL SOFTWARE. San Diego 

EXATRON. Sania Clara 

GAMEO RAMA Santa iijDJ'i 

GRAY MATTER. San Francisco 

HOBBY WORLD ELECTRONICS. NorthrOge 

HUNTINGTON COMPUTING. Corcoran 

MALIBU MICROCOMPUTING Malibu 

MICRO SPECIALTIES. Daily City 

MNiT INDUSTRIES. Lompoc 

OPAMPiTECHNICAL BOOKS. LOS Angeles 

OPPORTUNITIES FOR LEARNING. Cnetsaiorth 

PC COMPUTERS. El Cernto 

O 1 COMPUTERS. INC . Laamdale 

RAC PRODUCTS. San Jose 

RADIO SHACK. El Cajon 

RADIO SHACK. Palm Sp-ings 

RADIO SHACK. San Diego 

RAV SOUND IR/S DEALER) For una 

SALINAS HOBBY CENTER Salinas 

SHAVER RADIO. San Josa 

SILVER SPUR ELECTRONICS. Chino 

SOFTWARE PLUS. El Two 

STACEYS BOOKSTORE, San Francisco 

STRAWFLOWER ELECTRONICS (R/S DEALER) 

Half Moon Bay 

THE COMPUTER STORE. Sania Monica 

THE FEDERATEO GROUP Commerce 

THE SOFTWARE S'ORE. Huntington Beach 

WABASH APPLE. El TWO 

WARRIORS. WIZARDS A ROBO'S Garden Gro 

WENNER BUSINESS SYSTEMS. LM Alios 

COLORADO 

APPARAT. Oenver 

FISTEL S MICRO ELECTRONICS. Denver 

POOR RICHARD S CALCULATORS. Fon CotM 

SOFTWARE GOURMET. Denver 

cONNtcncuT 

AMERICAN BUSINESS COMPUTERS. Groton 

BYTE ME COMPUTER SHOP Ne. Lor-dO- 

COMPUTER LAB Na« London 

INSTRUCTIONAL SYSTEMS COMPUTERS. 

Manchester 

TECHNOLOGY SYSTEMS Belhe 

THE COMPUTER STORE Stamford 

DELAWARE 

MICRO PRODUCTS, Wilmington 

OMNIFAX, Wilmington 

DISTRICT OF COLUMBIA 

THE PROGRAM STORE. Washington. D C 

FLORIDA 

ADVENTURE INTERNATIONAL. Casselberry 

ALL SYSTEMS GO. Winter Garden 

AMF MICROCOMPUTER CENTER. Tampa 

COMPUTER CENTER. Wast Palm 

COMPUTER JUNCTION. Fon Lauderdale 

COMPUTER WORLDS Cieer*eter 

COMPUTERLAND. Jacksonville 

COMPUTERLAND. Safasola 

COMPUTERLAND. Tampa 

COMPUTEPJAND. West Palm Beach 

HEATMKIT ELECTRONIC CENTER Hialean 

hah HOBBY SALES. Safasola 

MICROCOMP LTO . Mann 

MICROCOMPUTER SYSTEMS INC . Tampa 

MINI CONCEPTS Holly Hill 

SAV A BYTE. Jacksonville 

SOUND IDEAS. Gainesville 

SOUTH EAST MICRO DATA. Oianoo 



GEORGIA 

ATLANTA COMPUTER MART. Atlanta 

BAILEY S COMPUTER SHOP. Augusta 

DELTA DATA CYNAMICS Tucker 

ENERGY LOGIC Columbus 

FLEMING DRUG CO . Wrens 

HAWAII 

HONOLULU ELECTRONICS. Honolulu 

MILLS ELECTRONICS. Laheina 

RAOIO SHACK ASSOC STORE, Honolulu 

IDAHO 

OENNIS STONE ENTERPRISES Fruilland 

ELECTRONIC SPECIALTIES. Bone 

RAL DATA SYSTEMS. Idaho Fans 

ILLINOIS 

ALPINE COMPUTER CENTER Rocktord 

BELL ELECTRONICS. Edmboro 

CHICAGO MAIN NEWSTANO. Evanston 

COMPREHENSIVE MICRO SYSTEMS. Chicago 

COMPUTER JUNCTION. ElmhurSI 

COMPUTER STORE. Rocklord 

COMPUTERLAND. Naes 

CREATIVE PROGRAMMING. Charleston 

GARCIA a ASSOCIATES. Chicago 

ILLINOIS CUSTOM COMPUTERS. Herr.sbu-g 

MAIN STREET COMPUTER CO . Decatur 

MIDWEST MICRO COMPUTERS. Lombard 

THE PILOT HOUSE. Gladstone 

WALLACE COMPUTERS. Peoria 

INDIANA 

ABC HOBBY. Evansville 

DIGITAL TECHNOLOGY, latayette 

FALL CREEEK ELECTRONICS. Pendleton 

GAME HUT. Bloomington 

GAME PRESERVE. Indianapolis 

PROFESSIONAL MICROCOMPUTER 

SOFTWARE Muncae 

SIMONTON LAKE DRUGS. Elkhart 

The BOARDROOM. Indianapolis 

THE HAM SHACK, f.ans.iiie 

IOWA 

LENWOOO SYSTEMS Center Point 

MEMORY BANK INC . Bettendort 

SERNETT LEISURE CENTER. Carroll 

KANSAS 

AMATEUR RADIO EQUIPMENT. Wichita 

CENTRAL KANSAS COMPUTERS. Herington 

COMMUNICATIONS CENTER. Lincoln 

GOSUB INTL Wich.ta 

HATCH COMPUTER CENTER. Alliance 

high TECHNOLOGY. Wichita 

KENTUCKY 

COMPUTER MAG>C. Louisville 

PERRY'S COMPUTER Bremen 

LOUISIANA 

ACME BOOK CO . Balon Rouge 

COMPUTER SHOPPE. Meteine 

MAINE 

FRYEBURG COMPUTER CENTER. Fryeburg 

MAINE MICRO SYSTEMS INC . AuOurn 

MiOMAlNE COMPUTER COMPANY. Auburn 

PORTSMOUTH COMPUTER CENTER 

Portsmouth 

MARYLAND 

COMM CENTER. Laurel 

PROGRAM STORE. Baltimore 

WILLS COMPUTER STORE. Mario* Heights 

MASSACHUSETTS 

COMPUTER CITY, cnanesloon 

HI Fl EXCHANGE. Northampton 

LAND OF ELECTRONICS. Lynn 

MARK GORDON COMPUTERS. Cambndge 

OMNITEK SYSTEMS. TewkSDury 

SOUND COMPANY. Springfield 

STAR COMPUTING. Framingham 

The Game shop. East Acton 

TuFTS RADIO ELECTRONICS Med'ord 

MICHIGAN 

ALL FOR LEARNING. W Sioomtield 

ALTERNATE SOURCE. Lansing 

A M ELECTRONICS. Ann Arbor 

COMIC KINGDOM. Delrort 

COMPUTER CENTER. Garden City 

COMPUTER CONNECTION. Farmington His 

COMPUTER MART. Clavrson 

COMPUTER MART. Flint 

COMPUTERLAND. Kentoood 

COMPUTERLAND. Southtield 

COMPUTRONIX. M.d and 

EIGHT BJT CORNER. Muskegon 

FERRIS RAOO. MM Part 

HOBBY HOUSE. Battle Creek 

LEARNING CENTER I ID . Ann Arbor 

MAIN SYSTEMS. INC . Fhnt 

mid-Michigan MEMORY. Otfnondale 

NEWMAN COMPUTER EXCHANGE Ann Arbor 

TRICOUNTY ELECTRONICS A SOUND 

CENTER. Fenton 

WEATHERWAX DRUGS. Brooklyn 

WIZARD S ARSENAL East Lansing 

»E OLDE TEACHERS SHOPPE. Ypsrlanli 



MINNESOTA 

CODE ROOM. Eden Prairie 

MINNESOTA SOFTWARE. White Bear Lake 

RURAL AMERICA ENTERPRISES. Marsha I 

Z'M COMPUTERS. Brooklyn Cenler 

MISSISSIPPI 

CCOM Jackson 

DYERS I NC.West Point 

SOFTWAREHOUSE Jackson 

MISSOURI 

CENTURY NEXT COMPUTERS. Columbia 

COMPUTER CENTER Joplm 

COMPu TRS. Florissant 

CRC COMPUTERS. Joplm 

OS. Cameron 

HOUSE OF COMPUTERS. Joplm 

SOFTWARE SHACK Barton 

MONTANA 

COMPUTER STORE. 8illmgs 

THE COMPUTER PLACE. Kalispeli 

NEBRASKA 

applETREE SOFTWARE. Battle Creek 

COMPUTERS WEST. Omaha 

GREAT RACE HOBBY PLACE. Lincoln 

LEZOTTE STJDiO Ogaliala 

NEVADA 

CENTURY 23. Las Vegas 

HURLEY ELECTRONICS Las Vegas 

NEW HAMPSHIRE 

BtTSNBYTES COMPUTER CENTER. Conco-d 

COMPUCRAFT. Keene 

COVE R CRAFT. Amherst 

PAUL'S TV. Fremont 

PORTSMOUTH COMPUTE R CENTER. 

Portsmouth 

RADIO SHACK ASSOC STORE. Keene 

STURDtVANT AND DUNN. Convray 

NEW JEPSEY 

ABC S TV SALES a SERVICE. Giassboro 

ADELMAN S STATIONERY CO . Union City 

BARGAIN BROTHERS. West Trenton 

CHANNEL I RADIO SHACK. Medtord 

COMPUTER FORUM. Redbank 

COMPUTER MADNESS. Englishloani 

COMPUTERWORLO OF WESTFIELO. Westr«Hd 

CROWLEY S Whttahousa Staton 

DAVE'S ELECTRONICS. INC . Pennsville 

ELECTRONIC WORLD. Mantua 

HOBSYMASTERS. Red Bank 

. s. Electronic world. Mantua 

LASHEN ELECTRONICS INC . Danville 

MIDAS DATA SYSTEMS INC . Marlton 

OMNIFAX. Cherry Hill 

RADIO SHACK ASSOC STORE MooreSIOarn 

RADIOS UNLIMITEO. Somerset 

SOF TWARE CITY River Edge 

NEW MEXICO 

AUTEL ELECTRONICS CO. Albuquerque 
JAW ENTERPRISES. Clovis 
MITCHELL MUSIC Carlsbad 
THOMAS E CARR JEWELER AlamogOrOO 
WARGAMESWEST Albuquerque 

NEW YORK 

ARISTO CRAFT DISTINCTIVE MINIATURES. 

Neva York 

ASD HOME COMPUTER CENTER 

Poughkeepsie 

BERLINER COMPUTER CENTER. 

Near Hyde Park 

C HABILO OF NEW CORP. Staten Island 

COMPUTER CORNER. White Plains 

COMPUTER RESOURCES. Wiinamsville 

COMPUTER SHOP. Kingston 

COMPUTERLAND. Carle Place 

COMPUTERLAND OF NYC. Ne* York 

DIGIBYTE SYSTEMS. Ne* York 

at) MICROCOMPUTER SERVICES. Cohoes 

FUTURE VISIONS COMPUTER STORE. Melve 

PMANTOS RESEARCH. Camit.us 

PROGRAMS UNLIMITEO. Jericho 

MR COMPUTER, Wappmgers Falls 

OMNIFAX. DeWitt 

SOF IRON SYSTEMS. Rensselaer 

WATERLOO HOBBIES. Mineola 

WORLD OF COMPUTERS. Port Chester 

NORTH CAROLINA 

RAYBURN MICROELECTRONICS Sylva 

SOUND MILL. HavelOCk 

OHIO 

ABACUS II Toledo 

ALTAlR SYSTEMS INC Dayton 

ASTRO VIDEO ELECTRONICS INC Lancaster 

CINCINNATI COMPUTER STORE. Cincinnati 

COMPUTER STORE. Toledo 

COMPUTERLAND. Columbus 

COMPUTERLAND. Maytield Heights 

COMPUTERLAND. North Olmsted 

COMPUTERLAND. Warren 

JOBAR ENTERPRISES. Middiefield 



MICROAGE. Columbus 

MICRO COMPUTER CENTER. Cenlerville 

MICRO ELECTRONICS INC . Columbus 

MICRO MINI COMPUTER WORLD Columbus 

TWENTY FIRST CENTURY SHOP. Cincinnati 

wanna Play. Cincinnati 

OKLAHOMA 

COMPUTER STORE. INC . Tulsa 

COMPUTER WORLD. Tulsa 

PROFIIE INC. Moore 

RADIO SHACK ASSOC STORE. Guymon 

SOUNDS. ETC . Watonga 

OREGON 

COMPUTER PATHWAYS. Salem 

L4R ELECTRONICS. Grant Pass 

PIONEER ELECTRONICS. Sandy 

TRSSO PROOUCTS LTO Portland 

PENNSYLVANIA 

ALL'EO HOBBIES. Philadelphia 

ARTCO ELECTRONICS. Kingston 

BELL ELECTRONICS. Geard 

COMPUTERLAND. Gibsonia 

COMPUTERLAND OF HARRtSBURG 

Mechanic sburg 

ERIE COMPUTER. Erie 

JNE COMMUNICATIONS. Altoona 

MAFEX ASSOCIATES. Johnsloarn 

OMNIFAX. Feastervriie 

OMNIFAX. Philadelphia 

PERSONAL COMPUTER CORP Paoii 

PITTSBURG COMPUTER STORE. Pittsbu-g 

STEVENS RADIO SHACK DEALER Phoeni>ville 

ROUTE 30 ELECTRONICS, Latrobe 

RUMPFLSriLSKIN TOY SHOP. Near Hope 

TELEVISION PARTS COMPANY INC 

Ne* Brighton 

PUERTO RICO 

MICRO COMPUTER STORE. Capar-a Terrace 

RHODE ISLAND 

COLONIAL ENTERPRISES. Foster 

SOUTH CAROLINA 

OMNI ELECTRONICS. Charleston 

TENNESSEE 

ACE MINI SYSTEMS. CtarkSville 

CHATTANOOGA COMPUTER CENTER 

Chattanooga 

COMPUTER WORLD. Nashville 

COMPUTERLAB. Memphis 

TEXAS 

COOEDATAINC Arlington 

COMPUSHOP. Benaire 

COMPUSHOPiFM 1960W. Houston 

COMPUSHOPiN FWY. Houston 

COMPUTER N THINGS. Austin 

COMPUTER PROGRAMMING ASSOC .Lubbock 

COMPUTER PORT Arlington 

COMPUTER SALES A SERVICE Fort Worth 

COMPUTER SOLUTIONS. San Antonio 

COMPUTERLAND OF SW HOUSTON Houston 

COMPUTERS BY O NEILL. Lake Jackson 

COMPUTERS TO GO. Auttm 

COMPUTEX. Webstar 

CORSAIR. Ft Worth 

gateway electronics Houston 

KA ELECTRONICS Dallas 

MAC S TV. F airfield 

MAHYMAC INDUSTRIES 1RTS 0EALER). 

Houston 

PAN AMERICAN ELECTRONICS (RS DEALER). 

Mission 

R L COLE'S ELECTRONICS. San Antonio 

ROY'S C8 1 ELECTRONICS Aransas Pass 

SO SOFTWARE San Antonio 

WAGHALTER BOOKS. iNC. Houston 

UTAH 

COMPUTERLAND Sail Lake City 

FOOTHILL MODELERS. Salt lake City 

VIRGINIA 

COMPUTER SOLUTIONS, leesburg 

COMPUTER WORKS. INC. Harrisonburg 

HOME COMPUTER CENTER INC . 

Virginia Beach 

LITTLE SOLDIER Ale»*ndria 

SYSTEMS MARKETING. Arlington 

WASHINGTON 

AMERICAN MERCANTILE COMPANY Sea:- e 

COMPUTERLAND. Beiievue 

COMPUTERLAND Federal Way 

COMPUTERLAND. Spokane 

EMPIRE ELECTRONICS. Sunn, side 

J 8 SALES. Snohomoisn 

LORDS. Port Angele s 

UNIVERSITY VILLAGE MUSIC. Seattle 

U S S ENTERPRISE. Kxkland 

WESTERN MICROCOMPUTER CENTER 

Bellingham 

WEST VIRGINIA 

COMPUTER CORNER Morganlo.n 

COMPUTER STORE. Huntington 



OHIO VALLEY ELECTRONIC SYSTEMS 

Wheeling 

SOUND A ELECTRONIC SPECIALTIES. 

Morgantoen 

WISCONSIN 

BYTE SHOP Milwaukee 

COMPUTERLAND. Madison 

COMPUTERLAND OF FOX RIVER VALLEY. 

OshkOSh 

COMPUTER WORLO. Green Bay 

MAGIC LANTERN COMPUTER. Madison 

OMEGA MICROS. Mil*aukee 

PETTED MICROSYSTEMS, Mil*aukee 

SAO TV SALES Monroe 

WYOMING 

COMPUTER CONCEPTS Cheyenne 

AUSTRALIA 

OE FOREST SOf TWARE Nune.edmg Vic 

CANADA 



Distributor 

MICRON DISTRIBUTING 

Toronto. Onl 



ALLIED COMPUTER CENTRE Tnunoer Bay 

Ontario 

ARKON ELECTRONICS. Toronto. Ontario 

AULL COMPUTER SYSTEMS. Victoria BC 

BITS A BYTES. Dartmouth. N S 

CENTRAL DISTRIBUTORS LTD. Lachine 

Quebec 

COMPUCORNER. Smithers. B C 

COMPUMART Ottawa. Ontario 

COMPUTER BARN Sarnia. Ontario 

COMPUTER CIRCUIT London. Ontar-o 

COMPUTER INNOVATIONS Otlaea. Ontario 

COMPUTER SHOP LTD Calgary. Alberta 

COMPUTER WORLO. Vancouver B C 

COMPUTERLAND OF BURLINGTON 

Burlington. Ontario 

CREATIVE COMPUTERS. Victoria. 8 C 

DATATEC COMPUTER SYSTEMS LTD 

Saskatoon. Sas* 

ELECTRONICS 5001 . W.lloaraale. Ontario 

GALACTICA COMPUTERS LTD Edmonton 

Aibena 

iRiSCO Du OUEBEC Ste Foy Quebec 

LYONS LOGIC LTO . London. Ontario 

MICROMATION Toronto Ontario 

MlCROSHACK Saskatoon Sask 

MICRO SHACK. Roc -i.i Sask 

MAW COMPUTERS M ss.ssauga. Ontaiio 

MP ', tuck VARIETY London Ontario 

OFFICE CENTRE. Kingston. Ontario 

SAULT OFFICE MACHINES Sauit St Mane. 

Ontario 

STATUS COMPUTER SYSTEMS. St Catherines. 

Ontario 

TOTAL COMPUTER SYSTEMS A,aa. Ontario 

WEST WORLD COMPUTERS Edmonton. 

Alberta 

ITALY 

BITS A BYTES. Milan 

NEWZEAIANO 

VISCOUNT ELECTRONICS PalmerslOn North 

NORWAY 

ArS SORLUND Vedavagen 

SWEDEN 

SEntec ab Jerieiia 

UNITED KINGDOM 

CALISTO COMPUTERS Birmingham 
THE SOFTWARE HOUSE London 
WEST GERMANY 
MICROSTUFF.Elankfurt 
NETHERLANDS 4 BELGIUM 



<POm bRABANT 



COMPUTER COllECTIEF. Amsterdam 

MICRO COMPUTING. Krommenay 

MICRO DYNAMICS. Eindhoven 

MUSICPRINTCHIP. Arkel 

OVEL GONNE. Drecruen 

RAL MICROCOMPUTERS The Hague 



YOUR NAME COULD 

BE HERE. CALL: 

1-800-258-5473 



Find out what you're missing. 

You heard the lady. Your microcomputing life is going to be very exciting. But don't 
leave it to chance — leave it to us! We have a brand new catalog full of packages and 
valuable coupons to help make it happen. It's free. . .if you fill out the coupon and mail 
it today. (Or make a photocopy and spare your magazine). 



NAME: 



ADDRESS: 
CITY: 



.STATE:. 



ZIP:. 



Instant SrttyvaiBlnc 



Peterborough, N.H. 03458 603-924-7296 A21 



Introduction 



Wayne Green's anticipation of the growing demand for microcomputer software 
brought about his establishment oflnstant Software back in early 1978. At that time. 
Instant Software consisted of a handful of employees, and produced six programs. 

Today, Instant Software employs fifty five people and produces over one hundred soft- 
ware packages for the TRS-80, Apple, Pet, TI, and Northstar. We have over 200 more in 
the development stages, including programs for the TRS-80 Color, Atari and Casio com- 
puters. The rapid rate of development of microcomputer software by today's top-notch 
programmers pushes the industry's standards higher. For this reason, several months 
ago, we began an extensive review of each Instant Software product. The results . . . tem- 
porarily, a smaller product line, but a top-notch one. 

Those packages which did not meet our standards are being rerun through our 
development pipeline. We are working closely with the authors to upgrade these 
packages, and make them available to you once again. 

Speaking of upgrading . . . you'll want to keep your eyes on our new products, packag- 
ing and our advertising campaigns in the upcoming mont hs. These all create an image in 
which we see . . . 

Instant Software in your future. 

Instant Software, Inc. 



PMC-80 COMPATIBILITY 



At this time, the following TRS-80 programs are known to be 
compatible with the PMC-80 computer: 



0017R 

0023R 

0058R 

0106R 

0117R 

0127R 

0133R 

0136R 

0137R 

0140R 

0141R 

0159R 

0168R 

0171R 

0218R 

0219R 

0223R 

0228R 

0230R 

0232R 

0240R 

0246R 

0250R 

5003R 



Air Flight Simulation 

Oil Tycoon 

Programmer's Converter 

Air Mail Pilot 

Night Flight 

Surveyor's Apprentice 

Renum/Compress 

Beginner's Russian 

Everyday Russian 

Business Analysis 

Battleground 

Jet Fighter Pilot 

Label 

Flight Path 

Dr. Chips 

House of 30 Gables 

Cosmic Patrol 

Dynamic Device Drivers 

TLDIS 

Disassembler 

Alien Attack Force 

Compression Utility Pack 

IRV 

Ultra-Mon 
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fNCYClOP€EMA 

FOR THE TRS-W 




TOOI.S A. 

1 MICMIIS 



Some 
of the 

Best 




Encyclopedia for the TRS-80* is the newest peripheral for 
your microcomputer. This ten-volume reference series con- 
tains programs and articles especially selected to extend the 
documentation that comes with the TRS-80. Each volume con- 
tains business, education, games, graphics, hardware, home 
applications, interface, tutorial and utility selections. Volumes 
of the Encyclopedia will be issued one-at-a-time approximate- 
ly six weeks apart. This means that each new volume will 
reflect the latest development in TRS-80 microcomputing. 
Encyclopedia for the TRS-80 is available in two editions. The 
deluxe COLLECTOR'S EDITION has a handsome green and 
black hard cover with a dust jacket. A soft cover edition is also 
available. 

To order single hard cover volumes of (he Encyclopedia please specify: 

Vol. 1 ENS 101. Vol. 2 ENS 102, Vol. 3 ENS 103. Vol. 4 EN8104. Vol. S 
ENS 1 OB each $19.00 

To order single soft cover volumes of the Encyclopedia please specify: 

Vol. 1 EN8O8I. Vol. 2 EN8082. Vol. 3 ENS083. Vol. 4 EN8084. Vol. 5 
ENSOSSeach SIO.95 

Special Introductory Offer— Order the entire set (the first ten volumes! of the 
Encyclopedia for the TRS-80 and receive the tenth volume FREEI 

10 Volume deluxe hard cover COLLECTOR'S EDITION— a S199.50 value 

BN8100 SI 64. OO 

10 Volume soft cover edition, a S 109.50 value. 

EN8O8O S83.00 



Encyclopedia Loader is the software companion to the Encyclopedia for the 
TRS-80. This cassette ends the aggravation of typing in the programs. Load each 
volume of the Encyclopedia instantly without typos. 

Vol. 1 EL8001. Vol. 2 EL8O02. Vol. 3 EL8O03. Vol. 4 EL8004, Vol. 5 EL8O0B 

cach$14.9B 

Understanding and Programming Microcomputers— A well-structured intro- 
ductory text on the hardware and software aspects of microcomputing. 

BK7382 $10.98 

How to Build a Microcomputer and Really Understand It— A technical manual 
and programming guide that takes the hobbyist step-by -step through the design, con- 
struction, testing and debugging of a complete microcomputer system (6502 chip). 

BK7S2S $9.95 

Some of the Beat from Kilobaud Microcomputing— A collection of articles focus- 
ing on programming techniques and hardcore hardware construction projects. 

BK7311 $10.98 

Toole and Techniques for Electronic* — Describes the safe and correct ways to use 
basic and specialized tools for electronic projects as well as specialized metal -working 
tools and the chemical aids which are used In repair shops. BK7348 $4.98 

40 Computer Games from Kilobaud Microcomputing— Games in nine different 
categories for large and small systems, including a section on calculator games. 

BK7381 $7.98 
•TRS-80 Is a trademark of Radio Shack division of Tandy Corp. 
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••Dealer Discounts 
Available. Inquire: 
Dealer Sales Dept. 



MAIL A COPY OP THIS PORM TO: WAYNE GREEN BOOKS 
ATT: MAIL ORDER • SO PINE ST • PETERBOROUGH NH • 03458 



EN8081 

. EN8082 
EN8083 

. EN8084 
EN8085 
BN8101 
EN8102 
EN8103 
EN8104 
ENS 108 
EN8O8O 
EN810O 
Dealer's 



$10.95 

$10.85 

$10.95 

$10.95 

$10.95 

$19.95 

$19.95 

$19.95 

$19.95 

$19.95 

S83.00 

$164.00 

Catalog** 



EL8001 $14.95 
BL8002 $14.95 
EL8003 $14.95 
BL8004 $14.95 
BL8005 $14.95 
BK7382 $10.95 
BK7325S 9.95 
BK7311 S10.95 
BK7348 $ 4.95 
BK7381 $ 7.95 



address 



city- 



state sip 

(Include $1.80 for postage & handling) 

enclosed $ 

bill: □ Mastercard DVlsa 



U American Express 



acct.V 



interbank f 
signature _ 



_exp. date. 



Please allow 4-6 weeks for delivery. 
NO C.O.D.'s 



CALL TOLL FREE 1-800-258-5473 
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Instant Software 

PETERBOROUGH. N.H. 03458 

Order Form 

TOLL FREE ORDER NUMBER: 1-800-258-5473 

Yes, I would like to see my local software dealer 
carry more INSTANT SOFTWARE: 

Store Name 

Address 



Name: _ 
Address: 
City: 



State_ 



Zip_ 



Method of payment: 

H check □ money order □ VISA □ AMEX D MC 

Card No. Expiration 

Signature Date 



City_ 



State, 



Zip- 



QUANTITY 


ORDER NO. 


PROGRAM NAME 


UNIT COST 


TOTAL COST 
































































































+ shipping 




2.50 








Total 





You may photocopy this order form if you wish to keep your catalog intact. 



M 



ATTENTION PROGRAMMERS 



How to Submit Programs 
to Instant Software 



The guiding idea behind Instant Software Is a simple one. It takes time, talent, training 
and experience to write good programs: It also takes time, money, training, experience 
and talent to establish an efficient markrting system. You have the first set of qualifica- 
tions: we have the second. We want to team up with you. 

Instant Software is set up to evaluate submitted programs, to publish the best ones in 
quantity, and to market these programs ihrough a network of computer stores and other 
retail outlets. 

You have our catalog In your hands. Look at the breadth of the programs available: 
games, simulations, utilities, educational and business programs. While games have 
always been good sellers and are likely to remain so. bright futures for microcomputer 
software lie in the fields ol business, educational and utility programs. Every business 
person wants to put his computer to work saving time and money. Good bookkeeping, 
accounting, inventory and billing programs arc sure sellers. As microcomputers start to 
appear in schools, the need for good CAI programs will grow. Finally, programmers will 
continue to need the tools to write, edit and debug programs. 

Thinking of programming for publication? If. in light of what is now being sold, your 
programs perform a unique function, work faster, are more convenient or easier to use. 
then we want to see them. 

The kind of software we're soliciting consists of programs that not only solve old prob- 
lems but also do jobs that couldn't be done before. We want software that Incorporates the 
latest developments in the art of programming. 

One piece of advice— write what you know. This advice applies especially to writers of 
computer software. If you're an accountant, you understand the problems faced by ac- 
countants. An accounting program authored by you has most likely addressed just those 
problems, and is probably a good one. The same goes for an educational program. A good 
teacher knows from training and experience precisely what students need in order to 
learn, and how to give it to them. 

Please note: Instant Software is supporting all popular microcomputer systems We 
want software for the TRS-80 Models 1. II. Ill and the Color Computer. Apple II and III. 



Atari 800. PET. TI 99/4. Cask) 2. and any other successful microcomputer system At 
present the Instant Software lab. one of the best equipped computer laboratories In the 
world, has over 15 dilfercnt computer systems running. What's more, we have the staff 
and the expertise to run and evaluate programs for all of these systems. We also seek con 
versions of successful programs from one system to another. 

For the full details on program submission, write for a Submission Package to: 
Submission Department 
Instant Software, Inc. 
Rt. 101 and Elm St. 
Peterborough, NH 03458 

In brief, the package will tell you that we need a complete description of what your pro- 
gram does, how it does it. how to use It and what benefits the user will get from l he pro- 
gram. When you are ready, this information, plus a disk or cassette copy of your program, 
should be sent to the above address. We will send you a card of acknowledgement upon 
receipt of your material. 

If we feel that your program has marketing potential, we'll send you a contract. Upon 
receipt of the signed contract, we'll send your program to up to five associate editors. We 
try to match the editor's background to the subject matter of the program. The associate 
editors will evaluate your program, tell us what they think of it. make suggestions for 
changes and suggest an estimated retail price. Our programmers will contact you about 
any changes. 

Once the program has been completed, we'll write the user documentation, using 
materials you provide plus the experience of our trained documentation staff. Next, we 
design the package and write the package and catalog advertising Then we print the 
documentation, make copies of the program on cassette or disk and release the package to 
our marketing department. 

Our marketing department will set the price for the package, arrange the advertising 
campaign and coordinate the distribution of the package through our markeiing 
representatives and Instant Software dealers. 
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Business/Applications 
for your TRS-80 



FIND IT QUICK 

Put an end to the misplaced Information 
syndrome! Here Is a reliable, fast, subject- 
oriented Information locator— FIND IT 
QUICK! This information Indexing and 
retrieval system is versatile and flex- 
ible— the Ideal tool for doctors, lawyers, 
engineers, businessmen, educators, any- 
one who needs to locate Information. 

Designed with a Joumal/niagazlne for- 
mat. FIQ is versatile enough to be used to 
store and retrieve any type of reference in- 
formation including client lists, vendor 
advertisements, report bibliographies and 
more— even poems and famous quota- 
tions. Subjects can be indexed or called ac- 
cording to author. Journal and date or by 
up to nine keywords that you determine. 
Keywords can be used singly or in com- 
bination during the search routines. 

FIQ can be used by anyone. It requires 
no special skill. Just the ability to type. Ar- 
ticle references to be stored can be pre- 
selected and then entered Into the system 
by a secretary or assistant. Even the con- 
tents of entire file cabinets can be Indexed 
and stored! 

FIND IT QUICK requires a minimum 
system consisting of TRS-80 Model I. Level 
II with 16K of RAM, an Expansion Inter- 
face and at least one disk drive. Up to 1080 
items can be stored on one data disk, in- 
stant Software's Tiny DOS operating sys- 
tem Is included on the program disk so 
that you can use the program without fuss 
or bother. 

Make your computer work like your own 
personal librarian with FIND IT QUICK 
Can you afford to wait another day? 
0258RD (Disk) $49.95 

THE WORD8LINQER 

At last . simplified letter writing! The 
Wordslinger Is an economical program de- 
signed for the Individual user or small 
business. The program has automatic for- 
matting for letterhead stationery and en- 
velope addressing. You can write and edit 
letters, reports, forms, even school work! 
Text Is stored on cassette tapes for fast. In- 
expensive retrieval. Once you've used the 
Wordslinger. you won't want to go back to 
your typewriter. 

One of the Wordsllnger's major advan- 
tages Is that you don't need disk drives or 
an Expansion Interface, the minimum sys- 
tem required Is the TRS-80 Model I. Level 
II with 16K of RAM and an appropriate 
printer (you may need an Expansion inter- 
face, if your printer can't operate with Just 
a printer Interface cable, such as Radio 
Shack's part *26- 14 11 or 26-1416). 
0I2SK (Tape) $29.95 

CLIMATE-COUP 

Come rain or come shine, you'll love be- 
ing "in the know" with Cllmate-Comp. our 
two-program weather package. 
WEATHER FORECASTER— Gives you a 
short-range forecast of upcoming weather 
In your local area. Just enter past and pre- 
sent barometric pressure to obtain a 
"preview" of your weather for the nexl 24 
hours. 

WEATHER PLOT-Provides you with ac- 
curate, average weather data for most of 
the major cities of the United States. This 
program Includes data files for the Con- 
tinental U.S. 

This Is a chance for all amateur meteo- 
rologists to generate useful forecasts and 
weather data. Model I. Level II. 16K. 
OSIORD (DUk) $24.95 



MAIL/FILE 

from Galactic Software Ltd. 
A Mailing List for the TRS-80 
Model I or Mtxlel II 

Instant Software always tries to provide 
you with the best software on the market. 
Although the Mall/File mailing list pro- 
gram is not published by us, ii Is so good 
that we want you to try it. 

We have two versions of this mailing list . 
Pkg. 5000RD is for the Model 1 with the 
5 inch disk drive and Pkg. 5001RD Is for 
the Model II with the 8-inch disk drive. The 
programs are essentially identical except 
for the storage media and their respective 
capacities. With the 5-inch drive, you can 
store up to 600 names per disk without 
DOS. or 300 names per disk with DOS. 
With the 8-Inch drive, you can store up to 
2500 names per disk, with or without 
DOS. (If your list is larger than the single 
disk maximum, it can be distributed over 
several disks.) 

The program maintains separate alpha- 
betical and ZIP code files under constant 
sort. When you add a name to your llsl It 
will be Inserted Into Its correct position In 
the files. You will never have to sort your 
list: it will always be ready to print labels. 

The program will record your data in 
nine fields: two for NAME, and one each lor 
ADDRESS. CITY. STATE. ZIP CODE. 
PHONE NUMBER. PHONE EXTENSION, 
and a five character CODE field When you 
print labels, you have a choice of three dif- 
ferent label formats: a three-line label, a 
four-line label or a user-defined label In 
the three-line and user-defined label for- 
mats, you may Include a message line on 
your label. 

The best feature of this program is the 
son process that lets you determine which 
labels will be printed. You may specify 
cither alphabetical or ZIP code order for ail 
or any part of your list. For example, you 
can prinl labels for everyone on your llsl 
whose name begins with the letter A. or for 
all of those people who have the same ZIP 
code. You can even print labels for only 
those people named Jones, who are living 
In a given city or state. (Note: The Model II 
version can search for both first and l.isi 
names, e.g.. John Jones.) Furthermore, 
you can choose to print labels by using any 
single field (i.e.. specific cities, states, 
phone numbers, etc I. You may assign spe- 
cific codes to any name In the CODE field. 
For example. ACT could stand for active 
accounts, and INACT for inactive ac- 
counts. II you wanted to send a letter to all 
of your inactive accounts, you would spec- 
ify the CODE INACT. and labels would be 
printed only for your Inactive accounts 
When you print labels, you may specify up 
to nine different CODES at one time. II 
your data matches any one of the CODES 
a label will be printed. 

Files created with the Model I version of 
this program can be transferred to the 
Model II version, when you upgrade your 
hardware. 

Package 5000RD requires the following 
minimum svsiem: 

1. A TRS-80 Model 1. Level II With 16K 
RAM 

2. An Expansion Interface with 16K 
RAM (or more). 

3. One (or more) mini-disk drives 

4 A compatible printer 180 or 132 

columns). 

5. TRSDOS Version 2.3. 
SOOORD Model I (Disk) $99.00 
5001RD Model B (DUk) S199.0O 



BUSINESS ANALYSIS 

(Formerly Oraele-80) 

Business Analysis will provide you with 
analytical and forecasting capabilities pre- 
viously available only In large computer 
and time-sharing systems. It Is a flexible, 
professional time series package that can 
be used In sales analysis and forecasting, 
product planning, business planning, etc. 
The professional forecaster will recognize 
BUSINESS ANALYSIS as a tool which in 
corporates all the power of the X- 1 1 model 
and extends It. Investors can analyze 
stocks, market trends and growth rates 
Financial managers and economists can 
analyze the general economic climate and 
investigate business cycles. Even families 
can find this program useful In analyzing 
spending or energy consumption trends, 
for It Is Ideal for anyone who needs to 
analyze and forecast monthly, quarterly or 
annua] data. 

Even though this package uses ad- 
vanced statistical methods, you don't have 
to understand higher math to use it. De- 
signed to be used and understood by the 
typical business person. Its powerful ana- 
lytical capabilities will satisfy even the pro- 
fessional forecaster. All Inputs and outputs 
are written In plain English and the docu- 
mentation carefully explains all functions. 

Adding, deleting and modifying data is 
accomplished with a very flexible edit- 
ing routine. Automatic scaling of num- 
bers, ability to choose from several 
output formats, a calendar format that 
identifies all your data by month/quar- 
ter/year, and the ability to add and sub- 
tract values while inputting from the key- 
board provide added user flexibility. You 
can use several methods— moving aver- 
age, rate of change, seasonal indices or 
cyclical Indices— to analyze your data. The 
unique graphing capability lets you 
visualize your historic data or any of the 
modified data aeries you calculate, and 
direct any chart or graph to your printer. 

Business Analysis will forecast future 
data values using trend, moving averages 
or seasonal methods. You may choose 
either constant unit-trend or a constant 
percentagc-growth-lrend forecast for even 
more flexibility. 

This is one of the most powerful and 
useful business tools you will ever use. It 
puts the future In your hands. 

The package requires the following min 
imum system: 

1. A TRS-80 Level II with 16K RAM. 

2. An Expansion Interface with 16K 
RAM. 

3. One or more disk drives. 

4. Any compatible Disk Operating 
System. 

5. An optional line printer. 

Note: Tape version only Is Model 111 com- 
patible. 

014OR (Tape) $75.00 
0152RD (Disk) $99.95 

LABEL 

Are you tired oi irylng lo remember 
which line numbers of your program cor- 



respond to which routines In It? 

Well. Instant Software has solved your 
problem! With the LABEL program In 
place, you can forget about such trivial 
things and rely on the names you have 
given the routines. You can use LABEL to 
keep track of these things for you and get 
down to serious programming. 

LABEL allows you to use labels in place 
of line numbers In GOTOs. GOSUBs. 
IF THENs. THEN ELSEs. RE- 
SUMES. ON ERRORs. ON X GOTOs. and 
ON X GOSUBs. 

After you finish with your program, you 
can have it converted Into a normal pro- 
gram (with line numbers in place of the 
labels In GOTOs. etc.) and execute it In 
computers without the LABEL program. 
With this conversion you have three 
options: 

1 . The labels are left at the beginning of 
the routines, but changed to line numbers 
in the program statements. 

2. The labels at the beginning of the 
routines are changed to REM statements, 
and changed to line numbers In program 
statements. 

3. The labels at the beginning of routines 
are deleted, and changed to line numbers 
when In program statements. 

While you are using LABEL to write 
your program, you can have It list all the 
lines which have label Identifiers (to either 
the video of the line-printer), you can 
search the program for the line number of 
a particular label, or you can use it to 
delete all the lines that begin with a REM. 

LABEL is compatible with TRSDOS 2. 1 . 
2 2. 2.3. and with NEWDOS and Percom 
MicroDOS. Model 1. Level II. 16. 32 or48K. 
0188R (Tape) $24.95 

ONE-D MAILING LIST 

Here is a mailing list system that can be 
run on only one disk drive! You can have 
up to 17 fields of selection for name/ad- 
dress retrieval. 

Disk versatility allows you to add. delete, 
or change the numerous details stored in 
the system. 

Features of the One-D Mailing List in- 
clude: 

•Automatic name sort (with zip code op- 
tion) 

•Rapid access to any name on file 
• Easy error correction and recovery 
•Prints selective name listings. 
•Revise or update listings at any time. 
*l.'p to 2500 names on-line (with 4 drives). 
•Prints a list of all names on file 
•I'nnls mailing labels. 

This package requires the following 
minimum system: 

1. A TKS^O Model I. Level II with 16K 
RAM. 

2. An Expansion Interlace with lo 32K 

memory. 

3. A single disk drive (with automatic 
upgrade for up to three additional disk 
drives). 

4. Any compatible Disk Operating 
System. 

0123RD (Disk) $24.95 



USER'S TIPS 

When writing BASIC programs, place the 
rnosf often used routines at the front of the 
program. This will enable the program to run 
faster. 
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Utilities 

for your TRS-80 



DYNAMIC DEVICE DRIVERS 

Ait you tired of working around all of 
the little- "obstacles'" that are built into 
your TRS-80? Ever wish that there was 
some way to "repair" those imperfec- 
tions? 

Well, here it is! The DYNAMIC DEVICE 
DRIVERS package has all of these 
features: 

PROGRAMMABLE KEY DBBOUNCE- 
Your key board can be "tuned" to your typ- 
ing style. 

PROGRAMMABLE REPEATING KEY 
FUNCTION— Every' key has a repeat func- 
tion. 

LOWERCASE MODIFICATION SUP- 
PORT— You have choice of standard or 
shlft-for-lowercasc letters. (A lowercase 
hardware modification must be Installed.) 
BETTER THAN NOTHING GRAPHICS— 
Graphics characters will be converted to 
the closest ASCII character. 
PRINTER/SCREEN AUTO SWITCH- 
ING— If your printer is accidentally turned 
off. your program won't bomb. 
PROGRAMMABLE PRINTER FORMS 
CONTROL— You control the format for 
printer output. 

PROGRAMMABLE KEYBOARD LOCK— 
Only you will know the secret code to 
unlock your keyboard. 

With the Dynamic Device Drivers pack- 
age, you can look forward to working 
WITH your TRS-80. instead of against It! 
Model I. Level 11. 16K. 
0228R (Tape) $19.96 
0199RD (Disk] $24.96 



DISK EDITOR 

Disk Editor is a powerful machine-lan- 
guage iiillily program that will allow you 
total access to ANY byte of information in 
ANY set tor of ANY track of your disks. It is 
a last, simple, and efficient method of 
modifying files— whether BASK' pro- 
grams. SYSTEM programs, or jusl data. 
All commands arc readily accessible, with 
no need lo refer to a command lable. 

With Disk Editor you can examine, alter, 
add. and delete information with case. In- 
formation can be retrieved from the disk 
by supplying irack and sector infonnaiion. 
or by giving the nicspec. You can even 
search the disk for a specific string of 
characters lup lo H characters long). 

If you need hardcopv. use the LINE- 
PRINT c-ommand to send a copy ol the 
video display lo your llneprintcr. 

You can transfer command from Disk 
Editor lo Radio Shack's DEBUG and back, 
allowing dynamic debugging of disk I/O 
procedures. 

Disk Editor is compatible with TRS-DOS 
2. 1 . 2.2. and 2.3. as well as with Apparat s 
NEWDOS It is even capable of reading 
disks made by Penom s Micro-DOS 

There are two versions of Disk Editor: 
one Is for a 35-track IXXS. and the other is 
for a 40-track DOS Both are included in 
this package. 

This package requires the following 
minimum system: 

1 . A TRS-80 Model I. Level II. 16K RAM. 

2. An Expansion Interface. 

3. A single Disk Drive. 

4. Any compatible Disk Operating 
System 

lO • Instant Software 



iDisk Editor is not compatible with 
VTOS 3.0). 
OlSORD (Disk) $39.93 



MASTER DIRECTORY 

Wasn't it just yesterday you threw the 
cat into Ihc washing machine tx-causc you 
were Irustraled at not being able to find 
that Adventure that you saved on disk last 
week? Or. was il just yesterday that you 
lorcc-lcd that leftover liot tamale sauce In 
your mothcrinlaw becauv vou had 
searched in vain lor your backup copy ol 
the Electric Pencil? And you say your 
three-year-old built a house ol cards out ol 
your carefully I lied business data disks 
and now you don't know which is which? 
Well, chin up. Buckv. 'cause MASTER 
DIRECTORY Is here!!' 

The MASTEK DIRECTORY is a disk file 
storage program that reads the files on all 
your disks, stores the file names and ex- 
tensions, and even records the Iree space 
on each disk. All you have to do Is number 
the disks in your library and (he MASTER 
DIRECTORY will keep' track ol their con- 
tents. You can read the names, displayed 
alphabetically, search the D1RECTOHY' for 
llle names and extensions, delete disks 
and search for free space. You can store 
5000 files or 320 disks, whichever comes 
first. 

Your disk storage problems arc over 
now that the MASTER DIRECTORY is 
here. Model I. Level II. 16K RAM. Expan- 
sion Interface plus 1 disk drive 
SO05RD (Disk) $29.96 



DISK SCOPE 

Need to check out a disk? Perhaps you 
want to sec how t he files are stored, or you 
forgot your password. No problem! Now 
you've got Disk Scope! 

If you know the name of the file, the 
Fllekx- program will show you what tracks 
and sectors on the disk contain that file, as 
well as how much memory tin- tile takes 
when loaded into RAM. This works for 
both program and daia files. Flleloc then 
allows you to print the information, restart 
the program or cxli to BASK". The infor- 
mation obtained allows you lo use the 
("DISK program effectively. 

(.DISK is a powerful little BASIC utility 
and test program. It will allow you to view 
any track and sector on your disks in 
ASCII. Hex and screen POKEs It totally 
disregards protection codes. II can also be 
used to randomly check all 350 sectors ol 
your disk for read errors. 

You don'l know Ihc whole file name if 
you haven't gol the password, so the 
PASSWORD program has been included 
in the Disk Scope package. This machine 
language utility not only gives you a 
password for files, but for the whole disks 
as well Whether you're a novice or a pro. If 
you use a disk system, you need Disk 
Scope. 

This package requires the following 
minimum system: 

1 A TRS-80 Model 1. I.evel II. I6K RAM. 

2. An Expansion Interface. 

3. A single disk drive. 

4. Any compatible Disk Operating 
Svstem. 

0139RD (Disk) $19.95 



TLDIS 8c DLDIS 

You've bought a super machine-code 
program, but now wonder how it works 
'Maybe you even used a quick PEEK rou- 
tine to glance through il when it was In 
memory. If so. you definitely noticed the 
complete lack of comments In the code, 
making it almost impossible for you to de- 
cipher and understand It. 

Well. Instant Software's Ubeling Disas 
semblers are the answer to your problem. 

TLDIS (Tape-based Labeling DISasscm 
bier) and DLDIS (Disk-based Labeling Dis- 
assembler) make three passes to assign 
labels (where appropriate) to the routines 
In a machine-language program. Their 
output Is almost Identical to that of a hand- 
assembled source code. 

You can send the disassembly to a line- 
printer (Radio Shack parallel port) for 
either TLDIS or DLDIS. (The difference be 
tween these utilities is the storage mode of 
the disassembly.) 

TLDIS can send the disassembly to cas- 
sette tape. DLDIS can send it to disk: both 
send it to the video monitor. The stored 
disassembly from TLDIS may be reas 
sembled with Radio Shack's ED- 
TASM™— the disassembly from DLDIS. 
with Apparat s extension of EDTASM™. 
Because of the use of labels. It is a simple 
matter to change any object code program 
by disassembling it and then making 
changes to the resultant source code, with- 
out losing track of jump/load addresses. 
Labels start with "AAOO" and increment 
up. In even numbered steps (AA02. AA04. 
etc.). The odd numbers (AA01 . AA03. etc.) 
are left for you to use for the source code 
during reassembly. 

The printing of the disassembly may be 
temporarily halted by using ((SHIFT)) & 
(Just as in BASIC) or it may be ended by 
pressing the ((BREAK)) key. It also has a 
comments column to display ASCII char- 
acters used in a LD or CP opcode. 

TLDIS and DLDIS may be relocated in 
memory to avoid conflk't with the pro- 
gram you disassemble. 

The next time you need to "climb 
inside" a machine-code program, take 
DLDIS or TLDIS with you. We promise 
that it will be an easier journey. Model I. 
Level II. 16K: Model HI. 16K. 
023OR (TLDIS-Tape) $14.98 
023 1RD (DLDIS-Disk) $19.96 

RENUM/COMPRESS 

Add a new command to vour TRS-80! 
RENUM/COMPRESS fits in" the top 767 
bytes of memory and you call it like any 
BASIC command. 

You forgot an 1NKEYS routine and 
there's no space for a new line number? 
The command allows you lo renumber 
your BASIC program. You can set the new 
starting line number and the increment or 
(like any good command) it will default 
automatically to standard values. 

You think memory is going to be tight"' 
This command allows you to compress the 
program instantly by removing REM 
statements and any spaces ovitside ol 
quotes! 

If you"re a BASIC programmer, this is 
the one utility you should have loaded and 
ready to go! Add the command: RENUM/ 
COMPRESS' Note: Not disk compatible 

Model I, Level D. 16K. 

0133R (Tape) $14.96 



IRV 

1RV. one of the most powerful utility pro- 
grams available, turns vour keyboard into 
a SUPERKEYBOARD. 

Now vou can have single key program- 
ming. IRV comes complete with its own 
keyboard definitions, or up to 255 charac- 
ters can 1m- assigned lo every key. includ- 
ing (ENTER) and (BREAK). You can enter 
oftcn-nsed BASIC words, variable names 
or even entire lines. Even functions, such 
as RUN. LIST, or EDIT can be entered with 
a single keystroke. 

The relocate feature of IRV is unique, in 
that it allows single line relocation and 
renumbering. You can merge lines using 
the EDIT function and a single keystroke. 

As a video editor. IRV is so powertul. 
you'll wonder how you got along without 
It. Full cursor control, blinking cursor, 
block movement and special erase tunc- 
tions are just the Ix'ginning. Frequently 
used video graphics blocks can be saved 
and used again and again. Even IRV's 
minor virtues are impressive. You can 
have auto repeat with any key. Including 
programmed functions You won't have to 
pull plugs or fiddle with a control box to re- 
wind or last-torward a tape. The cassette 
recorder can be com rolled from the key- 
board. 

If you are a creative programmer (or 
wish lo be), you need the power and conve- 
nience ol IRV! Tape version. Model 1. Level 
II. 16K. Disk version. Model 1. Level II. 16K. 
Expansion Interface plus two disk drives. 
025OR (Tape) $24.96 
035ORD (Disk) $29.95 

COMPRESSION UTILITY PACK 

Do you want to add sound routines to a 
Space Trek program that already uses 
16K? Or maybe you need an extra column 
in that financial rcpoil program, but when 
you run il. you get OM errors? 

With a wave of your hand, and a little 
help from either or the COMPRESSION 
programs in this package, your problems 
are over. 

COMPRESS-80-Fits in 265 bytes, 
deletes spaces, and offers the choice of 
leaving REMark line numbers in the pro- 
gram, or deleting them altogether. 
SUPERCOMPRESS-Uses 767 bytes and 
can do everything COMPRESS-80 can do 
PLUS. It packs the program Into the 
smallest possible number of multiple 
statement lines. 

With the Compression Utility Pack and 
your own programming skill, you can add 
all those little extras lo your BASIC pro- 
grams Model I. Ix-vel II. 16K. 
0246R (Tape) $19.95 

THE DISASSEMBLER 

This is a single-pass, hex-notation disas- 
sembler that will send Its output either to 
tape or to a llneprintcr (Radio Shack paral- 
lel port). The tape output Is directly com- 
patible with Tandy's EDTASM™. Thus, 
you can take an object code tape, disas- 
semble and output it to tape, then use ED- 
TASM™ to add. delete, change and even 
re-assemble your new version. 

In addition, it shows the displacement 
and absolute address of any relativcjumps 
made by the disassembled program. It also 
displays any ASCII characters used In an 
LD or CP opcode. 

Since the Disassembler works only on 
in-memory programs, it has been made re- 
locatable so that you may move it around 
in memory to avoid conflict with the pro- 
gram you wish to disassemble. As an add- 
ed option, you may also Jump to memory 
locations and transfer control between 
Disassembler and other utility programs 
In your computer. 

The Disassembler— use It to examine 
and analyze any resident machine-code 
program! Model I. Level II. 16K: Model HI. 
16K. 
0232R (Tape) $9.95 



PROGRAMMER'S PRIMER 

Sometimes thousands of words can't 
give a clear picture of complicated theories 
and concepts. There are times when a 
chart or picture is worth those kilo-words, 
and more! The novice computer program- 
mer Is offered this breath of fresh air in an 
otherwise stuffy situation— the PRO- 
GRAMMER'S PRIMER. 

This program functions as a Computer 
Aided Instruction package to Introduce 
the novice programmer to several Impor- 
tant computer concepts. It graphically ex- 
plains the relationship of decimals to hex- 
adeclmals in the Decimal: Hexadecimal 
Conversion routines. Data storage Is ex- 
plained with the Subscription of a Variable 
and Three Dimensional Array routines. 
The logic of program flow Is shown in the 
For-Ncxt Loops flow chart demonstration. 
Finally, the Bubble Sort sorting technique 
is shown, in a fascinating display of what a 
computer does best. 

Don't be a "scratch your head in 
wonder" boy any longer. Let the PRO- 
CRAMMER'S PRIMER package from In- 
stant Software help you on your way down 
the primrose path of programming! Model 
I. Level II. 16K: Model [II. 16K. 
024BR (Tape) $8.98 



PRtXSRAMMER'S CONVERTER 

This package contains three programs 
thai can aid you in converting to other 
number-base systems. 
BASE CALCULATOR— Turn your TRS-HO 
into a calculator. Convert numbers to anv 
base from 2 through 16 and perform calcu- 
lations in that base. Memory, sign change, 
one's and two's complement arc all avail- 
able. It will even handle fractions. 
HEXADECIMAL/DECIMAL CONVER- 
SION TRA1N1NG-A dual purpose pro 
gram. First. Its a handy convener that 
changes decimal numbers to hexadecimal 
notation (and vice versa). Second, it's a 
teaching/testing program that gives you 
practice in making those conversions 
yourself. 

NUMBER BASE CONVERSIONS— Con- 
verts any decimal, binary, octal, or hexa- 
decimal number (up to SFFFFl. to Us 
equivalent value in the other three bases 
and displays all lour values simultaneously 
You'll have a command of octal and hex 
notation— Instant lv! Model I. Lewd II. 1SK: 
Model III. 16K. 
0058R (Tape) $9.95 



ULTRA-MON 

ULTRA-MON Is a unique and powerlul 
machine-language monitor. It Is ROM in- 
dependent and will lunctkm in Level II or 
IX)S BASIC. With ULTRA-MON. you will 
be able to write, modify, study and debug 
machine-language programs. Plus, you'll 
be able to avoid the frustration and 
"bomb-outs" usually associated with 
machine-language programming. UL- 
TRA-MON displays, disassembles, traces 
(hardcopy trace disassembly, too!), 
modifies, relocates memory', prints and 
even relocates itscll with simple com 
ma nets. Using interpretive execution. 
ULTRA-MON allows you to put break- 
points In ROM. This powerful monitor can 
even fetch, decode, disassemble and 
analyze each Instruction Individually so 
that your program cannot bomb out. 

ULTRA-MON Is designed for the begin 
ning machine-language programmer as 
well as the professional. The documenta- 
tion contains a Simple Demonstration sec- 
tion geared to the novk-e. Consequently, 
the program is a learning device as well as 
an extremely useful programming tool 

II you are serious about programming, 
you need to add this powerlul utility to 
vour library today Model I. Level II. 16K 
50O3R (Tape) $24.95 



Education 
for your TRS-80 



TEACHER'S AIDE 

Now you can have the benefits of Com- 
puter Assisted Instruction (CAD In your 
own home. The Teacher's Aide program 
will let you create a teaching system for 
any conceivable subject. The program 
allows you to create a question and answer 
lesson (you can input up to 8000 charac- 
ters per lesson). You can then save this 
lesson on the disk and create an entire se- 
quence of lessons. 

Your lessons can be tailor-made for you 
or your students. The options available 
are: ( 11 Review the material prior to taking 
the lesson. (2) provide hints to help answer 
questions, and (3) offer a graphics display 
as a reward for correctly answering all the 
questions. The Teacher's Aide program 
will even allow for spelling errors! 

Teacher's Aide is perfect for parents, 
teachers, and students who need the 
unlimited patience and undivided atten- 
tion that only a computer can provide. 
Readln'. Rltln'. and Rithmetic will never 
be the same— now that you have the 
Teacher's Aide package from Instant Soft- 
ware. Model I. Level II. I6K. Expansion In- 
terface * one disk drive. Recommended 
for teachers and parents. 
02 14RD (Disk) $39.95 



RECENTLY REVISED— 
NOW BETTER 
THAN EVERIII 



TYPING TEACHER 

A complete seven-part package that 
guides you from familiarization of the 
keyboard through typing words and 
phrases to mastery of touch-typing. Your 
video monitor becomes a bottomless page 
for typing practice, and your own private 
TYPING TEACHER, ready to teach when 
you'n? ready to learn. Model I. Level II. 
16K: Model III. 16K. 
0099R (Tape) $ 12.95 



GEOGRAPHY EXPLORER: USA 

The Geography Explorer: USA package 
is the most fascinating (and least painful) 
way of learning social studies that we've 
seen yet. 

The program displays computer-gener- 
ated maps of the United States. Its seven 
regions, and Its Individual states. The stu- 
dent then answers questions about the 
states of a given region. These questions 
may be In Multiple Choice. Recognition or 
Fill-in format. 

You can learn each state's name, capital, 
largest city, nickname, population, popu- 
lation rank, population density and per- 
centage In urban areas, the state's flower, 
bird, tree, song and motto! Furthermore. 
Geography Explorer hasa unique TEACH- 
ER mode which allows the teacher or par- 
ent to choose multiple options of how the 
material Is to be presented. This permits 
directed learning for the student. 

The package Is also Just plain fun! When 
the student answers the questions correct- 
ly, there are a variety of graphic rewards 
that flash on the screen to provide Im- 
mediate, positive reinforcement. 

As a bonus, this educational package 
can use a compatible Light Pen! The Light 
Pen can be used to respond to the MENU or 
to answer multiple-choice questions: 
simply point to the flashing square of your 
choice. (If you do not have a Light Pen. or 
you prefer not to use It. all responses can 
be entered from the keyboard.) 

The union of sophisticated software with 
the speed and novelty of the Light Pen rep- 
resents a milestone in Computer Assisted 
Instruction. As advanced as this package 
Is. it can be readily used by grade-school 
students. Truly. It is educational software 
for any age. 

We think you'll be equally Impressed 
once you've explored these United States 
with the Geography Explorer. Model 1. 
Level II. 16K. Expansion Interface ♦ one 
disk drive. Light pen optional. Recom- 
mended age level six to adult 
0071RD(DUk) $49.95 



ULTRA-MON AND MODEL m 

Ultra-Mon is compatible with the Model III computer with this short lineprint patch. 
Enter the listed code al the designated address. The program must be located at its 
original loading address. 6E00. 

PUSH HL 

PUSH AF 

IN A, (0F8H) 

BIT 5.A 

JR Z. 7BCAH 

BIT 7.A 

JR NZ. 7BC0H 

POPAF 

OUT (0F8HI.A 

POP HL 

RET 

NOP 

NOP 

To enter the program from Ultra-Mon's register display mode, type the following se- 
quence (s denotes space bar): MM7BBEsK5sFSsDBsF8sCBsoFs28s04sCBs7F 
s2OsF6sFlsD3sF8sElsC9s0OsO0 (enter). 

Your printer will now operate normally. Please note that this patch docs not check 
to sec if there is paper in the printer. 

In addition, ihe documentation describes 6CC as the way to go to basic. Model 111 
basic is more effectively entered from location 1 A19. Where the documentation sug 
gests the command E6CC.418E (enter), you should type E1A19.418E. 



7BBE 


E5 


7BBF 


F5 


7BC0 


DB FB 


7BC2 


CB 6F 


7BC4 


28 04 


7BC6 


CB7F 


7BC8 


20F6 


7BCA 


PI 


7BCB 


D3 F8 


7 BCD 


El 


7BCE 


CO 


7BCF 


00 


7BD0 


(X) 



:SAVE HL 

:SAVE AF 

.GET PRINTER STATUS 

PRINTER SELECTED' 

.SKIP IF NOT 

tPRINTER BUSY? 

:LOOP IF IT IS 

:GET AF 

:3END A TO PRINTER 

:RESTORE HL 

:RETURN 



SURVEYOR'S APPRENTICE 

This program makes applied math fun! 
Actually, we use the concept ol area every- 
day. You buy land by the acre, tent office 
space by the foot, and buy advertising 
space by the column-inch The Surveyor's 
Apprentice can teach you the formula 
used to find the area of any plane figure. 

Programs cover rectangles, circles, 
triangles, parallelograms (including both 
rhomboids and rhombuses) trapezoids, 
and polygons. This three-part package 
displays on-screen diagrams of all the 
figures, gives the formula lor the area of 
each figure, and even gives you examples 
of computations. You can even request a 
quiz to see how well you're doing. 

Here's an excellent refresher course for 
people who use calculations in their work. 
Why not broaden your area of expertise 
with the Surveyor's Apprentice! Model 1. 
Level II. 16K: Model III. 16K. Recommend 
ed age level Jr. High to adult. 
0127R (Tape) $9.95 

BEGINNER'S RUSSIAN 

In order to understand a foreign culture, 
you must know its language. In today's in- 
ternational politics and commerce, one of 
the most valuable languages to know is 
Russian. The Beginner's Russian package 
can put you well on the road to learning 
this vital language. 

The three programs in this package will 
give you on-screen displays of Hie Cyrillic 
letters, detailed instructions on their prop- 
er pronunciation, and exercises that will 
have you recognizing and speaking simple 
Russian words. 

This package is ideal for students, busi- 
nessmen, scientists — perfect ior anyone 
who is interested in learning the Russian 
language Model I. Level II. 16K. Model III. 
16K. Recommended age level 10 to adult. 
0136R (Tape) $9.95 

EVERYDAY RUSSIAN 

This package is the second in Instant 
Software's Russian language scries. Ev- 
eryday Russian will acquaint you with the 
words for various foods, places to cat. 
signs, and the names of stores -exactly 
what a traveller needs to know. You'll also 
learn Ihe order of Ihe Cyrillic alphabet. 

Each of the ihree pans in this package 
will not only teach you ihe words but will 
also present you with a quiz as well. Just 
pick the words you want to work on The 
computer will score how well you've 
learned your lesson. 

You can even practice typing in Russian. 
The program will allow you to type in the 
letters, or words, using the complete 
Cyrillic alphabet. Practice writing words 
such as hotel names, tourist attractions, 
and stteet addresses. 

Why be deaf and mute when faced with 
the richness of the Russian language? 
Discover II for yourself with the Everyday 
Russian package. Model I. Level II. 16K: 
Model 111. 16K. Recommended age level 10 
to adult. 
0137R (Tape) $9.95 

RUSSIAN DISK 

Beginner's Russian and Everyday Rus- 
sian are available together on disk. Model 
I. Level II. 16K. Expansion Interface ♦ one 
disk drive: Model III. 16K. 
0212RD (Diek) $24.95 
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Games, Simulations 
and Entertainment 
for your TRS-80 



AIR FLIGHT SIMULATION 

Air Fright might be more like it! Instru- 
ment takeoffs and landings arc no picnic 
ask any pilot — and this computer simula- 
tion Is certain to keep you on the edge ol 
your scat. 

You'll led the adrenalin flowing, which 
accounts tor the great popularity of flight 
simulation Here's a program that pro- 
vides a real sense of accomplishment, as 
vou progress Ironi takeoffs to tailspins and 
from landings to loops 

Vou begin with a full tank of gas and a 
flight plan that calls for a simple takeoll 
and landing— at least until you gel the 
hang of It. Pay close attention to your ln- 
strumenl panel, especially the angle of as- 
cent/bank Indicator and air speed Indlca 
tor— tix) steep a bank and your air speed 
will drop like a stone and so will your 
plane 

It's about as close to the real thing as you 
can get this side ol a runway: and once you 
get some (light time under your belt, the 
sky s the limit You can use the program to 
fly a course against a map — even try your 
hand at acrobatic maneuvers! Fun for the 
whole lamily Model I Level I. Mold I 
Level II. 16K. Model III. 16K 
O017R(Tape) S9.98 

ALIEN ATTACK FORCE 

iFormcrh Invaders) 

The invaders arc coming 1 Earths de 
lenses arc dead except lor your Liscr base. 
Your assignment is to destroy the ap 
proachlng ALIEN ATTACK FORCE before 
it destroys Earth Before Earth's scnsois 
failed, they detected 550 armed Invaders 
in space, speeding toward us in 10 attack 
Formations oi bb In each group The sen 
sors detected four different types of attack 
craft l-irge Medium. Small, and a short 
profile craft which is the most diflicult to 
destroy. If you cannot stop these space at- 
tackers they will stop Eanh lor good 
Model I. Le\c! II. I6K Model III IHK 
0240R (Tape) $9.95 

BALL TURRET GUNNER WITH SOUND 

For years the Petro Resource Con- 
glomerate has attacked our photon collec- 
tion stations and strangled our deep-space 
trade routes The PRC Exxonerator Class 
light fighters (code name: Gnat) have been 
their main weapon Now you can strike 
back, by joining the Ball Turret Gunner 
Service. 

Imagine yoursell al the control console 
ol an LW-1417 Stratoblazer [Type t) Stra 
tegie l.a.ser Weapon). Your Hindsight I)i 
rector informs you that a Gnat fighter is 
coming In for an attack. Vou pivot vour 
gigawalt laser turret until you can see the 
target on your monitor The Range Indica- 
tor shows him coming In fast The Target 
big Computet studies his course and speed 
as your linger tenses over the firing key 
Vou know you'll have only a fraction ol a 
second in which to react. The Gnat 
fighter's evasive maneuvers cause him to 
dance In your sights Suddenly, vou see 
the FIRE command and you react InsUrtC 
lively. Your laser beam lashes out and re- 
duces the Gnat to an expanding ball of 
ionized gas. Mission accomplished! 

Ball Turret Gunner, with your choice ol 
multiple levels of difficulty, optional sound 
effects and superb graphics, is more than 
just a game lis an adventure Experience 
It! Mode] I. Level II. 16K. 
OOSlR(Tape) $9.95 



JET FIGHTER PILOT 

The Jet Fighter Pilot package takes you 
as close to real combat flying as pcmsihlc 
without pulling G's. 

In this brilliantly realistic simulation, 
you become the pilot of a high perfor- 
mance, twin turbo- )cl fighter. Total control 
of the aircraft is yours 

At the start ol vour mission, you'll go 
through an entire engine start procedure 
before your flight (provided your ground 
maintenance is up to par). Vour takeoll will 
t>e from cither the deck of an aircralt car 
rier (via a steam catapult) or from an air 
Held. 

All controls respond the same as they 
would on a real Jet fighter. You'll have to 
constantly monitor your display and make 
adjustments to your throttle, flaps, rudder 
and aJr spoilers. You decide when to 
retract flaps, landing gear and release the 
auxiliary fuel drop-tanks 

Your onboard navigational computer 
will direct you to your selected airport The 
Glideslope/Locallzer Information will aid 
you In approaching and landing on an alr- 
craft carrier deck or airfield 

The Weapons Control Computer will 
arm your missiles, provide you with the 
range and hearing to a target, and tell you 
when to attack And. If things should get a 
little too hot. you have an election seat 
command lor egress. 

For a carrier-based landing, you'll have 
to deploy your tall hook. For a land-based 
landing, you'll need reverse thrust and to 
deploy your drag "chute. 

After you've flown a few missions with 
the Jet Fighter Pilot package, you'll know 
you've earned vour wings. Model I. Level 
II. 16K. Model III. 16K. 
01S9R (Tape) $14.98 



SWAMP WAR 

Vour (formerly] trusty ship. The Stellar 
Spaniel, has lumbered its last lightyear 
An unfortunate encounter wilh a neutron 
star has damaged vour hypcrspace- drive, 
you are stranded on a water -covered plan- 
et. Fortunately, you have managed in 
make il to one of the nine adjacent islands 
that compose this world's only dry land. 

On each island, vou discover the re 
mains ol an earlier landing party Ap- 
parently, they were wiped out before they 
could finish building their supply trans- 
porters. A brief inspection reveals that 
each mav salelv transport vou as far as one 

of the other Islands 

There is evidence ol all sorts ot reptilian 
lite— some small, some not so small, and 
some INTELLIGENT' You have an uneasy 
leeling that vour sojourn here may not be 
entirely without Incident This feeling 
is transformed to terror when you lind 
yourself suddenly surrounded by sapient 
swamp creatures sliexiting at you 

Vour only hope is to use your mainte- 
nance droids to collect all the transporters 
and to clear I he Islands of the swamp cre-a 
lures. Duck, dodge, shoot back do what 
you must— but survive the Swamp War!! 

The Swamp War program includes vari- 
able levels of difficulty, automatic score- 
keeping and fast paced graphics Willi op 
tional sound effects. Model I. Level II. IRK 
Model III. IHK 
03I2R (Tape) $14.95 



DANGER IN ORBIT 

(Formerly Asteroid] 

DATE. 28.02.2047 

LOCATION 270 million miles from Terra 

MISSION Maintaining Terra's Space 

Lanes 

Briefing will follow: 

1.1 Your mission is to destroy any 
asteroids in your sector and to prevent 
alien spacecraft from Inliltratlng the Ter 
ran Defense Network 

1.2 Your ship is armed with an anti- 
matter cannon. You carl shoot large 
asteroids, bui this turns them Into many 
smaller asteroids, each capable of desi rov- 
ing your ship. 

1 3 In addition, alien ships can make In 
stantaneous hyperspacc Jumps Into your 
area and start firing on your ship. 

1.4 You'll need lightning reflexes anil 
nerves of steel to survive DANGER IN OR 
BIT. We have no use lor non-survivors! 

DANGER IN ORBIT, a real time, ma- 
chine-language game, features variable 
levels of difficulty, superb high-speed 
graphics, sound effects and automatic 
sc -ore keeping. Tape version. Model I. Level 
II. 16K. Model III. I6K Disk version Model 
I. Level II. 16K. Expansion Interlace . one- 
disk drive 

0237R (Tape) $14.95 
0247RD (Disk) $19.95 



AIRMAIL PILOT 

Picture the Ponv Express with wings— 
that's Airmail Pilot' In place of hostile 
tribes and highwaymen, the pioneers ol 
the airmail routes faced other dangers 
They fought treacherous winds and ther 
mala, sudden storms, and a constant bat 
tic with time All ol this to prove early 
airmail service was dependable and 
worthwhile 

Here's a program that lets you go back in 
time to the early davs of aviation You 
must fly the mall Irom Columbus to 
Chicago. Vour Jenny, a cloth-covered bl 
plane, must take you through unpredict- 
able winds and electrical storms. The on 
board clock will time your flight. Vou must 
get the mall through In the shortest time' 
possible. 

It's more than a game. You become to- 
tally involved In your mission Not only is 
vour reputation as pilot al stake, the luture 
of Airmail— the bold new arm of the postal 
service— rides with you Model I. I-evel II. 
16K. Model III. 16K. 
0106R(Tape)S9.95 



DR. CHIPS 

When (he problems ol your world begin 
to pile up. you can now turn to your own 
hvingroom "psychiatrist"— DR. CHIPS 

The good Doctor is there whenever you 
need him lor as long as you need him. He- 
may not solve any ol your problems bul 
we're sure you'll tie amused al his 
responses. 

Why shoulder the- burdens of modem 
life in silence? Put your TRS-80 and DR. 
CHIPS to work today and get I! ail of! your 

chest' Model 1. U-vel II. 16K. Mexiel 111 

16K. 

02 18R (Tape) $9.95 



FLIGHT PATH 

Experience all aspects of modem avia 
lion with FLIGHT PATH 
MOUNTAIN PILOT Transforms you Into 
a daring bush pilot as you fly badly needed 
supplies to a remote gold mining camp 
You must cross a hazardous mountain 
range, while struggling with headwinds, 
tricky navigation and diminishing fuel 

Watch your airspeed, altitude and rate- 
of -climb or you could stall and crash. II vou 
deliver your supplies, you must then re- 
turn over those mountains with a heavy 
cargo of gold bullion. 

0' HARE— A control lower simulation In 
which you become an Air Traffic Control- 
ler You are responsible- for hundreds of 
human lives, as you guide the aircraft 
through your control sector to a safe 
landing. 

You'll have to deal with different alrrraft 
requirements, wind change warnings and 
potential midair collisions. But no matter 
what happens, you must bring in each of 
the 20 aircraft in your tour of duty 
PRECISION APPROACH KADAR— Com- 
bines the skills of pilot and Air Traffic Con 
troller. You become the pilots' "eyes" as 
they tr>- to land In limited visibility condi- 
tions. Your commands guide the aircralt 
in Its approach to the- lie-Id and a sale- 
landing. 

The flight path package involves you 
in both sides ol flight procedure, from 
tlit- thrill of flying to the lense drama of air 
traffic control. Model I. Level II. 16K: Model 
III. 16K. 
01 7 1R (Tape) $9.98 



THE FLYING CIRCUS 

The Flying Circus pac kage covers the 
lull range ol flying from old time biplane-s 
to modem day air traflic c-ontrol These 
seven programs offer you the daring 
realism of flight 

AIR FLIGHT SIMULATION- Allows vou 
to learn and practice the essentials of 
piloting 

NIGHT FLIGHT A nighttime photo 
reconnaissance- mission. 
AIRMAIL PILOT Return to the early days 
of aviation, where it's just you and your 
aircraft against the elements 
MOUNTAIN PILOT-Fly to a remote min 
ing camp with desperately needed 
supplies. 

O' HARE— Transforms you into an air traf- 
fic controller 

PRECISION APPROACH RADAR- Re- 
quires the skills ol both an air traffic con 
troller and a pilot 

JET FIGHTER PILOT— Takes you as dose 
to real combat flying as possible with- 
out pulling G's You become the pilot of a 
twin turbo-jet. s up er s onic fighter Total 
control of the aircraft is yours from 
takeoffs to landings to launching your 
missiles and destroying the target 

Your dream of living Ix-comes a reality 
with The Flying Circus package Model I. 
Level II. 16K. Expansion Interface l6Kc\ 
one disk drive. 
0205RD (Disk) $39.95 



HOUSE OF THIRTY GABLES 

Cold and treasures tempt us all. but only 
the stout of heart and swift of mind should 
attempt a trek through the legendary 
House o| Thirty Gables. To be alert is to Ik- 
successful against the strange array ot 
creatures land other terrors) waiting to end 
your quest lor riches Serpents and trolls 
are merely minor obstacles in this dun 
ge-oti of mystery. 

You make your way through these dank 
halls by typing two-word commands, such 
as GO WEST. READ SIGN. THROW AX. 
etc. You'll find various objects along vour 
way — some ol which you may need in 
order to solve- the problems endemic to 
this enigmatic residence. 

I .est you lor gel. there are heaps of 
treasure to be had lor the- adventurous and 
crafty explorer. However, the real reward 

la the- pleasure you wiu have by outwitting 
the- sinister inhabitants of the HOUSE of 

THIRTY GABLES' Model I Level II. lfiK 
0219R (Tape) S9.95 
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COSMIC PATROL 

Skilled players soon master many diffi- 
cult computer games, but COSMIC PA- 
TROL is in a world all its own. The chal- 
lenge intensifies! Supporting graphics and 
sound (optional) make each encounter an 
exciting new experience. It all adds up to a 
Super 3-S package . Skill. Sight and 
Sound. 

Scenario: The COSMIC PATROL pro- 
gram puts you in the command chair of a 
small Interstellar patrol craft. Your mis- 
sion is to defend Terran space and prey on 
the Quelon supply ships which carry es- 
sential parts and lubricants for that im- 
placably hostile robotic force. The drone 
freighters are fairly easy pickings for the 
accomplished starshlp pilot, but beware of 
the I-Fighter escorts. They're armed, fast 
and piloted by intelligent robots linked to 
battle computers. They never miss. 

The Cosmic Patrol program is not just 
another search and destroy game. With its 
fast, real-time action. Impressive sound 
option and superb graphics, this machine- 
language program Is the best of its genre. 

Don't keep putting quarter after quarter 
into arcade games or spending big bucks 
for video game cartridges. Get COSMIC 
PATROL from Instant Software— and get 
the best for less! Tape version Model 1. Lev- 
el II. 16K; Model III. 16K. Disk version Mod- 
el I. Level II. 16K. 
0223R (Tape) $14.98 
0224RD (Disk) $19.95 



BATTLEGROUND 

Here is a program that should interest 
you war-gamers: 

It is late 1944. and the Allied Forces arc 
sweeping toward Berlin. As General of 
your sector, you have at your command 
tanks, planes, artillery, infantry, engineers 
and vehicles— an awesome array of fight- 
ing men and the machines of war. From in- 
telligence reports you know that the 
enemy General is a shrewd tactician, not 
to be underestimated. It will take planning 
and strategy to outwit this wily old 
campaigner. 

The battle map of your sector will fill 
with markers, each showing the deploy- 
ment of your forces. You and another 
player will slip into the roles of opposing 
German and American commanders as 
yet another baltle unfolds. Battleground 
allows you to experience the total respon- 
sibility of a battle-area command. It will be 
up to you to deploy your forces. On your 
shoulders resls the decision whether to 
call for direct artillery gunfire or to order 
your planes into the air. You will constant- 
ly be watching for an enemy airdrop, al- 
ways carefully maneuvering your Forces. 
The stark reality of World War II comes 
alive in BATTLEGROUND. Model 1. Level 
II. 16K: Model III. 16K. 
014 1R (Tape) $9.95 



NIGHT PLIGHT 

Participate in one of the pivotal events of 
World War II— an awesome responsibility 
for you! Ready to tackle It? 

Its May. 1941. the dreaded Axis battle- 
ship, the Bismarck, has broken out of the 
North Sea and is now somewhere in the 
North Atlantic. Your mission: make a 
nighttime photo reconnaissance flight 
over the Bismarck. You can help the Ad- 
miralty determine the extent of damage 
suffered by the Bismarck in a previous 
battle and whether the British fleet has 
a chance of sinking the German pocket 
battleship. 

The Night Flight program lets you take 
off. fly and land a propeller-driven aircraft. 
Practice approaches and landings with a 
full on-screen display of the landing field 
information. The program will practically 
teach you to fly. 

Somewhere out in the cold, gray North 
Atlantic, the Bismarck tries to elude her 
pursuers. Your photos are vital. Launch 
yourself into the night sky with the Night 
Flight package. Model I. Level II, 16K: 
Model III. 16K. 
0117R (Tape) $9.95 



THE ALL 8TARS 

Here's a collection of our best selling 
games . . the ones you'll want to play 
again and again. It Includes: SANTA 
PARAV1A AND F1UMACCIO— Become the 
ruler of a medieval city state as you strug- 
gle to create a kingdom. Up to six players 
can compete to sec who will become the 
King or Queen. 

OIL TYCOON— Avoid oil spills, blowouts 
and dry wells as you battle to become the 
world's richest oil tycoon. Two players 
become the owners of competing oil com- 
panies. . . and there's room for only ONE 
at the top! 

PARADISE TRADER— You're the captain 
of a trading schooner, sailing the Caribbe- 
an In search of profits. As you sail from 
island to island, beware the dangers of the 
deep: pirates, ghost ships and hurricanes. 
Good sailing, skipper! 
MILLIONAIRE— Here's SI 000. Can you 
turn it into a million dollars in fifteen 
(simulated) years? It depends on your 
strategy as you buy and sell properties, 
negotiate bank loans, collect rentals and 
accept sealed bids. 

TIMBER BARON— An in-depth experience 
of the timber business, from dropping 
trees, until the milled lumber reaches the 
market. Your transactions are affected by 
those unexpected eventualities that can 
upset even the most careful plans. 
BATTLEGROUND— European Theater. 
1944: Your forces are sweeping toward 
Berlin. At your command are tanks, 
planes, artillery, infantry, engineers and 
vehicles. The battle map will fill with 
markers showing the development of your 
forces and the location of the enemy in one 
day of fighting. This two-player game will 
provide hours of entertainment. Model I. 
Level II, 16K, Expansion interface + one 
disk drive. 
021 3RD (Disk) $34.95 



SANTA PARA VIA AND FIUMACCIO 

Buon giorno. Signore! 

Welcome to l he province of Santa Para- 
via. As your steward. I hope you will enjoy 
your reign here. I feel sure that you will 
find it, shall we say. profitable. 

Perhaps I should acquaint you with our 
liltle domain. It is not a wealthy area. 
Signore, but riches and glory are possible 
for one who Is aware of political realities. 
These realities include your serfs. They 
constantly request more food from your 
grain reserves, grain that could instead be 
sold for gold florins. And should your 
justice become a trifle harsh, they will flee 
to other lands. 

Yet another concern is the weather. If it 
is good, so is the harvest. But the rats may 
eat much of our surplus and we have had 
years of drought when famine threatened 
our population. 

Certainly, the administration of a grow- 
ing city-state will require tax revenues. 
And where better to gather such funds 
than the local marketplaces and mills? 
You may find it necessary to increase 
customs duties or tax the incomes of the 
merchants and nobles. Whatever you do. 
there will be far-reaching consequenc- 
es and. perhaps, an elevation of your 
noble title. 

Your standing will surely be enhanced 
by building a new palace or a magnificent 
cattedrale. You will do well to increase 
your landholdings. if you also equip a few 
units of soldiers. There is. alas, no small 
need for soldiery here, for the unscrupu- 
lous Baron Peppone may invade you at 
any time. 

To measure your progress, the offi- 
cial cartographer will draw you a 
mappa. From it, you can see how much 
land you hold, how much of it is under the 
plow and how adequate your defenses are. 
We arc unique, in that here, the map IS the 
territory. 

I trust that 1 have been of help. Signore. I 
look forward to the day when I may ad- 
dress you as His Royal Highness. King of 
Santa Para via. Buona fortuna— or. as you 
say, "Good luck". 

For Model I. Level II. 16K. 
0043R (tape) $9.95 



PERFECT PONG 

The last bastion of propriety has been 
breached. You. the staid, serious TRS-80 
user are about to enter a world where no 
person can resist the lure, the excitement, 
the frenzy of the Arcade. Yes. you are 
about to meet— PERFECT PONG! 

Instant Software presents Perfect Pong 
to add some zip and zest to your computer 
life. Enough of those math, bill paying and 
utility programs. It's time to add some fun 
to your life! 

Perfect Pong is two programs offering 
nine different game boards and sound. 
Written in machine language, they arc 
both fast and tricky. You control the pad- 
dles—but can you control your emotions 
in the middle of a rousing contest? 

Why perpetuate the "stuffed shirt" im- 
age? Unleash the force of Perfect Pong and 
your computer will never by the same. 
Model I. Level II. 16K: Model III 16K. 
0120R (Tape) $14.95 



OIL TYCOON 

What would it be like to be one of the 
world's biggest oil producers? You and 
your friends can find out with this action- 
packed simulation as you compete to be- 
come one of the oil industry's wealthiest 
tycoons. 

Beginning with $2 million, and armed 
with information from geologists' reports, 
you'll explore for new wells, exploit ex- 
isting wells, and invest heavily in research 
and development In an effort to make your 
oil the most competitive available. 

Once you have oil to sell, you can name 
your price— but don't get too greedy, or 
you'll find the demand for your product 
dwindling till the prices become more 
attractive. 

The game involves elements of both 
strategy and chance. Whether you wind 
up as one of the world's wealthiest men, or 
the bankrupt victim of too many oil spills. 
blowouts, and dry wells, you're sure to 
find Oil Tycoon both challenging and ex- 
citing. Model I. Level II. 16K: Model III. 
16K. 
0023R (Tape) $9.95 



Home and 

Personal 

Programs 

for your TRS-80 



QSL MANAGER 

Did you remember to send a QSL card to 
the op you worked last week? Maybe you 
sent a QSL. but can't recall getting one In 
return. The QSL Manager program will 
help you set up a computerized log book 
for instant access to your records. 

Make complete log entries which In- 
clude: date, time, call sign, name. band, 
both the Sent and Received signal reports, 
the mode. QSL sent/received, and any 
remarks you may want to add. 

No more fumbling with Index cards dur- 
ing a QSO. because the QSL Manager has a 
built-in search function to locate and 
display information on any call sign in 
your records. You can even list all the 
QSO's for a particular date. time, band 
worked, mode or a specific signal report. 

The program will automatically check to 
see how much memory you have in your 
system. If you have a two disk. 32K sys- 
tem, you may have a maximum of 1000 
entries in your log (500 entries If you have 
a single disk system). A 48K system limits 
you to 1400 entries. 

These limits are caused by the fact that 
you have only 350 sectors on a disk. Each 
entry used 1/4 of a sector, thus the 1400 
entry limit. 

The program has built-in editing 
features that help you keep your log book 
up-to-date. 

There's also a command that lets you 
output your log entries to a printer for hard 
copy. 

In the next QSO. knock their socks off 
with your infallible memory. Model I. 
I-cvel II. 16K, Expansion Interface + one 
disk drive. 

015 1RD (Disk) $19.95 



USER'S TIPS 

Keep disk and tape cassettes away from 
magnetic fields (transformers, speakers. 
AC motors, magnets, etc.). Strong mag- 
netic fields will destroy Information on 
disks and tapes. 

USER'S TIPS 
When using a disk drive system, always 
power up peripherals (expansion inter- 
face, disk drives, printer, etc.) before you 
turn on the TRS-80 CPU/kevboard. 



MUSIC MASTER 

This quartet of programs lets you make 
beautiful music— or shall we say. YOUR 
kind of music. 

MICRO ORGAN— A machine-language 
program that enables you to turn your 
TRS-80 Into an electronic organ or harp- 
sichord. You can choose from a range of 
four octaves and three voices. 
KALEIDOPY— A combination kaleido- 
scope and player piano. Your computer 
creates a repeating pattern on the screen 
and then plays it as music. A special 
"messing around" section encourages you 
to modify and Improvise the program. 
COMPOSER— You generate "loose" or 
quasi-random music. You Icam how to 
create music and how to control certain 
aspects of it. Also contains a "messing 
around" section. 

KEYMANIA— It's Gametime! Up to four 
people can compete, as they try to 
remember and reproduce a random com- 
puter composition. It's a multi-level game, 
in which you set the tempo. 

Bring harmony into your life with Music 
Master! Model I. Level 11. 16K: Model III. 
16K. 
0084R (Tape) $9.95 



Instant Software • 13 



Games, and 
Simulations 

Entertainment 
for your APPLE 



PADDLE FUN 

This new Apple disk package requires a 
steady eye and a quick hand at the game 
(Kiddies! We've included four diflcrent 
games to challenge and amuse vimi. They 
include: 

INVADERS— You must destroy an Invad- 
ing licet of 55 Hying saucers while dodging 
the carpet of bombs they drop. Keep a 
wary eye for the mother ship directing the 
incursion. Your bomb shelters will help 
you— for a while' Our version ot a well- 
known arcade game. Requires Applesoft 
m ROM. 

HOWITZER— This is a one- or two person 
game in which you must fire upon another 
howitzer position. This program is written 
in HIGH-RESOLUTION graphics, using 
dillercnt terrain and wind conditions carh 
round, to make this a demanding game. 
The difficulty level can be altered to suit 
the ability of the players. Requires 
Applesoft in ROM 

SPACE WARS— This program has three 
parts ( 1 ) two flying saucers meet in laser 
combat— for two players: 121 two saucers 
compete to sec which can shoot out the 
most stars — for two players: and 13) one 
saucer shoots the stars in order to get a 
higher rank— for one player only Requires 
Applesoft. 

GOLF— Whether you win or lose, you're 
bound to have fun on our 18-hole Apple 
golt course. Choose your club and your 
direction and hope to avoid the sandtraps. 
Loatng too many strokes in the water 
hazards? You can always increase your 
handicap, (jet olf the tec and onto the 
green with Apple Golf. One ol its nicest 
features is you'll never need to cancel a 
golf date due to rain. Requires Applesoft. 
The minimum system requirement for 
this package is an Apple II or Apple II Plus 
computrr with 32K of memory and one 
minidisk drive. 
Disk-based version. 
0163AD (Disk) $19.95 



DOCTOR CHIPS 

DR. CHIPS is a great icebreaker at cock- 
lail |>arties. And it the need arose, he could 
entertain your early arriving guests while 
you linished dn-ssing! Your friends will be 
asking you how the guy got into the com- 
puter 

Why shoulder l he burdens oi modem 
life In silence? Put your APPLE and DR. 
('nil's to work today and get it all off your 
chest! 

You'll need an Apple II [or II 1'lusl. one 
disk drive, and 20K ol RAM. 
0254 AD (Disk) $14.95 

MIMIC 

How good Is your memory? Here's a 
chance to find out! In Mimic, your Apple 
will flash on the screen a sequence of fig- 
ures on a 3 x 3 grid. You'll have to respond 
with exactly the same sequence. It sounds 
easy, but don't be fooled. There are five dif- 
ferent. Increasingly difficult versions of the 
game, Including one that will keep going 
until you're ready to quit. Mimic is ex- 
citing, fast-paced, and challenging— a fun 
game for family and friends. You'll need 
Integer BASIC and at least 24K of RAM. 
OQ25A (Tape) $9.95 



APPLE FUN 

We've taken live of our most popular 
programs and combined them into one 
tremendous package full of lun and excite- 
ment. This disk-based package now offers 
you these great games: 
MIMIC— How good is your memory? 
Hcrc'sa chance lo find out! Your Apple will 
display a sequence of figures on a 3x3 
grid. You musl respond with exactly the 
same sequence, within the lime limit. 

There arc five different and increasingly 
difficult versions of the game, including 
one that will keep going indefinitely. 
Mimic is exciting, last-paced and clialleng- 
ing— lun for all! 

AIR FLIGHT SIMULATION— Your mis- 
sion is to take off and land your aircraft 
without crashing. You're flying blind, on 
instruments only. 

You start with a full tank of fuel, which 
gives you a maximum range ol approx- 
imately 50 miles. The computer will con- 
stantly display updates of your air speed, 
compass heading and altitude. Your most 
important instrument is the Angle of 
Ascent/Bank Indicator. It will tell il the 
plane is climbing or descending, whether 
banking into a right or left turn. 

After you've acquired a few hours flying 
time, you can try flying a circuit against a 
map or doing aciohaticmaiieuvcis. With a 
lillle more flight lime under your lx*lt, the 
sky's the limit! 

COI.ORMASTEK— Test your powers or de- 
duct ion as you try to guess the secret color 
code in this Mastermind-type game. There 
are two levels of difficulty, and three op- 
tions of play to vary your games. Not only 
ran you guess the computer's color code, 
but it will guess yours! It will also serve as 
referee in a game between two human op- 
ponents. Can vi hi make and break the col- 
or code? 

STARSHIP ATTACK— Your mission is to 
protect our orbiting food station satellites 
from destruction by an enemy starship. 
You must capture, destroy or drive off the 
attacking ship. II you fail, our planet is 
d<x>med. 

TRILOGY— This fascinating contest of 
logic has its origins in the simple game of 
tic-lac-toe. The object of the garni- is to 
place three of your colors in a row into the 
delta-like, multi-level display. The rows 
may be horizontal, vertical, diagonal and 
wrapped around, through the "third 
dimension". Your Apple (or human oppo- 
nent) will be trying to do the same, and 
there are many paths to victory. You can 
even have your Apple play against itself! 

Minimum system requirements are an 
Apple II or Apple 11 Plus computer with 
32K of memory and one minidisk drive. 
Mimic requires Applesoft in ROM. all 
others run in RAM or ROM Applesoft. 
0161AD (Disk) $19.95 



GOLF 

Without leaving the comfort of your 
chair, you can enjoy a computerized 18 
holes of golf with a complete choice of 
clubs and shooting angles. You need never 
cancel because of rain. One or two players 
ran enjoy this game on the Apple, with Ap- 
plesoft II and 20K. 
OOISA (Tape) $9.95 



SKTBOMBER8 II 

Two countries, separated by The Big 
Green Mountain, are at war. Both nations 
are equipped with only one means of at- 
tack— SKYBOMBERS. 

You and your opponent, each represent- 
ing the natlonsat war. command opposing 
fleets of fighter-bombers armed with 
bombs and missiles. As enemy command- 
ers, each of you has specific orders: Cross 
that mountain and bomb the enemy block- 
house Into oblivion! 

Flying over that innocent-looking moun- 
tain is not easy for either air force. The air- 
craft can fire missiles at each other: If that 
falls, they can ram each other. Sometimes, 
aircraft encounter falling bombs and are 
blown to pieces in flight. Desperate pilots 
can even crash Into the enemy block- 
house. 

Flight personnel are sometimes forced 
to parachute from badly damaged aircraft. 
As they float slowly to earth, they become 
helpless targets for the enemy to destroy In 
mid-air. 

The sounds of battle are there to remind 
each commander of his grim responsibili- 
ty. 

Explosions are graphically displayed for 
both commanders. The scores for both 
countries are constantly updated at the 
bottom of the display screen. 

Flying these missions develops Into a 
gripping fascination. Air warfare becomes 
a vivid reality, as you both play the deadly 
game of Skybombers II. 

Tape version requires 16K RAM & Ap- 
plesoft or Integer Basic. Disk version re- 
quires 32K RAM A one disk drive Both re- 
quire an Apple II or Apple II plus and game 
paddles. 

0183A (Tape) $9.95 
02 7 1 AD (Disk) $ 1 9.95 



SANTA PARA VIA AND FIUMACCIO 

Buon glorno. Slgnore! 

Welcome to the province of Santa Para- 
via. As your steward. I hope you will enjoy 
your reign here. I feel sure that you will 
find It. shall we say. profitable. 

Perhaps 1 should acquaint you with our 
little domain. It Is not a wealthy area. 
Slgnore, but riches and glory are possible 
for one who Is aware of political realities. 
These realities include your serfs. They 
constantly request more food from your 
grain reserves, grain that could Instead be 
sold for gold florins. And should your 
justk-e become a trifle harsh, they will flee 
to other lands. 

Yet another concern is the weather. If It 
is good, so is the harvest. But the rats may 
eat much of our surplus and we have had 
years of drought when famine threatened 
our population. 

Certainly, the administration of a grow- 
ing city-state will require tax revenues. 
And where better lo gather such funds 
than the local marketplaces and mills? 
You may find It necessary to Increase 
customs duties or tax the Incomes of the 
merchants and nobles. Whatever you do. 
there will be far-reaching consequenc- 
es and. perhaps, an elevation of your 
noble title. 

Your standing will surely be enhanced 
by building a new palace or a magnificent 
caitedrate. You will do well to Increase 
your landholdings. If you also equip a few 
units of soldiers. There is. alas, no small 
need for soldiery here, for the unscrupu- 
lous Baron Peppone may invade you at 
any time. 

For the 48K Apple with Applesoft in 
ROM. 

01 74 A (Tape) $9.95 
0229 AD (Disk) $19.95 



AIR FLIGHT SIMULATION 

Your aircraft is on the runway loaded 
with fuel. Instruments feeding the com- 
puter a constant stream of information. 

A glance at your flight screen gives you 
airspeed, altitude, and compass heading. 
After you take off. the all-important 
Asieiit/Descent -Turn/Bank Indicator will 
tell you the attitude of your aircraft at a 
glance, whether vou arc climbing or div- 
ing, whether you are banking into a left or 
right turn. 



Your mission is a short one You have a 
maximum possible range of about 50 
miles, on one precious tank of luel. Your 
objective is to take off. fly the aircraft, and 
land without crashing. 

Since you may not have been at the con- 
trols of an aircraft before, the basic flight 
instructions enrlosed will be invaluable. 
Included are explanations on basic aerody- 
namics and principles of flight, plus illus- 
trations telling you how to recover from 
dangerous maneuvers. 

Your aircraft will respond rapidly to the 
controls, and your movements must be 
delicate. Too much airspeed and yourair- 
crait could explode from overstress. If the 
airspeed is too slow, you might stall and 
crash. A clumsy turn, and you might find 
yourself flying u|>side down, lighting to re- 
gain control. 

With Air Flight Simulation and enough 
flight lime, the sky's the limit! 
Requires 16K of RAM ft Applesoft 
0148A (Tape) $9.95 



SAHARA WARRIORS 

Now you can enjoy all the gritty realism 
of desert warfare with the Sahara Warriors 
package. COMMANDO— You must send 
your commandos to trap a German gener- 
al and cut him off from his troops. You'll 
have the choice of two levels of difficulty. 
FRENCH FOREIGN LEGION-The battal- 
ions of the French Foreign Legion are In a 
race with the Arabs Which side will get its 
battalions Into the oasis in the shortest 
lime You and a friend can find out This 
game has four dillercnt versions, which 
even include an occasional sandstorm. 

NOTE; Both programs In this package 
require an Apple with at least HK and In- 
teger BASIC. The French Foreign Legion 
program requires the use of game paddles. 
0080A (Tape) $9.95 



OIL TYCOON 

Could you be the world's wealthiest oil 
magnate? Find out with this action- 
packed simulation of real-world, cutthroat 
competition. 

Beginning with two million dollars, and 
armed with the geologist's reports, you'll 
explore for new wells, exploit existing 
wells and Invest heavily in research and 
development. 

Once you have oil to sell, you can name 
your own price. Don't get too greedy, or 
the demand for your oil may dwindle until 
prices become more attractive. 

When the game Is over, you may find 
yourself the wealthiest tycoon around— or 
you may be the bankrupt victim of too 
many oil spills, blowouts and dry wells. No 
matter how you fare, you're sure lo find Oil 
Tycoon both challenging and exciting on 
your Apple. Requires Applesoft In ROM. 
16K. 
0O79A (Tape) $9.95 



for your 
HEATH 



MENTAL GYMNASTICS 

Pit your mind against the challenge of 
these ancient games. 

REVERS1— As you and a friend (or the 
computer) place your pieces on the board, 
you must each try to capture the oppo- 
nent's pieces. The score can fluctuate 
wildly, and nobody can tell who'll win un- 
til the last move. 

WAR1— You can play a friend or the com- 
puter in this simple yet Intriguing game 
The two players take turns removing 
pieces from one cup and placing them in 
the other cups. As play continues, the 
number of pieces decreases. The last 
player who has a piece to move wins the 
game. To enjoy these ageless games, you II 
need the Heath 118 with 8K above Benton 
Harbor Extended BASIC. 
OOS7H (Tape) $9.95 
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Home/Personal 
for APPLE 



SOLAR ENERGY FOR THE HOME 

Willi l he price of fuels rising to astro- 
nomical heights, solar space healing sys- 
tems are starling to become very attrac- 
tive. But. how do you know il a solar heal- 
ing installation will be economically fea- 
sible? This program can answer that 
quest too. 

All you do is supply the lixalion, size. In- 
terior details and the amount of window 
space in your home. The program will cal- 
culate the current heat loss of your home 
and the amount of heat gained from any 
south-facing windows Then, enter the 
data for the contemplated solar heating in- 
stallation. The program will compute the 
net heating gain and give you the exist ol 
using conventional fuels versus using 
solar heat. It will even calculate the pay- 
back period and show you il your contem- 
plated investment in solar heating will 
save you money. 

For anyone seriously considering the ad- 
vantages and economics of a solar conver- 
sion, ibis package can provide practical 
guidance. For professionals designing and 
installing solar systems, it's a must. 

Requires Applesoft BASIC a single disk 
drive and a minimum ol 28K ol RAM. 
0235AO (Disk) S34.93 



ASTROLOGY 

Astrology is at once a science and an an . 
The heavenly bodies are believed to exert 
an influence upon the destinies of each In- 
dividual— a destiny predetermined by a 
universal order resulting from lor coin- 
ciding with) the position of the planets in 
our solar system. 

The astrological chart, or horoscope, is 
drawn as a map of the heavens at the exact 
time of a person's birth. A horoscope Is an 
illustration of (1) the "planets" and their 
location within (2) the twelve signs of the 
Zodiacal Circle and (3) the twelve houses 
through which the heavenly bodies must 
pass. The sign which Is in the ascendant 
(Eastern Horizonl at the time of birth Is 
also of great significance. 

This program draws your astrological 
chart using either the tropical or sidereal 
zodiac. After you enter your birth data in 
response to the on-screen prompts, your 
Apple will calculate and then display your 
individual horoscope. Once the horoscope 
has been cast, the program will list the 
angular relationships (aspectsl of all of the 
"planets". 

Note: This program makes no attempt to 
Interpret the multitude ol facts and rela- 
tionships of a specific horoscope. For this 
information, we recommend that you con- 
sult a standard text on astrology or an ex- 
perienced astrologer. 

Knowledge of Astrology a necessity to 
use this program. 

Minimum System: Apple 11 (or II Plus). 
one disk drive. 28K of RAM and Applesoft. 
0242AD (Disk) $19.90 



for your 
PET 



for your 

NORTHSTAR 



TRAFFIC ACCIDENT ANALYSIS 
AND RECONSTRUCTION 

by Halm Relzes 

Highway accidents, resulting in fatali- 
ties, injuries, and property damage, gener- 
ally lead to prolonged litigation. The Traf- 
fic Accident Analysis and Reconstruction 
(TAAR) System will provide you with pro- 
grams and analytical techniques to solve 
the equations Involved In motor vehicle ac- 
cidents. The System will present a recon- 
struction methodology utilizing physical 
evidence at the scene and a conclusive 
determination of the probable cause. 

The purpose of this system Is to provide 
accurate conclusions regarding the opera- 
tional factors and dynamics contributing 
to highway accidents. The TAAR System 



deals with the basic calculations of the 
common types of accidents and also ex- 
plains and applies the various formulas of 
automobile kinematics. 

The TAAR System is the result of Mr. 
Relzes" 25 years In the accident investiga- 
tion field. These programs are Invaluable 
to insurance casualty companies, accident 
investigators, plaintiff and defense attor- 
neys, fleet safety directors, and police offi- 
cials handling automobile accident cases. 

This package requires I he North Star 
Horizon II microcomputer with 48K of 
memory, two disk drives and the North 
Star Disk Operating System (DOS) version 
5.0. 
0173ND (Disk) 8499.95 



Texas Instruments 



SANTA PARA VIA AND FIUMACCIO 

The year is AD 1400. and you are the 
ruler of a tiny Italian city-state. You are 
ambitious by nature and Intend to build 
your little city-state into a powerful 
kingdom. 

So begins Santa Paravla and Flumacclo. 
where you and your fellow players com- 
pete as rulers of neighboring cities. You 
control the grain harvest, feed your people, 
set tax rates, exercise Justice, and invest in 
public works. 

Life was short back then, and you'll 
have only a limited amount of time in 
which to build your kingdom. The lives of 
your serfs will depend on your decision. If 
they arc wise, then your city-state will 
grow and you will acquire loftier titles. If 



your rule Is incompetent, your people will 
starve and your city-state may be invaded 
by your neighbors. 

You can play the game yourself or up to 
six players may compete at one time. Ei- 
ther way. you're sure to find your route to 
the throne a challenging road. 

How will you rule your kingdom? Will 
you become unscrupulous and follow the 
example set by Niccolo Machiavelll in his 
book on government. The Prince— or will 
you be a benevolent ruler— an iron fist 
In a velvet glove? Only you can answer 
that question — with the Santa Para via 
and Flumacclo program. For TI9S'4 
Microcomputers. 
0273TI (Tape) 89.95 



CODE NAME: CIPHER 

Now you can enjoy the feeling of Intrigue 
with the CODE NAME: CIPHER software 
package. This enigmatic quartet of pro 
grams is a puzzle lovers delight. They 
include: 

MEMORY GAME-The computer will 
shuffle a deck of cards and lay them out 
face down. You take turns choosing two 
cards and trying to match a pair. You can 
adjust the computer's "IQ" so that its 
memory is as fallible as yours. 
CODEMASTER— One player types in a 
woid. phrase or sentence and the PET 
translates It into a cryptogram. The other 
player must break the code and solve the 
cryptogram In the shortest time possible. 
The computer keeps score and will offer 
hints— but you lose points If you accepi 
them. 

DECEITFUL MASTERMIND— This isn't 
your ordinary mastermind type of game 
You must guess the five letters in the hid- 
den code word. The computer will give you 
hints as to how close your guesses are. But 
it can (optionally) give you false 
hints up to nine per game, that can 
lead you astray. For one player. 
CODE BREAKER-Cracktng this code 
won't be easy. The computer (or a human 
opponent) will enter a sequence of three, 
lour or five secret symbols. You'll have to 
guess which symbols are used and their 
correct sequence. The fewer guesses, the 
higher your score. If you want to pit your 
wits against the relentless logic of the com- 
puter, then Code Name: Cipher is for you. 
Requires an 8K PET 
01 12P (Tape) 89.95 



PET UTILITY I 

This two-program package Includes: 
MONITR— You can edit, save and verify 
any machine-language program while still 
allowing you access to BASIC. It allows 
you to: (1) display or modify memory in 
hexadecimal notation. (2) disassemble 
memory. (3) execute programs. (4) save, 
verify or load machine language tapes, 
and (5) move back and forth between 
BASIC and MONITR. It automatically dis- 
plays register contents and processor 
status bits whenever it encounters a BRK 
instruction. It resides in high memory, so 
It Is compatible with BASIC. (Old ROM 
only.) 

PROGRAMMERS CALCULATOR-This 
program will do more than the Texas In- 
struments' Programmer Calculator. Not 
only will the program convert numbers in- 
to binary, octal, decimal and hexadecimal 
systems and function as a floating point 
calculator, but it will also display all four 
numbers, simultaneously. It will handle 
numbers so large, they're limited only by 
the size of your screen! (Either ROM.) 

The PET Utility I package, a tool for all 
your tomorrows. For 8K PETs. 
0105P (Tape) 89.95 



DUNGEON OF DEATH 

"Those u-ho seek the Holy Grail 

Musi fight and uxilk a tortuous trail. 

Eleven monsters thou must fight. 

Whilst searching through eternal 
night. " 

Count Stan of Santa Paravla 
AD 1380-1402 

Thus begins your quest In search of the 
Holy Grail, wherein you must descend 
through the twelve levels of the Dungeon 
of Death, find the Holy Grail, and return to 
the surface with It. 

The Holy Grail is guarded by Smaug. I he 
most fearsome monster of all. and len 
lesser breeds of monsters. These grue- 
some beings will challenge your every 
step. You can only survive by using all the 
powers at your command. 

You'll be able to cast magic spells, drink 
potions that may or may not help you. and 
open chests In search of gold or items thai 
will help you fight the monsters. 

Step softly In the darkness Treasure or 
sudden death Is only a footfall away In the 
Dungeon of Death! Requires an 8K PET 
OOS4P (Tape) 89.96 

gUBIC 4 GO MOKU 

Play two ancient games on your modern 
PET. The iwo programs included are: 
QUBIC 4— Play a multi-dimensional game 
ol tk-tac-toe. 

GO- MOKU— Line up live of your men 
while blocking the PET'S moves. 
These one player games require 8K <>l 
memory. 
0038P (Tape) 89.95 

MIMIC 

Test your memory and reflexes with tin- 
five different versions ol this game You 
must match the sequence and location of 
signals displayed by your PET This one- 
player program Includes optional sound 
effects with the PET. 8K. 
0039P (Tape) 89.95 

SANTA PARA VIA AND FIUMACCIO 

The year Is AD 1400. and you are the 
ruler of a tiny Italian city-state. You are 
ambitious by nature and intend to build 
your little city-state Into a powerful 
kingdom. 

So begins Santa Paravla and Flumacclo. 
where you and your fellow players com- 
pete as rulers of neighboring cities You 
control the grain harvest, lecd your people, 
set tax rates, exercise justice, and Invest In 
public works. 

Life was short back then, and you'll 
have only a limited amount of time in 
which to build your kingdom. The lives of 
your serfs will depend on your decision If 
they are wise, then your city-state will 
grow and you will acquire loftier titles. If 
your rule is Incompetent, your people will 
starve and your city-stale may be invaded 
by your neighbors. 

You can play the game yourself or up to 
six players may compete at one time. 
Either way. you're sure to find your route 
to the throne a challenging road. 

How will you rule your kingdom? Will 
you become unscrupulous and follow the 
example set by Niccolo Machiavelll In his 
book on government. The Prince — or will 
vou be a benevolent rulei -an iron fist In a 
velvet glove? Only you can answer that 
question— with the Santa Paravla and 
Flumacclo program 

This classic program will give you hours 
of enjoyment. Your software library Isn't 
complete without Santa Paravla and 
Fiumacclo. Requires a I6K PET. 
0175P (Tape) 89.95 



AIRMAIL PILOT 

The Chicago Sun 

July 18. 1922 

—WANTED— 

Airmail pilot for the 
Columbus to Chicago run. 

Must be willing to fly in 

every kind of weather Only 

the foolhardy need apply. 

Let the Airmail Pilot package take you tn 

the early days of aviation history. Your 

plane is the Curtis JN4-D. affectionately 

known as the Jenny. You must fly the mail 

Irom Columbus to Chicago. 



The Jenny carries only 26 gallons of 
fuel. You'll have to stop along the way. Bad 
weather may force you down. Electrical 
storms may turn your aircraft into a mass 
of flaming wreckage, or ice may form on 
your wings and plunge you to certain 
death below. Bui. the mail must get 
through. 

Experience the thrills ol flying, when air- 
craft were mere fragile machines of wood 
and fabric, with the Airmail Pilot package 
(Scarf and flying helmet optional. I All you 
need is your TI99/4 microcomputer. 
0274TI (Tape) 89.95 
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INDEX BY PROGRAM NAME 



TRS-80 BUSINESS AND APPLICATIONS 








Program Name 


Order No. 


Price 




DmllW Analysis ITapei 


014OR 


875 00 


9 


(Dlskl 


0I52RD 


99 95 




Climate Comp (Disk) 


0316RD 






Electronic Breadboard ITaprl 


0287R 






Find II Quick (Disk) 


0258RD 


49 95 


9 


Label (Tapcl 


0168R 


24 95 




Mail File (Diskl Model 1 


500ORD 


99 00 




(Disk) Model II 


500IRD 


199 00 


'=• 


One D Mailing List IDiskl 


0123 RD 


24 95 


9 


TRS-80 UTILITIES 








Program Name 




Price 




Compression Utility Pack ITapei 


0246R 


S19 95 


10 


The Disassembler (Tape) 


0232R 






Disk Editor (Disk) 


0I80RD 


39 95 


10 


Disk Scope IDlskl 


0I39RD 


19 95 




DUNS ID.sk| 


0231RD 


19 95 


10 


Dynamic Device Drivers ITapei 


0228R 


1995 


10 


IDiskl 


0I99RD 


24 95 


10 


Irv ITaprl 


O250R 


2495 


10 


IDlskl 


035ORD 


29 95 


10 


Master Directory (Disk) 


50OSRO 


29 95 


10 


Programmer s Converter ITapei 


0O58R 


995 




Programmer s Primer ITape) 


024SR 






Rrnum/Compress ITapei 


0133R 


14 95 




TLMS ITapei 


0230R 


14 95 




Ultra Mon ITapei 


5O03R 


24 95 


11 


TRS-SO EDUCATION 








Program Name 


Order No. 


Price 


Page 


Dcgimiri's Russian ( Tapel 


0136R 


99 95 


II 


Everyday Russian ITape) 


0I37R 


9,95 


11 


•..eography Explorer: USA IDiskl 


0O7IRI) 


49 95 


1 1 


Russian Disk IDlskl 


03I2RD 


24 95 


II 


Surveyor s Apprentice ITapei 


0I27R 


9.95 


1 1 


reactor* Aide IDiskl 


muKii 


39 95 


1 1 


lypmg Tea. her (Tapel 


OIXKIR 


12 95 


1 1 


7 KS NO GAMES. SIMULATIONS AND ENTERTAINMENT 






Program Name 


Order No. 


Price 




Ait mghi Simulation [Tapri 


O0I7R 


S9 95 


12 


Airmail Piloi {Tapel 


0IO6R 


9 95 


\J 


Allen Attack Force ITaprl 


O240R 


9 95 




The All Stars IDlskl 


021 3RD 


34 95 




Hall Turret Gunner (Tapcl 


0O5IR 


9 95 


I.I 


llattleground ITapei 


OI41K 


995 


13 


Cosmic Patrol ITape) 


0223R 


14 95 


13 


IDiskl 


0224RD 


19 95 


13 


Danger In Orbit (Tapel 


U2.17H 


14 95 




Dragonquest ITapei 


5006R 


15 95 


-' 


(Disk) Model 1 


5007RD 


21 95 




(Disk) Model III 


50IOR3D 


21 95 


2 


Dr Chips (Tapel 


02I8R 


995 




Flight Path (Tapel 


OI71R 


995 




The Flying Cirrus (Dlskl 


0205RD 


39 95 




Mouse of 30 Gables (Tapcl 


02I9R 


995 


12 


Jel Fighter Pilot (Tapel 


0I59R 


14 95 




Master Reversl (Dlskl 


0378RD 


29 95 




Night Right [Tapel 


01I7R 


9 95 


13 



Oil Tycoon (Tapel 

Perfect Pong ITapei 

Santa Paravia 4 Flumaccio (Tapel 

Space Shuttle (Tape) 

Swamp War (Tape! 

Temple o( the Sun ITap.1 

IDiskl Model I 

TRS-SO HOME AND PERSONAL 
Program Name 
Musk Master (Tapel 
QSL Manager IDiskl 

APPLE EDUCATIONAL 
Program Name 

Capitalization (Diskl 
Russian Disk (Disk) 



0023R 


995 


13 


0120R 


14 95 


13 


0O43R 


9 95 


13 


0332R 


14 95 


2 


0312R 


14 95 


12 


SOI2R 


19 95 


2 


501 1RD 


29 95 


2 


Order No. 


Price 


Page 


0084R 


89 95 


13 


0I51RD 


19 95 


! 1 



Order No. Prlee Page 

0339AD S24.95 2 

0283AD 24 95 2 



APPLE GAMES. SIMULATIONS * ENTERTAINMENT 
Program Name 

Air Flight Simulation II 
Apple Fun (Dlskl 
Dr. Chips (Dlskl 
Golf (Tape) 
Mimic ITaprl 
Oil Tycoon (Tapel 
Paddle Fun (Dlskl 
Sahara Warriors ITapei 
Santa Paravia & Fiuma 



Skybomlx 



(In ITapei 
IDlskl 



, II ITapei 
IDlskl 



APPLE HOME AND PERSONAL 
Program Name 

Solar Energy lor tin- Home (Diskl 
Astrology IDlskl 

PET 

Program Name 

Code Name Cipher ITapei 

Dungeon ol Dealh ITaprl 

Mimic ITapei 

Pet Utility I (Tape) 

Qubu 4/Go Moku ITapei 

Santa Paravia & Fiumarcio (Tapel 

TEXAS INSTRUMENTS 

Program Name 

Airmail Pilot ITape) 

Santa Paravia «r Flumaccio (Tapel 



HEATH 
Program Na 



NORTHSTAR 
Program Name 

T A A R (Dlskl 



Order No. 


Price 


Page 


0148A 


S9 95 


14 


OlblAD 


19 95 


14 


0254AI) 


14 95 


14 


0018A 


995 


14 


0O25A 


995 


II 


007 9 A 


9 95 


1 1 


0I63AD 


19 95 


1-1 


0080A 


9 95 


1 1 


Ol /4A 


9 95 


1 1 


0229A1) 


19 95 


II 


01 83 A 


9 95 


11 


027 IAD 


19 95 


14 


Order No. 


Price 


Page 


0235 AD 


S34 95 


15 


0242AI) 


19 95 


15 


Order No. 


Price 


Page 


0112P 


89 95 


15 


00641' 


9 95 


15 


0O39P 


9.95 


:"i 


0105P 


'i '■:> 


15 


0038P 


995 


IS 


0175P 


9.95 


IS 


Order No. 


Price 


Page 


0274TI 


89 95 


IS 


0273T1 


995 


IS 


Order No. 


Price 


Page 


0O87II 


89 95 


IS 


Ordr r No. 


Price 


Page 


OI73ND 


S499 95 


IS 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE 



Whether you use your microcomputer for business, 
science, education or in your home — 

Whether you have an Apple, TRS-80*, PET, 0SI, 
Heath, Atari, KIM or another system— 

Whether you are a beginner, intermediate or expert 

Kilobaud Microcomputing is for you. 

Each month the pages of Kilobaud Microcomputing are filled with the most up-to-date information on 
microcomputing. Last year Kilobaud Microcomputing had over 2.500 pages. So you get all that information at 
less than a penny a page. 

You can expect Kilobaud Microcomputing to bring you. . . 

•articles on everything from investment tracking to games »up to-date industry news 
•reviews of new products «and hundreds of dollars worth of useable programs 
Whatever area of microcomputing you are in, Kilobaud Microcomputing helps you explore it— so subscribe 
today with our no-risk offer. If you are not satisfied with the first issue, write cancel across your invoice and 
send it back. The Kilobaud Microcomputing is yours to keep. 

YES, I want Kilobaud Microcomputing. 

Bill me $25.00 lor a years subscription. Bill my AE MC . . VISA Check enclosed. 

Canadian 1 year only/US funds $27.00— Foreign 1 year only/US funds $35.00 
Kilobaud Microcomputing • PO Box 981 • Farmingdale. NY. 11737 
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GENERAL 



A compilation of wisdom on when and when not to compile. 

A Macroprocessor 
For Basic— PartV 



J. Alan Olmstead 

J. Olmstead Financial 

Engineering Systems 

3843 West Street, Moritz Lane 

Phoenix, AZ 85023 



The MetaBasic compiler consists of 
three program modules. The first pools 
all literals; the second generates Assembly 
language source code from the MetaBasic 
commands; and the third posts public 
names (if any) to the external reference file. 
Prior to assembly, but just after all program 
modules in the group have been precom- 
piled, the external reference generator uses 
this file to compute linkage addresses 
among all the various concurrent program 
modules. 

Literal pooling is a feature common to 
nearly all compilers. Numbers, such as zero 
and one, are used continuously throughout 
the program as are certain character con- 
stants. Since their repetition consumes 
considerable space in main memory, the 
compiler sets them up once as a data con- 
stant and thereafter substitutes the compil- 
er-generated name whenever the same liter- 
al appears again in the user's source code. 
The maximum length of a character literal is 
48 bytes, and the maximum magnitude of a 
numeric literal is 99,999,999.99. 

The generation of source Assembly lan- 
guage from the MetaBasic commands is 
actually the easiest part of the entire com- 



pilation task. The generated code consists 
of a call followed by address definitions. 
The calls are to service routines contained 
within ZMonitor and are automatically de- 
fined as external to the user's program. The 
external reference generator will resolve 
them just prior to assembly. 

If the Assembly language generator 
encounters DEFPUB annotation to any 
equate statement, the third compiler pro- 
gram is called automatically. It posts the 
name of the program module and the name 
which was declared to be public. The ad- 
dress is not computed at this time, however, 
on the presumption that changes to the pro- 
gram will be made. Similarly, if any refer- 
ence is found to an external name, the pro- 
gram posts the module name as containing 
references needing to be resolved prior to 
assembly. 

The Last Language: MetaBasic 

MetaBasic Is not merely an attempt to 
smooth out the simplification of general in- 
to detailed code, or to add new commands 
to the repertoire. It is an attempt to end the 
development of new languages and new ex- 
tensions of old languages by making 
language itself a nonproprietary compo- 
nent of the computer. In simplest terms, the 
goal of MetaBasic is to make the con- 
struction of command words which do not 
exist possible, without modification of the 
compiler itself. In this sense, the command 
words resulting from the precompilation 
stages from interpreter Basic are only the 
JOFES suggested commands; they can be 



changed at the user's will. No compiler can 
be all things to all users, and it is vaulting 
ambition to make such an attempt. To real- 
ize this goal, the very nature of compilation 
must be changed. 

Changing Its Nature 

Traditionally, a compiler searches an in- 
put source program file for recognizable 
command words. Finding them, the com- 
piler creates an output file in a cycle of ac- 
tivities described as "This — Equals— 
That." As long as the compiler must search 
for recognizable command words in the 
source file, however, the compiler fails to 
meet the needs of some users. 

Alternatively, consider a compilation pro- 
cess in which the compiler did not recog- 
nize command words but command syntax, 
or a sequence of symbols which collectively 
comprised a command. It could then con- 
sult a library of commands prepared by the 
user and, from the library, complete the 
compilation process. In this way, the user 
could revise and extend the compiler to 
adapt to the continuously changing hard- 
ware and applications environment of mod- 
ern microcomputing. The capability might 
actually extend the life of an older model 
computer by several years, where it is ser- 
viceable except for its ability to be pro- 
grammed in a new way. 

Although the concept sounds exciting, 
there is a serious hitch in the rope that ties 
it all together. Making up new command se- 
quences is easy; programming their long 
and detailed Assembly language service 
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"The solution is to recognize reality 

and open the hush-hush 

inner sanctum of the operating system. 



subroutines is the work of a professional 
systems programmer. How does one Basic 
programmer, with little more than a begin- 
ner's introduction to Assembly language, 
make use of such a device? The solution is 
to recognize reality and open the hush-hush 
inner sanctum of the operating system. 

A M eta Basic compiler works precisely 
because all the elemental Assembly lan- 
guage subroutines needed are already con- 
tained in the operating system and are 
available to the user through the Call com- 
mand. There is a specific repertoire of such 
subroutines, documented in programming 
manuals and well known by systems pro- 
grammers; they are the first subroutines 
programmed during the development of a 
new operating system. Those TRS-80 Model 
I users who have written disassemblers 
know where these TRSDOS subroutines are 
located and how to use them. The only dif- 
ference introduced by JOFES' ZMonitor op- 
erating system is that this detective work 
has been obviated by publishing the infor- 
mation up front. 

Given that essentially no Assembly lan- 
guage programming will be needed beyond 
the trivial to use the MetaBasic compiler, 
the modestly capable Basic/Assembly pro- 
grammer may set up virtually any kind of 
high-level command he needs. The only re- 
strictions include data formats and syntax. 

Formatting both numeric and character 
data in memory is a picky and nasty busi- 
ness. After every step of program operation, 
the status of referenced data elements 
must be reviewed and updated where 
changed. Because of this, data formats are 
recognized and managed by the MetaBasic 
compiler. While limiting the general user in 
the same manner as traditional compilers, 
the trade-off given is freedom from a truly 
exasperating maintenance function. 

The syntax problem is much simpler. The 
next few pages illustrate MetaBasic syntax 
by making up a new command and showing 
the library module which would be prepared 
for the compiler if the command were really 
used. 

MetaBasic Syntax 

The MetaBasic Compiler is actually not a 
compiler, but a "parsing macro processor." 
With very few exceptions, MetaBasic does 
not recognize command words. Instead, it 
analyzes or "parses" a command format 
before using the parsed elements to 
specialize a standard JOFES macro library 
module. The MetaBasic command line for- 
mat is in Table 1. 

The MetaBasic Compiler will process vir- 
tually anything which conforms to this for- 
mat, In the following steps: 

1. The MetaBasic line is read from the in- 
put file. 



2. The line is determined to be a com- 
mand line, or: 
3. Comment or Assembly language line, 
the latter two being written directly to 
the output file. 
4. Command line is parsed into its func- 
tional components and arranged in a 
macro call argument table in memory. 
5. A final check is made for certain non- 
macro call elements. 
6. The called macro is found in one of the 

macro libraries. 
7. The macro lines are specialized from 
the command line arguments and writ- 
ten to the output file. 
8. Return to step 1 until end of input file. 
Before reviewing these steps in detail, it 
may be useful to examine a typical MetaBa- 
sic command line which is not available but 
for which a particular user has great need. 
His application consists, in this example, of 
retrieving a large number of customer ac- 
counts at random times in a large number 
of programs. He decides to invent the com- 
mand: 1000 :FETCH ACCOUNTS FROM 
FILES ON DRIVES. The command word is 
Fetch. ACCOUNTS is functional element 
one, From is element two, FILES is element 
three, On is element four, and DRIVES is ele- 
ment five. He might also have designed the 
command syntax: 1000 :FETCH ACCOUNTS 
(FILES.DRIVES) in which case there would 
be only the command word and a single 
functional element ACCOUNTS, associated 
with parenthetical modifiers. The analysis 
of these lines proceeds as follows: 

• Step 1— Read Input: A MetaBasic in- 
put file is an ASCII-format sequential disk 
file. Each record is a line of the program. All 
characters between the first position and 
the first blank space on the line must be a 
number from 1-99999. If any character is 
not 0-9, and if the number is not terminated 
by a blank space, the line and the job will be 
aborted. 

• Step 2— Determine Line Type: The first 
nonblank character after the first blank on 
the line must be one of three kinds: a colon 
(:) to signify a MetaBasic command line; a 
semi-colon (;) to signify an Assembly lan- 
guage comment line; or a capital letter (A-Z) 
to signify an Assembly language command. 
Macro call commands ('MACRO = NAME) 
are not permitted in the input file; such calls 
must be processed prior to compilation 
through MetaBasic. (The Precompiler, 
however, will permit macro calls without 
disturbing them.) Assembly language and 
comment lines are written directly to the 
output file. Unknown line types are flagged 
for a Bad Form message and converted into 
comments. Only the MetaBasic commands 
remain for subsequent processing. 

• Step 4— Parse MetaBasic Command 
Line: the first nonblank character after the 



colon begins the parsing process. Note that 
the position of the command elements is 
not as important as their sequence. For ex- 
ample, wherever a blank character appears 
any number of blanks may appear. The in- 
terpreter searches for the next nonblank 
character until the end of the line. The first 
nonblank character after the colon must be 
a capital letter; any other character will 
abort the line. This first character begins 
the command word, which continues until 
the next blank space. The command word 
may be any length, comprised of A-Z, or 
0-9, and the special characters !,#, @,$, %,& 
and period (.) and is terminated only by a 
blank space (any other character will cause 
an abort). All but the first six characters will 
be truncated from the word, and the remain- 
ing 1-6 characters will be examined for the 
exclusive values JP, CALL and RET. If a 
perfect match is found, the line will be con- 
verted into an Assembly language line and 
written to the output file. If those values ap- 
pear in a larger sequence, however, they will 
not be recognized. For example, JPHERE, 
CALLME and RETURN will fail this ex- 
amination. 

Returning to the blank space which ter- 
minated the command word, the compiler 
will search for the next nonblank character, 
which must also be a capital letter. This 
character signifies the beginning of the first 
functional element, the end of which is ter- 
minated by a blank space, a comma, or any 
of the symbols +,-, *,/,<,>,<>,X,< = , 
= <> = , = >. In addition, a semicolon will 
terminate because it is the beginning of an 
in-line comment; a colon will terminate 



Format 






Element 
1 


Description 


Status 
required 


line number 


2 


blank space 


required 


3 


colon 


required 


4 


command word 


required 


5 


blank space 


required il not end 


6 


functional element 1 


optional 


7 


terminator symbol 


required if not end 


8 


functional element 2 


optional 


9 


terminator symbol 


required if not end 


10 


functional element 3 


optional 


11 


terminator symbol 


required if not end 


12 


functional element 4 


optional 


13 


terminator symbol 


required if not end 


14 


functional element 5 


optional 


15 


terminator symbol 


required if not end 


16 


functional element 6 


optional 


17 


terminator symbol 


required it not end 


18 


functional element 7 


optional 


19 


terminator symbol 


required if not end 


20 


functional element 8 


optional 


21 


terminator symbol 


required if not end 


22 


functional element 9 


optional 


23 


terminator symbol 


required if not end 


Table 1. 


MetaBasic command line format. 
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Poor 

Man's 

Floppy 



HIGH SPEED CASSETTE SYSTEM 



Now the widely acclaimed 
JPC Cassette System is available 
for your TRS-80* computer. 
The price is only $90.00 

TC-8 Cassette System 
JPC Products 
Albuquerque, NM 
Kit: $90 
Assembled: $120 




FOR TRS-80 



[Reprint of June 1980 Review, 80 Microcomputing] 

l.OADN and LO A DN" filename ", except it is 

for use with system tapes. 

OPEN: Required before cassette input or out 



by Carl A. Kollar 

1 guess I don't have to tell any TRS-80 owners 
how frustrating the cassette system that 
comes with the computer can be. Even with the 
factory mod that's available, the annoyance of 
loading and checking programs becomes just 
barely tolerable. 

If you're like me, after you've just plunked 
down a chunk of money for a Level II 16K ma- 
chine, "you ain't got nuttin left" for even one 
disk drive at 500 bucks apiece. So you suffer. 

A reasonable alternative is the Exatron 
Stringy Floppy (ESF)- This will cost you about 
250 bucks and totally eliminates your loading 
and saving problems, automatically and fast. 
I've had one of these for about six months and 
love it! 

But, if the price is still too steep, have I got a 
device for you! 

The Device 

The February 1980 issue of Microcomputing 
had an ad that intrigued the hell out of me. It 
was a high-speed cassette system by JPC Prod- 
ucts acclaimed as a "poor man's floppy." It 
made all sorts of seemingly ridiculous claims 
such as "loads five times faster," "stores 50,000 
bytes on a 10-minute cassette," "less than one 
bad load in a million bytes with the volume con- 
trol anywhere between one and eight." 

All this for a measly [90] bucks? How could 
this be? A call to Albuquerque answered a few 
questions: Yes, it had its own power supply, 
and, it stored programs five times faster be- 
cause it utilized higher density data. The com- 
puter outputs the information at a higher rate 
out of the rear keyboard connector. 

The ad had even claimed anyone could build 
it even if you have never soldered before. JPC 
would make it work, if you couldn't — for free. 
I was sold. I placed my order, and it arrived 
about two months later (parts shortage). 

1 work in electronics, so I found the unit ex- 
ceptionally easy to build. It took about an 
hour. The manual is superb. (That's better than 
great.) It was clear, concise and exact with no 



ambiguities. Important parts placements are 
stressed (polarity markings on electrolytics, 
bands on diodes, etc.). 

JPC was right! With these instructions, you 
couldn't go wrong. The board quality is excel- 
lent. It is double-sided and parts locations are 
clearly marked on the component side of the 
board. There are no jumper wires to install. 
JPC utilizes PC traces and plated-through 
holes for connections to traces on the other side 
of the board. 

Also, there are absolutely no adjustments or 
settings to bother with. 

The documentation is a sheaf of 8 Vi x 1 1 pa- 
pers stapled together. It is written in the nicest 
format I've seen in a while. Each command 
and/or subjects is covered on its own sheet in 
large type. All explanations are in easy to read 
English — not computerese. 

Commands and Features 
SAVE" filename": Saves your BASIC pro- 
gram on cassette. 

LOAD: Reads the next BASIC program from 
the cassette. 

LOAD" filename": Searches for and loads the 
specified file from cassette. 
LOAD? and LOAD? "filename": Reads file 
from cassette, and compares contents to mem- 
ory. 

LOADN: Prints a list of all the programs on a 
cassette, until interrupted by the "break" key. 
LOADN'Tilename": Same as above except the 
tape will stop at the end of the program named. 
KILL: Removes the file manager program 
from memory so that the extra memory can be 
used by large programs. 
RSET: Allows the operator to rewind and posi- 
tion the tape on tape recorders that have these 
functions tied to the motor control jack. 
RUN "filename": TC-8 searches for a specified 
program and runs it immediately. 
PUT"filename": Same as SAVE "filename", 
except it is for use with system tapes. 
GET: Same as LOAD, except it is for use with 
system tapes. 

GET"filename": Same as LOAD "filename", 
except it is for use with system tapes. 
GET? and GET?"filename": Same as LOAD? 
and LOAD?"filename", except it is for use 
with system tapes. 
GETN and GETN" filename": Same as 



put of a data file can be attempted. 
CLOSE: Required to end a cassette data file. 
PRINT*: Allows numerical or string data to be 
output to a cassette file. 
INPUT*: Allows numerical or string data to be 
input from a cassette file. 

I haven't counted them, so 1 don't know 
about the "one load in a million bytes" claim, 
but my son, Anthony (age 11), loaded about 30 
of his programs from his Radio Shack format 
tape to a new TC-8 format tape. He's run them 
all and found no bad loads. 

Unlike the standard tape system, you can po- 
sition your tape anywhere before the program 
you want and not have to look for a blank spot 
between programs. The TC-8 patiently waits 
for the program you want and then starts load- 
ing without getting confused by the portion of 
the previous program you just fed it. 

Try that on your regular cassette system; 
you'll wear out the reset button.! 

ORDER NOW 

To order your TC-8 kit, send your check or 
money order for $90.00 plus $3.50 postage 
and handling to JPC PRODUCTS CO., 12021 
Paisano Ct., Albuquerque, NM 87112 (New 
Mexico residents add 4Vo sales tax). Credit card 
orders accepted by phone or mail. Personal 
checks will delay shipment. We will otherwise 
immediately ship you the TC-8 kit, the cabinet, 
the ribbon cable, the power adapter, an instruc- 
tion manual, and a cassette containing the 
software. 



IUjpc pi 

^^Phnnp /Rf 



^190 



PRODUCTS CO. 
Phone (505) 294-4623 
12021 Paisano Ct. 
Albuquerque, N.M. 87112 



^See Listot Advertisers on page 402 
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". . . JPHERE, CALLME and RETURN 
will fail this examination." 



Argument 




Number 

1 


Contents 


command word 


2 


line number of source input file 


3 


nth time this command has been used in this program 


4 
5 
6 
7 
8 
9 
10 


number of functional elements in this call 


Functional element number 1 


11 


number of parenthetical subelements in this element 


12 


subelement number 1 


13 


subelement number 2 


14 


subelement number 3 


15 


subelement number 4 


16 


subelement number 5 


17 


subelement number 6 


18 


terminator symbol which ended this functional element 


19 




20-29 


Same as 10-19, for functional element number 2 


30-39 


Same as 10-19, for functional element number 3 


40-49 


Same as 10-19, for functional element number 4 


50-59 


Same as 10-19, for functional element number 5 


60-69 


Same as 10-19, for functional element number 6 


70-79 


Same as 10-19, for functional element number 7 


80-89 


Same as 10-19, for functional element number 8 


90-99 


Same as 10-19, for functional element number 9 




Table 2. Macro call structure. 



because MetaBasic allows only one com- 
mand per line. The colon will be converted 
into a semicolon without comment or error. 
If a left parenthesis "(" is encountered while 
searching for the terminator symbol, the 
compiler will search only for a right paren- 
thesis ")" before resuming search for the 
terminator symbol. The first functional ele- 
ment will be separated from its parentheti- 
cal unit (e.g., "ABS(A)", where "ABS" will be 
separated from "(A)"), and the functional 
element will be truncated to six characters 
if it is longer. It will then be examined for an 
exclusive match against "EQU." If a match 
is found, the line will be converted into an 
Assembly language command and written 
directly to the output file. 

If a parenthetical unit was found at- 
tached to the first functional element, it will 
be examined internally for one to six subele- 
ments. A parenthetical subelement may 
contain the same character range as the 
command word; multiple subelements 
must be separated only by a comma. 

Returning to the symbol which terminat- 
ed the first functional element, the compiler 
will search for the next nonblank character 



OVER 75 TRS-80 PROGRAMS ON TAPE 
EACH YEAR... 



For the MODEL I III: 

Or Ebenezer Goad wiped his glasses off — and grabbed for his 
gold pouch I With CLOAD Magazine, he could use and enjoy 
his computer for the price of a turkey with stuffing I And he could 
send Bob home early, since the programs did not have to be 
typed in I 

He now gets a 30 minute tape each month with 7 or more 
practical, tutorial, utility, and game programs to CLOAD and 
run. While he CLOAOs the programs, he reads the editor's 
babblings that come with each tape. 

Don't let ghostly images cloud your TRS'80's screen. Get a 
subscription to CLOAD Magazine! 

The Fine Print) The Bottom Llnei 

Issues are sent First Class Mail. ) year (1 2 issuesl $42.00 

All issues from Oct. 78 on available — 6 months (6 issues) $23.00 

ask for list (24 Level I issues also). Single copies — 

Programs are for I6K Level II, I6K Back issues $$4.50 

Model III, and occasionally for disks. Good Games #l $12.00 

Calif, residents add 6% to single Adventures #1 $13.00 

copies and anthologies. Overseas — Anthology #1 S 10.00 

add $10 to subscriptions, $5 to Anthology #2 $15.00 

anthologies, and $1 to single copies. TRS-tO is a trademark of Tandy Corp. 

Sent AO rate. MasterCard/Visa/Gold also welcome 
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". . . an external name needs to be 
defined only once for the entire program." 



as the beginning of the second functional 
element. Its analysis will continue in the 
manner described above for the first func- 
tional element. There may be as many as 
nine functional elements. 

The Macro Library 

The internal macro call table is essential 
to implement compiler command lines. The 
macro library module providing the Assem- 
bly language used by the compiler must ref- 
erence these syntactical elements; it does 
so according to the standard JOFES 99-ar- 
gument macro call structure (Table 2). 

Standard macro writing procedures, 
referencing these argument numbers, will 
include the correct Assembly language in 
the compiled program. For example, the 
MetaBasic command line, 1000: FETCH AC- 
COUNTS (FILE$,DRIVE$) where ACCOUNTS 
is the functional element associated with 
two subelements FILES and DRIVES, will be 
serviced by the macro library module: 

1000 MACRO = FETCH 

1010 FT&&02 EOU % ;LINE &&02 



1020 


BOOL((&&00) = (1)> 


1030 


FETCH EQU 0000H;OEFEXT 


1040 


ENDBOOL 


1050 


CALL FETCH 


1060 


'BOOL((&&04)»(1» 


1070 


DEFW&&10 


1080 


'ENDBOOL 


1090 


"BOOL «&&04)< ><1)) 


1100 


;• • • ERROR IN ACCOUNT NAME ' * ' 


1110 


ENDBOOL 


1120 


•BOOL((4&11) = t2)) 


1130 


DEFW 4&12 


1140 


DEFW &&13 


1150 


ENDBOOL 


1160 


■BOOL«&&11)< ><2)) 


1170 


;***ERROR IN FILE NAME OR DRIVE 




NUMBER'" 


1180 


■ENDBOOL 


1190 


'ENDMAC 



The result of this command will generate 
the Assembly language. 

The entry tag FT1 000 was generated from 
argument two so the source-code program- 
mer could refer to this routine by a constant 
name. The same information appears on 
the end of the line in a comment. Because 
this is the first time this macro has been 
called in this program, the external refer- 



ence is generated at line 1010. In a second 
or successive call this line would be 
dropped out; an external name needs to be 
defined only once for the entire program. 
The address for the data variable AC- 
COUNTS has been truncated to the most 
significant six characters, "ACCOUN." 
Since the names of the file and drive were 
not longer than six characters, they were 
defined in their complete form. If the ac- 
count name had been missing, or if either of 
the file name or drive number parameters 
had been missing, the appropriate error 
message would have been included in the 
program instead. 

The program Fetch called in this sample 
has been assumed to be external to this 
program and, therefore, flagged with the 
DEFEXT indicator. If it were another macro 
called into this program in source form the 
macro programmer would not have includ- 
ed the DEFEXT comment on line 1030 of the 
macro module, instead, a macro call to 
Fetch would appear elsewhere in the pro- 
gram, and the program would have passed 
through the Assembly language macro pro- 



. . . FOR UNDER $0.75 (that's SIX BITS) APIECE I 

For the COLOR COMPUTER: 



You just spent your vacation money on the Extended 
BASIC Color Computer, and now you want to buy 
software!!!??? 

Don't skip meals — get CHROMASETTE Magazine! Each 
month your computer will get a balanced diet of 6 or 
more programs on cassette (just load and run!). Along 
with the tape comes some notes on the programs, along 
with tidbits on the Color Computer world. 



The Fine Print: 

Issues are sent First Class Mail. 

All issues from July 81 on available — ask for list. 

Prosrams are for the Extended BASIC model only 
Calif residents add 6% to single copies. Overseas — 

add $10 to subscriptions, add $1 to single copies. 
Sent AO rate. 

MasterCard /Visa welcome! 






Chromasette Magazine 

PO Box 1087 Santa Barbara, CA 93102 
(805)963-1066 ** 



Chromasette Magazine 

for those who relish every byte (that pun even hurt me). 

The Bottom Line: 

1 year (12 issues) $45.00 

6 months (6 issues) $25.00 

Single copies $5.00 



^See List ot Advertisers on page 402 



. the manufacturer who insists upon continuing 

to do every little thing for its customers 

will defeat its own purposes/' 



cessor before compilation. This illustrates 
a major difference between macro process- 
ing in Basic and in Assembly language. The 
Basic macro processor recognizes com- 
mon macros and calls them into the pro- 
gram only once during each specialization 
run. It also arranges the various macros at 
different locations of the program. By con- 
trast, the MetaBasic Compiler includes 
every macro exactly where it is called, every 
time it is called. The macros Intended to 
function as common within the Assembly 
program must be brought in expressly by 
the programmer; the Compiler could not 
otherwise know when a macro is intended 
to be internal or external. 

A good way to become accustomed to 
writing Assembly language macros is to 
compile a small program, list it, and then 
list the macros in the macro libraries used 
during specialization. The names of the 
macros are the first six letters of each 
MetaBasic command word. Thus, Load is 
both a MetaBasic command word and the 
name of a macro library module. 

Much of what is called "common sense" 



is information acquired through noninstitu- 
tionalized education— just being around 
the subject and around other persons in- 
volved in that subject. Thirty years ago, 
there was no common sense surrounding 
the subject of computers. Today thousands 
of people have their own computers, get 
together in a variety of commercial and 
social contexts, and exchange their knowl- 
edge. The appearance of a body of "com- 
mon sense" about computers is the hall- 
mark of a maturing, socially Integrated 
industry which will take a new shape and 
direction of its own, essentially beyond the 
control or influence of any manufacturer. 

While it was formerly required that the 
computer hardware manufacturer provide a 
broad range of assistance devices In the 
software sphere because of the general 
lack of common sense In the user communi- 
ty, that is no longer true. Like a parent who 
cannot adjust to the maturity of his or her 
child, the manufacturer who insists upon 
continuing to do every little thing for its cus- 
tomers will defeat its own purposes. It is not 
unfair to state that the single greatest limi- 



tation on the usefulness of microcomputers 
today, and those microcomputers in the 
TRS-80 Model I class in particular, is the lim- 
itation imposed by the "helpfulness" of the 
manufacturer. 

Optimal economies cannot be achieved 
by so many different kinds of users until the 
manufacturer— or some other source— pro- 
vides tools which continue to help in a dif- 
ferent way. The twenty-five-year-old "child" 
occasionally needs help, but not in the 
same way he needed help at age ten. The 
user community stands in this posture to- 
day as we seek optimized economies in the 
application of our microcomputers. We do 
not need to be told what to do and how to do 
it at every turn. 

MetaBasic is one, perhaps the first, at- 
tempt to move into this new sphere of ma- 
ture support for the microcomputer user. It 
will not be the final solution to this need. 
With another five years' experience, the 
community as a whole will determine new 
and vastly improved devices for acquiring 
that support appropriate to contemporary 
economic need.B 



COOSOL DISCOUNTS 



v*n 



PRINTERS 




Epson MX80 


8541-0001 


S4WCALL 


Epson MX70 


8341-0005 


$699 CALL 


Epson MX80 GRAFTRAX 


8541-8915 


JS6#CALL 


Epson MX80 F'T 


8641-0001 


5599CALL 


Epson MX80 F T GRAFTRAX 


8541-0075 


ww O A LL 


Epson MX100 


9624-0024 


$*9S-CALL 


Epson cables and cards. . . . 




. . CALL 


NEC Spinwnter 


5510-1 


$2495 


NEC Spmwnter 


5515-1 


$2495 


NEC Spinwnter 


5520-1 


$2880 


NEC Spinwnter 


5525 1 


$2950 


NEC Spinwnter 


5530-1 


$2495 


NEC Accessories 




CALL 


ANACOM Paralie 1 


ANC150P 


S1195 


ANACOM SERIAL 


ANC150S 


$1195 



Registered Trademark ol Tandy Corporation 
•FACTORY DIRECT 



CPU— TERMINALS— SOFTWARE 

ADOS COMPUTER SYSTEMS 

• MUITIVISION3. Step 3 516-019000 $11,275 

• MULTIVISION 3. Step 2. 516-018000 $10,172 

• MULTIVISION 3. Step 1. 516-017000 $ 9.070 

• MULTIVISION 2 516-020000 S 7.520 

• MUL TIVISION 1 516-006000 S 3.312 

• AODS ACCESSORIES & SOFTWARE CALL 

ALTOS MTU FLOPPY HAFIUOISK 

• 8000-fMTU 1Mb FL 172MT $12118 

HARD FLOPPY DISK 

208K RAM. S&P- 10. 10Mb 8 HARD DISK 

• 1Mb FL'17 2 MT8000-10MTU $ 9.616 

• 1Mb Floppy 8OO0-10D $ 7.875 

• 1/2Mb Floppy 8000-10 S 7.438 

• ALTOS Accessories 4 Software CALL 

TELEVIDEO TERMINALS 

• 91 OC S595 • 91 2C S705 

• 920C S750 • 950C S959 

• TEI E VI DEO Accessories CALL 

NEC COMPUTER SYSTEMS 

• NEC Computer PC-8001A S 1.056 

• NEC I O Unit PC-8012A S 626 

• NEC-lOPort PC-8033A S 152 

• NEC-DISK DRIVE PC-8031 A $ 1 .056 

• NEC DISK DRIVE PC-8032A $ 931 

• NEC Gr Monitor JB-1201 $ 220 

• NEC Col Monitor JC-1202 $ 995 

• NEC Accessories & Software CALL 



"COOSOL DATA LOGGER 




TRACTOR FEED. M COLUMN 

• HEAVY DUTY-CONTINUOUS USE 

• 5 X 7 UP TO 10 X 14 CHARACTER DOT MATRIX 

• UPPER LOWER CASE 

• BIT PLOT GRAPHICS 

• SERIAL AND PARALLEL INTERFACES 





P«rt No. 


Pric« 


Kil 


101B-80KE 


495 


Assembled 






A Tested 


101B-80E 


S545 



COOSOL 4$ COLUMN PRINTERS 
ARE AVAILABLE AT S355 



COOSOL CABLES 

Parallel S29 00 

Serial S29 00 

TRS-80 Model r $69 00 



COOSOL, INC. P.O. BOX 743, ANAHEIM. CALIFORNIA 92805-0743 (714) 545-2216 
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INTRODUCING PMC-81 




A New "Workalike" Computer In The PMC-80 Family 



The PMC-81 is a disk oriented computer 
which maintains software compatibility 
with the disk-based Level II TRS-80* 
Model I computer as well as its sister 
PMC-80. 

The PMC-81 starts with 16K of memory, 
14K of ROM, utilizes a Z-80 micropro- 
cessor and contains a complete stand- 
ard keyboard, built-in amplifier and 
speaker for sound, cassette interface 
and video monitor interface. Like the 
PMC-80, the PMC-81 uses the same 
EXP-100 Expander to add 32K more 
memory and interfaces for mini floppy 
disks, printer, RS-232C and S-100 bus. 

As a workalike computer, the PMC-81 
offers some extras over the original TRS- 
80 Model I. First, the PMC computers 
are still in production and being sold as 



brand new units with software compati- 
bility to all previous Model Is. Second, 
we offer S-100 bus interface as an option 
in our Expander. Third, our PMC-81 has 
a user callable keyboard routine that 
provides upper and lower case charac- 
ters with an identifiable blinking cursor 
for each case plus automatic repeat for 
each key and a print screen command. 
Fourth, the PMC-81 has both a Host and 
a Dumb Terminal routine in the ROM 
which work with the optional RS-232C 
interface in the Expander to permit 
communication between two PMC-81s. 
The Dumb Terminal routine also may be 
used to communicate with timeshare 
networks or with bulletin boards. 

Best of all, the price for either the PMC- 
80 or PMC-81 is below the price of our 
competitor's offering. 



* TRS-80 is a trademark of Tandy Corp 

Personal Micro Computers, Inc. -« 

475 Ellis Street, Mountain View, CA 94043 (415) 962-0220 



TECHNIQUE 



For those of you who must edit and run. 



Chain Command 
Implementation 



Roger L. Pape 
7545 Marble Drive 
Liverpool, NY 13088 



Have you ever wanted to change a pro- 
gram after spending much time enter- 
ing variables? This article describes a pro- 
gram chaining that will allow you to edit 
programs and continue execution without 



losing previously entered or calculated 
values. 

The routines are designed primarily for 
cassette-based systems. The chain com- 
mand is essentially equivalent to the 
CLOAD and run commands, Including an 
optional file label character or starting 
statement number. 

The procedure used to save variables 
while modifying source code in the current 
program is split Into two function calls. The 
first call moves the variables to upper 



(40A4/5)- 

(40F9/A)- 

(40FB/O- 
(40FD/E)- 



(40AO/D- 
(40BI/2)- 



RESERVED AREA 



I/O BUFFER SPACE 



BASIC PROGRAM 
SOURCE STATEMENTS 



SIMPLE VARIABLES 



ARRAY VARIABLES 



FREE SPACE 



STRING STORAGE 



PROTECTED AREA 



4000, 



TOP OF 

MEMORY 

Fig. 1. RAM Memory Organization and Pointers in TRS-80 Level II. 
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memory and protects them. Then control 
returns to the command level. Use existing 
system commands to delete, insert or edit 
lines. After all modifications are made, a se- 
cond function call restores the variables to 
their normal position and resumes execu- 
tion at any point in the program. The second 
function should only be permitted if the 
variables had been moved earlier. Unique 
keywords should be defined for the three 
functions. The choice of Chain is obvious. 
For the command to protect variables 
before modifying the program, I selected 
Change. Restart was selected to denote the 
rerunning of the program. 

Because the preserve-while-editing fea- 
ture might be used at any time, these rou- 
tines will remain in memory. Therefore, the 
package is as compact as possible and in- 
stalled in protected high memory. Finally, 
this version is self-installing, relocatable 
below any other patches already loaded in 
upper memory. 



Calling Convention 

The standard system commands and 
functions are converted to single byte to- 
kens when statements are entered. This 
process not only saves space, but also 
eliminates the time required to match 
strings of characters to a table of keywords 
when the program is executed. When addi- 
tional commands are included, you should 
also use tokens, particularly if the com- 
mands are inserted in program statements. 
Otherwise, the character strings in 
each statement must be compared to the 
additional keywords as the statements are 
Interpreted, slowing down execution time 
significantly. Unfortunately, though, almost 
all the possible 128 token values are used in 
the TRS-80 Level II software and there is no 
provision to extend the set with a second 
token byte. 

Rather than add functions as separate 
commands, treat these functions as exten- 
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The jury is in and the verdict is . . . "outstanding!" 
Reviews from all of you who purchased MAXI 
MANAGER (not to mention raves by many top 
microcomputing magazines) have heralded it as the 
definitive data base managing system. We knew that 
business owners and hobbyists demanded the finest 
data base managing system available. To all of you 
who praised us for MAXI MANAGER, we extend our 
thanks. And to those of you who have yet to try MAXI 
MANAGER, we invite you to experience this incredible 
system today. But don't take our word for it (or our 
jury's). Judge for yourself. 



JUST CHECK SOME OF THESE FEATURES 

Supports six different relational search techniques. 

Comes with programmers interface. 

Over 120 pages of documentation. 

Supports up to 20 user defined fields of 40 characters each. 

Record length up to 800 characters. 

Files can be up to four disks in length. 

Compatable 35, 40, 77 & 80 track drives with proper 

operating system 

Has calculated equation fields. 

Complete report generator. 

Works hand in hand with any word processor. 



MODEL 1 version requires TRSDOS 2.3 and is compatable with 
NEWDOS 2.1 & NEWDOS 80 

MODEL 3 version comes on TDOS. a special version of the DOSPLUS 
operating system. 

Requires 48K of RAM and one disk drive minimum 



Order 




"The routines are designed 
primarily for cassette-based systems." 



sions of an existing command. Certain 
commands include "hooks" in the reserved 
RAM area to provide for changes. At some 
point in the processing of these commands, 
program execution jumps to the RAM area. 
The default code stored there at power-up is 
simply a Return instruction. However, it can 
be modified to a jump that transfers execu- 
tion to an area where the extensions have 
been loaded. One of the modifiable com- 
mands is Run. Therefore, it was decided to 
invoke the functions with Run Chain, Run 
Change, and Run Restart as the form of the 
commands. The patch will be entered only 
when a Run command is being processed, 



not as each line of code is interpreted. 

Description of Routine 

To obtain the compactness of Program 
Listing 1, 1 used existing Level II system rou- 
tines and pointers stored in the reserved 
area. All the code to be installed is "position 
independent" so that it can be automatical- 
ly relocated below existing routines. Re- 
turns to the system assume Level II (cas- 
sette-based) operation. Modifications 
would be required to operate with a DOS. 

Code to Install Patch 
The first portion of Program Listing 1 



simply assigns labels to the various entry 
points in ROM and the storage locations in 
the reserved area where values and pointers 
needed in the routines can be found. Lines 
440 to 610 are used only when first loaded to 
move the routines up into the highest avail- 
able memory space, install the vectors to 
the patches and set the memory size point- 
er to protect the relocated routines. The in- 
stallation code is not protected, so it will be 
overwritten later by the string storage. The 
value in the ORG statement is arbitrary. It 
may be any convenient starting point in 
memory where the machine code can be 
stored temporarily as it is loaded from tape. 



(I)MOVE VARIABLES TO 
PROTECTED AREA 



(o)STRINGS 



(b) 



OLD 
PROGRAM 



VARIABLE 
STORAGE AREA 



RELOCATED 
VARIABLES 



STRING 
STORAGE 



AREA 



(2) L0A0 NEW PROGRAM 





NEW 
PROGRAM 











Fig. 2. Chain Sequence 



(3) RESTORE VARIABLES 



NORMAL 
VARIABLE 



STORAGE 



AUTHORIZED TRS 80® DEALER #R491 





26-1062 

Model III 16K RAM 
Model III, BASIC 




26 - 4002 

Model II, 64K 



TRS-80 Color Computer With 
Extended Color BASIC 

$825.00 

WE ACCEPT CHECK, MONEY ORDER, OR PHONE ORDERS WITH VISA OR MASTERCARD. SHIPPING 
COSTS WILL BE ADDED TO CHARGE ORDERS. DISK DRIVES, PRINTERS, PERIPHERALS, AND SOFT- 
WARE-YOU NAME IT, WE'VE GOT IT. WRITE OR CALL FOR OUR COMPLETE PRICE LIST. 

C & S ELECTRONICS, LTD. 32 EAST MAIN ST. MILAN, MICH. 48160 

(31 3) 439-1 508 (31 3) 439-1 400 " 145 

C_& S ELECTRONICS MART IS AN AUTHORIZED TRS 80- SALES CENTER STORE #R491 
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November Super Specials! 



Software 



JRE SPECIAL Rubik s Cube by Elf II 
A WKto adaptation at the immensely popular Rubik's Cube 
by Ideal Six sides are displayed simultaneously. Saves current 
cube to tape for later play Required equipment. R S. Lvl II 
or ill. 16 K 
Rubric's Cube . Stock *403 

Introductory Special $6.95 (1 lb I 

MASTER GUESS BY FLFN Stock No 401 
with TRS graphics for more concentration! 
(See our September ad for more detail I 

Still Just $6 95(110.) 
Required Equipment R S. Lvf II or III. I6K 






REFLECT— TRS BY FLFJI Stock No. 402 
trie exciting new "Minder Binder" game 
(See our October ad for complete Information! 
S9 9S for the cassette (I to.) 

BILLIST THE HOVE MANAGEMENT TOOL- 
StockNo 400 

(See our September ad for air tacts) Required Equipment 
R S. Lvl II or IN with 16 K :■ 






Hardware 



FEATURE SPECIAL. .HARDWARE BOOKS 

Self reaching guides that make >t so much more fun 

CHOICE OF TWO both tern fie I 

TRS80 "BASIC games, graphicsandpracticalapplications 

Stock No 600 (reg$8 95J S7 95 

MORE TRS~ 80 BASIC . .explains ail TRS-80 level ll Basic 
statements, commands and features not covered In above. 
Stock No 601 (regS8 95| S7 95 

MANY OTHER TITLES AVAILABLE - CALL OR WRITE 
FOR LIST 

COMPUTER EQUIPMENT 

Stock 

No. Printers Price* 



903 Plastic Lbrary case for 8 (lib.) S 4 99 
CALL FOR BEST PRICES ON . . . 
PERCOMANOMQRE 

RIBBONS AND WHEELS 

Stock No. Ribbons 



Price Weight 



500 Zip pack LPI. II. IV 

Muitistnke carbon 

501 Diablo hy type 

502 Oume 

503 NEC 



S 16.00 

S 12 95/3 
S 9 95/3 

S2Q45/3 



lib. 

lib. 
I to. 

I to. 



MAGNETIC MEDIA-OUA.i i* DISCOUNTS— CAU 



200 
211 



212 
201 
203 
204 
205 
207 
213 

904 
905 



OkkJata MicroJine 80 

THE NEW A'sl OKIDATA 82 A 

120 cps FAST ... Bidirectional 

with LC decender 

83 A | with 13 inch carnage) 

Oktoata Mlcroiine 82 

Tractors 

RS 232-256 char buf 

RS-232-2Kcharouf 

Centronics 737-1 [$150 00 Rebate) 

Centronics 739-T 

with dot addressable graphics 

Novation C. A. T. 

Novation 0. C. A. T. 



S389 00 



S575 00 
$849 00 
SS59.00 
S60 00 
SITS 00 
S255 00 
$699 00 

$849.00 
$14500 

$155.00 



Stock No Verbatim w/Datalife 
(with hub rings) 



Price Weight 



103 MD 525-01 

104 MD 525-01 w/piast<c case 

105 MD 525 10.-16 

MD 525-10, 16 w/plasnc case 
109 FD 34-8000 



110 with hub ring 

and hard box 



S26 95 
$27 95 
$26 95 
$27 95 
$39 93 
(XI0S360 00) 



I to 
ito 
ito 
ito 
?to 



$43 95 2 to 

;XIDS4C0^0I 



MEMORY CHIPS— CLOSE OUTI 
Stock No 



en e 



Weight 



COMPUTER ACCESSORIES 



900 Flip sort acrylic dustproof storage 

for 50-60 Diskettes ( 5 '/TdiscsJ $ 23 95 

901 Same [for 8- discs) $ 24 95 

90? Plastic Lbrary case for 5* (lib.) $ 2 99 



800 Motorola Ceramic 16 K 200 ns 
memory chips for 

Mod I. E I. Mod ill $19 95/8 2 lb 

NO BETTER 200 MS CHIPS • ■ „ 
AVAILABLE' 

801 Shunts tor Moo I $4.00 lib 



SHIPPING INFORMATION 

• WE PREPAY ALL ORDERS OVER $50 001 



NOTE . . . these ate our prices at the time of publication 
because of 2 months delay in publication they 
couJd be even less ... CALU 



SHIPPING • $2 5C <c first 3 to 551 each tor aid ticna os 
RATES •COO's add $2.00 JUS only) 

• Foreign orders. $3 00 lb. surface. S 7.00 to. Air PP 

• P.O. Boxes— include phone number for UPS 
Please allow one to two weeks for checks to clear 

DISCOUNT | 3% Cash Discount from total | including shipping 
I and handling) 
I Cash. Check. MO. or COD 



P.O Box 1567. Wheaindge. Colorado 80034 

Colorado Residents add 3% Sales Tax 

CALL COLLECTI 24 HOUR LINE f-303-431-4154 




•* ii 



ATA INC. 



»-S»« Ltt of 4<ftcsf iscre on pajp * & 
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® 



GRAPHICS 



512x240 RESOLUTION 



forTRS-80® MODEL II 

Also for Zenith Model 89 & Superbrain™ 



XCEL GRAPHICS UNIT — A completely assembled hardware retrofit package providing high resolution graphics 
display, normal video display or both displays simultaneously. $895.00 




$175.00 



XCEL T ' 
< 



SYMBOL GENERATOR-Subroutnes lo 
generate characters and strings with bold 
lace and 90* rotation options circles arcs 
vectors rectangles, area fills with reverse 
video option All callable from your programs 



$175.00 



XCEl' 



GRAPH PLOTTER-Choce of four represen- 
iatK)ns (ime graph histogram bar graph and 
scatter plot! with automatic annotation ot axes 
aid automatic scaling that allows any number 
of Functions to be displayed on one set of axes 
A;' callable from your programs ^ 







XCEL TI 
< 



$345.00 

3-D GENERATOR— User accessible rou- 
tines for creation editing and viewing wire- 
frame ' obtects from any angle and m any 
orientation with scaling zoom and a graphics 
editor 



$395.00 

XCEL™ SURFACE PLOTTER-True perspective view 
with full hidden line removal ot curved 
surfaces from a user def.ned viewpoint 
callable from your programs ^ 

$395.00 

XCEL™ GRAPHICS TERMINAL— Emulates a subset 
ol the Tektronix® 4010 Series Graphics 
Terminal lunctions Simple menu-driven key- 
ooa r d commands 'or configuration and dot- 
dasn and erase mode vectors 




XCEl ,M software packages operate under CPM® and utilize the Microsoft parameter passing mechanism for 
compatibility with high level languages, such as BASIC. FORTRAN. COBOL. PL1 . and PASCAL XCEL software can be 
loaded into high memory and called from your programs or integrated directly into your programs through use of the 
Microsoft linking loader 

FORADDITONAl PRODUCT INFORMATION (800) 421*1423 



IN CONTINENTAL US CALl TOLL FREE: 



IN CALIFORNIA CALL 



Zn\ 



(213) 320-6604 
MAXTEK.INC. 2908 Oregon Court, Torrance, CA 90503 -™ 

ne CPM register«(W»aaem3ik ig.tal Research 



TBS 80-'eg>siP'ed naoemark Tan<>v Co<p» Supetxam trademark intertec Data Systems Tektronix tegistereo trademark Tefctrom 



'. . . any absolute memory reference 

to the table must be avoided 

if the code is to be relocatable. . . " 



After moving the stack pointer temporari- 
ly to the I/O buffer area, the routine points 
the HL register pair to the end of the code as 
loaded from tape and points DE to the last 
available memory location as determined 
from the value stored in the reserved area. It 
then performs a block transfer from the end 
to the start. Jump Instructions are then 
loaded into the appropriate reserved area 
locations to provide for the Run command 
extension and to intercept the return from 
the CLOAD routine. Finally, the value of the 
first location of the code that was just in- 
stalled is again loaded into HL before re- 
turning to the system software in ROM. 

This re-entry point corresponds to the 
code following the memory size dialog, so 
the value in HL is decremented and stored 
as the new memory protect value. The 
string storage area and stack are also re- 
located below this point. This is a conve- 
nient technique that can be used when any 
machine language routine is loaded in high 
memory. Simply load the address of the 
lowest location to be protected into HL and 
jump to 00E7H when returning to Basic. 
This will automatically protect the routine 
and relieve the user of having to remember 
what memory size value to enter. 

Scanning a Keyword Table 

The remaining part of the code in Listing 
1 represents the routine that remains resi- 
dent in protected memory. Lines 630 to 880 
check the characters following Run for the 
new keywords used in this patch. Although 
the table of new keywords is stored within 
this portion of code, any absolute memory 



reference to the table must be avoided if the 
code Is to be relocatable in any area of 
memory without modification. 

This feat is accomplished by the Call Get- 
PC statement. A short routine in ROM is 
called which simply POPs the return ad- 
dress from the stack into HL and jumps 
back, so that HL contains the address fol- 
lowing the call statement on return. 

The keyword table is set up in the same 
way as the Basic keyword table in ROM. The 
first character of each keyword has its most 
significant bit set. After the last word, a 
value of 80H Is used to terminate the table. 
By defining the keyword in this manner, we 
can use the same routine in ROM that is 
used to scan incoming statements for 
Basic keywords. This system routine at- 
tempts to match the character string 
pointed to by HL to the keywords in a table 
pointed to by DE. If a match is found, a 
value is returned in both the B and C regis- 
ters which corresponds to the index of the 
keyword in the table plus 80H. A value of 
80H is returned if Chain is found, 81 H for 
Change, or 82H for Restart. If no match is 
found, we can exit from the patch. 

When a keyword match occurs, the point- 
er to the remaining characters of the line 
must be saved for later, in case a file name 
and/or line number is included in the com- 
mand. When Restart is encountered, check 
to make sure that a Change command had 
been issued earlier. If not, the command is 
invalid and is ignored. 

Moving the Variables 
Lines 890 through 1360 are common to 




80 Microcomputing does not keep 
subscription records on the premises, 
therefore calling us only adds time 
and doesn't solve the problem. 

Please send a description of the prob- 
lem and your most recent address 
label to: 

80 Microcomputing 
Subscription Dept. 
PO Box 981 
Farmlngdale, NY 11737 



Thank you and enjoy your subscription 



BIG CP/M* 

programs 

on TRS-80* 

MODELS 1&3 



Pluggable Board (no soldering] with 4S/64K 
Operating System S/D Density 5' 4" on Mod 3 
plus 8" on Mod 1 Memory expanded by 
overlaying ROM with RAM Date/clock w/battery 

48K CP/M* (minimum system) $1 99. 

64K CP/M- Memory A clock $490. 

48K CP/M* (it's expandable) $340. 

C.0.0. Visa or Mastercharge 



F.E.C. 



Ltd. 



P.O. Box 2368 Woburn. Ma. 01888 0668 
(617) 944-5329 



•Tandy Corp. 
"Digital Research 



**« ALIEN INVADERS » * • 

At last *n Invadi.hS gaae OOQD ENOUGH to 
be ottorej by 881. 14 you like feet novinq 
action, high Interest, and challenge, diff- 
iculty of pljy froa beo Inner to SUPERSTAR. 

* * ALIEN INVADERS * t* 
fteq'd lt*-Tape •19.93 32*".-0l«k e24.es 

* * ONE DISBK UBERB * * 

Nov. you can have a utility prograa that 
will give you one of the nost laportent 
advantages of aulti-disk users. Copy one 
file at a tine from an existing disk to a 
new systoa disk without copying the whole 
disk, use ZCOPY and stake your disk svsteei 
as versatile as sulti-dtsk users. 
ICOPY ?2K-one Disk Tape «I4.99 

To place orders (816) - 336-421 1 

reOTOREI DISKETTE (10 I 9 1/4* e29.93 

HX-lOO PRINTER M/CMLC •*■*.«« 

CKIDATA MCROLINE PRINTER H/CABLE.. ..•»*». *B 
8HIPRINB | H pJeXINS FDR PRINTERS • 13. OO 




►^403 

Writ* SSI for 
program: P.O. 



HlSSOUftl KSIDCNTS 

PHASE ADO 
*» STATl SALtS TAX 



information about rjrketing your 

Sox 1 1676 Ken»u City, HO b«l)8 



■BBTSRBB CHEAP CHIPS ARE NO BARGAIN tTBrts 

I BUYING ADD-ON MEMORY? 
I GET THE BEST!!! 

1 Memory failures cost you time and money. Japanese 16k 
| RAM chips have a ona-lo ten in-service taikjre ratio to U S 
„, chips- from a study by R Anderson. Computer Drv . 
i Hewlett-Packard, reported in m Economin. 4-26-80 

5 We ofler 4116 chips By Fujitsu. NEC. Hitachi. Toshiba 

"J and Mitsubishi tor most popular computers and 

< expansion memory boards, including 
| 'Apple *AI trs-M's 'New Pel "Heath H48 

2 •Sepertrslri "Expaedereei 'Marty Often 

S 4111 OrNAM CRAMS THE BEST 

o 200nsec Plastic $23.70. Cerank 137.15 

j iSOnsec Plastic S30 95 

2 static rams 

° 2114 450nsec$3 30. 300nsec S3 90; 2101 $2 90 

z EPROMS (4S0 nsec std; ask tor hi -speed if required) 

j_ 2708 $4 80. 2716 5V+12V S9 40. 2716 5V $9 70; 

3 2732 $18 90 

B 

_> We'll beat any legitimate pnce tor comparable chips Hi- 
vokime users, dealers, or ckibs. ask tor quantity discounts 
SHIPPING to $25 $2. to $50. $1. over $50. FREE 
COO . i I 40 

DISCOUNTS ON TOTAL over $100. 5*. over $200. 10% 

MINIS a MICROS INC. • 29486 T railway 

-98 Agouti, CA. 91301 • (213)991-7433 

CA. residents add 6S tiles tax 

2 YEAR WARRANTY * CALL US ANYTIME 



* SHU 

■ COO 
I DISC 

b 



IS m 

I. _ 

J 



1 MAXELL 9 ■ O Dym I 

P A 
-^^^•^^•-^^^^^•^••^-^"•^ 

■ i 

T 8 SINGLE SIDE u 

R DOUBLE DENSITY So. of 10 for MM E 

5 8- DOUBLE SIDE R 

8 DOUBLE DENSITY Box of lOfor »70 A 

' 3 -MINI So« of lOtec SSO £ 

7 DYSAPTDISKS 1 

B SVMHN SoxofBlorSSB M 

M ( Specify- B" Sort or rurd Sector/5" Soft or Herd Sector) A 

I rvilflel I 



COD- el.00 Additional 



I (~Mdt6m£tietfi&Uct^ 



238 EXCHANGE STREET 
CHICOPEE, MA. 01013 

413-592-4761 

MlaMished I960 ■ dosed mondeia 

I ATARI sSJBMsMMM TI/90-4 HMMMMM 



PETI 
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". . . some string variables may be located 
within the Basic statement storage area." 



the processing of both the Chain and 
Change commands. After saving the cur- 
rent token, this section moves all variables 
to the upper portion of memory and pro- 
tects them. Remember that some string 
variables may be located within the Basic 
statement storage area. These must be 
moved to the string storage area; otherwise 
they will be lost when new statements are 
loaded or the memory references will be in- 
correct if statements are moved in the edit- 
ing process. Fortunately, there is a system 
routine in ROM (part of the FRE command 
processing) which packs the string stor- 
age area before reporting the remaining 
space available. Normally, this routine 
would only operate on strings in the string 
storage area. However, we can also pull 
strings out of the Basic statement area sim- 
ply by changing the beginning location for 
the scan to the start of the Basic state- 
ments before the packing routine is called. 
The code given in Listing 1 does not 
check to ensure that the other variable area 
is not overwritten as the strings are moved. 
This could be a problem if a lot of strings are 



HAVING PROBLEMS? 

Are you having problems with your 
Model I, II or III TRS-80 Radio 
Shack software? Is it you or is it 
actually a problem with the pro- 
gram? 

Avoid unnecessary frustration and 
send today for a complete list of all 
known software problems for Radio 
Shack programs, included in this list 
is the latest version numbers. Do 
you have the latest version? 

All for an unbelievable $2.50!!! 
Order Today!!! 

Software Solutions 
220 Village Drive East 
Carmel, Indiana 46032 .-597 

• BONUS • 

First 200 orders will receive a patch to 
remove 2 backup limit on Model III 
Scripsit/Visicalc 



- 
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Program Listing 1. Assembly Language Routine for Chain. 







00110 ; 


COPYRIGHT (C) 1979 








00120 : 


R. L 


. PAPE LIVERPOOL 


NY SEPT. 1979 






00130 ; 










■■IB 




00140 GETPC 


EQU 


000BH 


ENTRY 


FOR ROUTINE TO GET PROGRAM CO 


UNTER 














MB? 




001S0 MEMSET 


EQU 


00E7H 


REENTRY POINT IN LVL II TO SET MEMO 


RV LIMIT 












1A19 




00160 RESTRT 


EQU 


1A19H 


RESTART POINT FOR LEVEL II BASIC 


1B8F 




00170 INITM 


BtJtJ 


1B8FH 


ENTRY 


FOR INITIALIZATION ROUTINE 


1BPE 




00180 KWSRCH 


EQU 


IBP EH 


ENTRY 


FOR KEYWORD SEARCH ROUTINE 


1U1E 




00190 XEQ 


EQU 


1D1EH 


RETURN POINT TO START PROGRAM 


1D91 




00200 RESTOR 


EQU 


1D91H 


ENTRY 


FOR DATA RESTORE ROUTINE 


1EAC 




00210 RUNLN 


EQ J 


1EACH 


ENTRY 


POR RUN WITH LINE NUMBER 


28E6 




00220 STRPK 


EQl' 


28E6H 


! ENTRY 


FOR STRING PACKING ROUTINE 


2C1P 




00230 CLOAD 
00240 j 


EQU 


2CJFH 


iFNTKY 


FOR CLOAD ROUTINE 


IBM 




00250 SSTR 


EQU 


40A0H 


; RESERVED LOC POR START OF STRING SP 


ACE 














40A2 




00260 LNNUM 


EQU 


40A2H 


.RESERVED LOC FOR CURRENT LINE NUMBE 


R 
40A4 




00270 SSRC 


EQU 


40A4H 


; RESERVED LOC POR START OF BASIC SOU 


RCE 














40B1 




00280 MEMLIM 


EQU 


40BIH 


.•RESERVED LOC POR MEMORY PROTECT POI 


NTER 














40D1 




00290 LSTKN 


EQU 


40D1H 


; UNUSED LOC POR SAVING TOKEN 


4fD6 




00300 CSPTR 


EQU 


40D6H 


j RESERVED LOC POR CURRENT STRING STO 


RAGE 


POINTER 












4BD8 




00310 1NPTR 


EQU 


40D8H 


; RESERVED LOC FOR INPUT POINTER 


40DP 




00320 SADDR 


EQU 


40DFH 


.•RESERVED LOC POR START ADDRESS 


40F9 




00330 SVAR 


EQU 


40P9H 


(RESERVED LOC POR START OF VARIABLE 


STORAGE 












40FB 




00340 SARR 


EQU 


40PBH 


; RESERVED LOC FOR START OF ARRAY STO 


RAGE 














40FD 
E 




00350 SPRE 


EQU 


40PDH 


(RESERVED LOC POR START OF FREE SPAC 




00360 ; 










41BS 




00370 CLDHK 


EQU 


41B5H 


; HOOK 


FOR CLOAD RETURN 


41C7 




00380 RUNHK 


EQU 


41C7H 


;HOOK 


FOR RUN XXXX COMMAND 


42E8 
A) 




00390 TMPSTK 


EQU 


42E8H 


;TEMP 


STACK START (IN I/O BUPPER ARE 




00400 ; 














00410 ; FOLLOWING SECTION INSTALLS MOD IN HIGHEST AVAILABLE MEM 


ORY SPACE 
















00420 ; 


AND 


AUTOMATICALLY PROTECTS ITSELP 






00430 ; 










6000 




00440 


ORG 


6000H 


;SET ORIGIN TO ANY CONVENIENT FREE M 


EMORY 












6000 


31E842 


00450 SETUP 


LD 


SP, TMPSTK 




;SET STACK IN I/O BUFFER SPA 


CE TEMP 












6003 


210661 


00460 


LD 


IH,,XIT+2 




;LOAD HL WITH CURRENT ADDR O 


P LAST BYTE 












6006 


ED5BB140 00470 


LD 


DE, i MEMLIM) 




(LOAD DE WITH ADDR OP LAST A 


VAILABLE LOC 












600A 


01DP00 


00480 


LD 


BC.XIT-RUNX+3 




.-PUT LENGTH IN BC 


600D 


EDB8 


00490 


LDDR 




;MOVE CODE 


600P 


EB 


00S00 


EX 


DE,HL 






6010 


23 


00510 


INC 


II L 




;HL NOW POINTS TO START OP R 


ELOC 


CODE 












6011 


E5 


00520 


PUSH HL 




(SAVE FOR LATER 


6012 


3EC3 


00530 


LD 


A.0C3H 




;JP INSTRUCTION CODE 


6014 


32C741 


00540 


LD 


(RUNHK) ,A 




(HOOK FOR RUN COMMAND EXTENS 


ION 














6017 


22C841 


00S50 


LD 


(RUNHK+1) ,HL 






601A 


019200 


00560 


LD 


BC,CLRTN-RUNX 


(OFFSET 


601D 


09 


00570 


ADD 


HL,BC 




1 TO POINT HL TO CLRTN 


601E 


32B541 


00580 


LD 


(CLDHK) ,A 




[HOOK TO INTERCEPT CLOAD RET 


URN 














6021 


22B641 


00590 


LD 


( CLDHK +1 ) ,HL 






6024 


El 


00600 


POP 


BL 




(RESET HL TO START OP CODE T 


O PROTECT 












6025 


C3E700 


00610 


JP 


MEMSET 




[REENTER LVL II, SETTING MEM 


ORY LIMIT 
















00620 | 










6028 


EB 


00630 RUNX 


EX 


DE,HL 




[SAVE INPUT STRING POINTER I 


N DE 














6029 


CD0B00 


00640 


CALL GETPC 




[HL WILL POINT 2 LOC BEFORE 


TABLE BELOW 












602C 


1813 


00650 


JR 


SCAN 




[SKIP OVER TABLE 


602E 


C3 


00660 KWTBL 


DEPB 0C3H 




[1ST CHAR OP KEYWORD HAS MSB 


SET 














602P 


46 


00670 


DEPM 'MAIN' 




(REST OP KEYWORD 


6033 


C3 


00680 


DEFB 0C3H 




[2ND KEYWORD 


6034 


48 


006 90 


DEPM 'HANGE' 






6039 


D2 


00700 


DEPB 0D2H 




[3RD KEYWORD 


603A 


45 


00710 


DEPM 'ESTART* 






6040 


80 


00720 


DEPB 80H 




[TABLE TERMINATOR 


6041 


23 


00730 SCAN 


INC 


HL 






6042 


EB 


00740 


EX 


DE.HL 




[SWAP POINTERS FOR NEXT ROUT 


INE 














6043 


CDPE1B 


00750 


CALL KWSRCH 




[CHECK POR KEYWORD MATCH 


6046 

BL 


EB 


00760 


EX 


DF.,HL 




[PUT STRING POINTER BACK IN 


6047 


78 


00770 


LD 


A,B 




[PUT TOKEN FROM SCAN IN A 

Program continues 



moved from a program which nearly fills 
memory. After the strings have been 
packed, the routine checks to see if the 
lower limit of the string space must be 
moved down. 

The variable storage area can now be 
moved up immediately below the string 
area. Although the entire area can be 
moved as a block, the offset to the start of 
the array variables must also be computed 
in addition to the total length. The simplest 
way to save these lengths Is to locate the 
stack immediately below the temporary var- 
iable storage and push the two values on 
the stack, along with the old memory pro- 
tect pointer. The value of the stack pointer 
is then stored as the new memory size 
value. 

If the command was Run Change, we 
have completed the necessary steps at this 
point. If the current token indicated 
Change, exit from the patch back to the 
command mode in Basic. The only other 
command that would have brought us to 
this point is Chain. Before jumping to the 
tape loading routine (CLOAD), the string 
pointer in the line being interpreted is 
restored in case a filename character is in- 
cluded in the Chain command. 



Returning from CLOAD 

The return from the CLOAD routine is in- 
tercepted at lines 1380 to 1430 because of 
the hook installed when the patch was ini- 
tialized. The section will also be entered 
when a normal CLOAD command Is issued 
(as well as the continuation of the Chain 
command). The first thing that must be 
done at this point Is to check the current to- 
ken. If it does not correspond to Chain, the 
patch is exited immediately. Otherwise, the 
string pointer is again saved in case a line 
number is included in the Chain command. 

Restoring the Variables 

Lines 1440 to 1640 move the variable 
block from upper memory back to its nor- 
mal position immediately following the end 
of the new program statements. This is 
done automatically as part of the Chain 
command processing or is initiated by the 
Restart command after completing the 
statement editing (following a Change com- 
mand). The steps performed in this section 
are essentially the reverse of those when 
the variable block is moved to upper 
memory and protected. By setting the stack 
pointer to the bottom of the protected area, 
one can then POP off the memory protect 
value and the block lengths. 

A block transfer instruction moves the 
variables back. At the end of the transfer, 
the DE register pair will point to the start of 
free space, so Its value is stored in the cor- 



". . . one can then POP off 
the memory protect value and the block lengths. " 



Program 


continued 








6048 


B9 


00780 


CP C 


;B AND C SAME IP HATCH 


CfO 


r« 


00790 


RET NZ 


; RETURN IP NO MATCH 


604A 


23 


00800 


INC HL 


> SKIP PAST LAST CHAR MATCHED 


6MB 


22DP40 


00810 


LD (SADDR) ,HL 


;SAVE STRING POINTER 


604E 


21D140 


00820 


LD HL.LSTKN 


; POINT HL TO TOKEN STORAGE 


6(51 


PE82 


00830 


CP 82H 


;CHECK IF CURRENT TOKEN IS R 


EPEAT 








6153 


2005 


00840 


JR NZ, SVTKN 


;IF NOT, SKIP OVER FOLLOWING 


6055 


96 ' 


008S0 


SUB (HL) 


; CHECK IF CHANGE COMMAND EAR 


LIER 










6056 


3D 


00860 


DEC A 


(IP SO, DIFFERENCE IS 1 


6157 


2870 


00870 


JR Z.UNPK 


; CONTINUE BELOW 


6*59 


C9 


00880 


RET 


j ELSE RETURN 


605A 


77 


00890 SVTKN 


LD (HL),A 


;SAVE TOKEN 


CIS! 


21E842 


00900 


LD HL,7MPSTK 




605E 


P9 


00910 


LD SP,HL 


; RELOCATE STACK 


605F 


2AA040 


00920 


LD HL,(SSTR) 


,-G£T START OF STRING STORE A 


REA 










6062 


E5 


00930 


PUSH hi. 


; AND SAVE 


6063 


2AA440 


00940 


LD HL,(SSRC> 


1 REPLACE WITH START OF BASIC 


SOURCE 








6066 


22A040 


00950 


LD ISSTR) ,HL 




6069 


CDE628 


00960 


CALL STRPK 


;PACK ALL STRINGS AT TOP OP 


MEMORY 








606C 

S 

606P 


2AD640 


00970 


LD HL.(CSPTR) 


I GET BOTTOM OF PACKED STRING 


EB 


00980 


EX DE,HL 




6070 

RT 

6071 


El 


00990 


POP HL 


;GET ORIG STRING STORAGE STA 


DP 


01000 


RST 18H 


/COMPARE VALUES 










Program continues 



D & M SOFTWARE ^393 
1510 SOUTH 97TH 
fTACOMA. WASHINGTON 9844< 



WHEN OUR PROGRAMS 
TALK PEOPLE LISTEN 



FREE: COMPUTER 

CATALOG 
UPON REQUEST 



f PHONE 



206-537-8155 



CROSS REFERENCE DICTIONARY 

The largest known cross reference manual for use with the , 
TRS-80 1 ! Voice Synthesizer No need to spend more long hours 
learning another computer language Want your computer to say a 
word? Look up the English spelling. Right next to it you'll find the 
phonetic spelling that your synthesizer needs to say it correctly 
Included is a large list of commonly used phonetically spelled 
phrases and sentences ready to type into your program Invaluable 
as a time saving devi~e 

SPELLING BEE (A 3 PART PROGRAM) $14 95 

The computer administers a lesson consisting of ten words When 
the student has learned them he is given an oral quiz in true spelling 
bee fashion When the lesson has been completed student may 
advance to next lesson The program is structured so that an un- 
limited number of lessons can be gived with progresively greater 
degrees of difficulty Excellent for any grade or age level Includes ten 
sample lessons of ten words each The second part of the program 
allows one to create his own spelling lessons on cassette for much 
needed flexibility. A third part enables one to practice creating new 
words using the phonetic spellings needed by the synthesizer Error 
trapped and bug free 

MOD-1 16K L II S1995 



UTILITIES 



A MUST FOR ALL 
PROGRAMMERS 



PROGRAM INNOVATIONS 



Model II Disassembler *m 

Output in ASCII or hex to printer or screen ONLY S73.95 

Data Fit* Utility (Model I Level II, 16 K min.) Creates/Updates/Sorts ANY disk file 
in dependent o f your program Disk only $01.96 

Modal II Macro Assembler Incorporate fast, time-saving macros into assembly 
language programs ONLY 974.96 



LOOK! (D cls 


(2' A ) LD B.1BH 


<2-B> 


RST 8 


PRINT MSG.Ijf, 13 


LD A. 8 




LD A. 36 


JP2D0S 


RST 8 




RST 8 


MSG DEFM 'IT WORKS!! - ' 


LD HL. MSG 


MSG: 


DEFM "IT WORKS!!" 


END 


LD B. If 
LD C.JDH 




END 



Both programs produce the exact same code. Program (1) was created with the Macro Assembler. 
Save 40%-80% time while reducing error probability! 

ORAMO OPCMINO SP0XIAL. 10% OH all Orders received by 11-1M1 "MASTERCARD AND 

OUR OUARANTI t All programs will work as advertised or your money refunded VISA WELCOME ' ' 



SEND ORDERS TO: 



PROGRAM INNOVATIONS 



P O Bo* 1 368 Lumbertort, N.C 28358 
Phone (919) 739 321 7 Niqhl 739 3680 
NX RESIDENTS AOD 4 c SALES TAX 



.'See List of Advertisers on page 402 
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"Once installed, the routine remains 
resident in protected high memory." 



Program continued 








6072 3801 


01010 


JR CRSSTR 


;IP CARRY, BL IS LOWER 


6174 EB 


01020 


EX DE,BL 


;ELSE SWAP WITH DE 


6075 22A040 


01030 KSSTR 


LD (SSTR) ,HL 


; RESET STRING STORAGE START 


TO LOWER VAL 








6076 ED5DF948 
GE 


01040 


LD DE , ( SVAR ) 


/GET START OP VARIABLE STORA 


607C 2AFD40 


01050 


LD HL, (SFRE) 


;GET START OP PREE SPACE 


607P B7 


01060 


OR A 


; CLEAR CARRY FLAG 


6080 EDS2 


01070 


SBC HL,DE 


jCALC SIZE OF TOTAL VARIABLE 


SPACE 








6082 44 


01080 


LD B,H 




6083 4D 


01090 


LD C,L 


j TRANSFER SHE TO BC 


6064 2AA040 


01100 


LD HL.(SSTR) 


;GET START OF STRING SPACE 


6087 B7 


01110 


OR A 




6088 ED42 


01120 


SBC HL,BC 


;CALC START POR RELOCATED VA 


RIABLES 








608A F9 


01130 


LD SP,HL 


/RELOCATE STACK BELOW BLOCK 


608B E5 

IX 

608C 2APB40 


01140 


PUSH HL 


;SAVE POINTER DURING NEXT CA 


01150 


LD HL, (SARR) 


/GET START OP ARRAY STORAGE 


608P B7 


01160 


OR A 




6090 EDS2 


01170 


SBC HL,DE 


/CALCULATE OFPSET FROM START 


OP VARIABLES 








6092 E3 


01180 


EX (SP),HL 


/PLACE ON STACK, RESTORING P 


OINTER IN HL 








6093 C5 


01190 


PUSH BC 


/ALSO SAVE TOTAL LENGTH OP V 


ARIABLES 








6094 78 

00 NT) 

6095 Bl 


01200 


LD A,B 


/TEST CONTENTS OP BC (BYTE C 


01210 


OR C 




6096 2803 


01220 


JR Z.SVHL 


/SKIP BLOCK TRANSFER IF XERO 


6098 EB 
R 

6099 EDB0 


01230 


EX DE.HL 


/SWAP POINTERS FOR NEXT INST 


01240 


LDIR 


/RELOCATE BLOCK OF VARIABLES 


609B 2AB140 


012S0 SVML 


LD HL,(MEMLIM) 


/GET OLD MEMORY PROTECT POIN 


TER 








609E E5 


01260 


PUSH HL 


/SAVE ON STACK 


609P 210000 


01270 


LD HL,0000H 




60A2 39 


01280 


ADD HL,SP 


ZCET CURRENT STACK POINTER V 


ALUE 








60A3 22B140 


01290 


LD (MZMLIM) ,HL 


/PROTECT ALL ABOVE 


60A6 22A040 


01300 


LD (SSTR) ,HL 


/ALSO RESET STRING SPACE STA 


RT HERE TEMP 








60A9 3AD140 


01310 


LD A, (LSTKN) 




60AC PE81 


01320 


CP 81H 


/CHECK TOKEN AGAIN 


60AE CA191A 


01330 


JP Z,RESTRT 


/IF CHANGE COMMAND, DONE; RE 


ENTER BASIC 








60B1 2ADP40 


01340 


LD HL,(SADDR) 


/RESTORE STRING POINTER IN H 

Program continues 



responding reserved area locations. The HL 
register pair will be pointing to the start of 
the string storage space and the stack is re- 
located there. Finally, the start of the array 
storage is computed and saved. 

Starting the Program 

Lines 1650 to 1730 perform the necessary 
initialization before program execution and 
reenter the ROM after the point where the 
variable storage pointers are reset. In this 
way the current variables in the storage 
area are preserved. The line number stored 
in the reserved area is reset to -1 (FFFFh). If 
no line number is specified in the command 
string, execution will start at the beginning 
of the program. But if there are more char- 
acters in the command string (as deter- 
mined by the RST 10H instruction), they are 
assumed to be the line number at which to 
enter the program. The alternate return in 
this case is the point at which the GOTO 
statement processing interprets the line 
number. 

Therefore, we have provided the option of 
specifying a starting line number or starting 
at the beginning of the program by default if 
no line number is given. 

Using the Routine 

After the routine is assembled and saved, 
it can be loaded after any other patches, 
such as a keyboard denounce or special de- 
vice driver, have been installed. The setup 
portion must then be run (by typing a / and 
Enter after loading) in order to install the 
routine. Once installed, the routine remains 
resident in protected high memory. The 



5,000,000/20,000,000 BYTES 

From Micro Mainframe 

10 ME6ABYTE HARD DISK DRIVES, with REMOVABLE Cartridges. For Models I / II / III ($5, 995/ $8990). 

SERIES III H. Model III with 5,000,000 byte hard disk drive(s) ($6,995/$9,095) or add to your Model I /III ($3,795). 

SERIES III F. Model III with a controller board {available separately) and operating system which allows you to start 
with, or move up to, dual-headed or eight-inch floppys. 

From AT-80 

GLM — $149 — Radio Shack General Ledger 1.1 with over 30 added features; including a general ledger, classified bal- 
ance sheet, check register and options to use an "automatic" account number or re-do an entry or document. 

ARM — $199 — Radio Shack Accounts Receivable 1.2 with automatic posting of standard monthly amounts. 

GL/M1 — $49 — Convert your General Ledger 1.1 to GL80. Typical user comment: "Takes half as much time." 

AR/M1 — $49 — Convert your Accounts Receivable 1.2 to ARM. Typical user comment: "Saves hours." 

GL/M1 ind AR/M1 require proof of purchase of the original programs, or, send a disk copy of the original programs for 
conversion at no additional charge. Documentation (apply to purchase) — $5.00 each. 

FTDEM080 — $12 — Displays and Executes the NEWDOS/80 Appendix A programs/ keyboard entries. Requires 32K. 

MEWD0S/80-$135 LDOS - S135 EPSON MX-70/80/FT - SCall FRICTION KIT - $49 

AT-80 3827 Dismount Dallas, Texas 7521 1 (214)339-0498 
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LOW PRICES ON TRS-80* 

From Radio Ranch. Inc. 




In business 27 years at the same location pro- 
viding electronic equipment and service. 

We Are Better Equipped To Provide 



TRS-80 

COMPUTERS & 



Accessories 
Software 



TRS-80 Mod II - 64K 3440.00 

TRS-80 Mod III - 32K. 2 Dr 2195.00 

TRS-80 Line Printer 6 1020.00 

CORVUS* * 5-10-20 M Hard Disks . . . Call For Prices 
"CORDOS" and "OASIS" operating systems 
Full Factory Warranty - Complete Service Department 

J&axfio foamck. Sno. -,» 

Cert. Check [aMfcJ HBP Route 3, Radio Ranch Airport 
Cashiers Ck. 9HIGHI Polo, Minois 61064 

Call Toll Free 800-435-8310 In M. Cal 815-946-2371 

• Trademark. Tandy Corp ' "Trademark Corvus Systems. Inc. 



MODELS I — III 

ALL PROGRAMS USE TESTED 

MICRO- TYPIT a text editing prograa that uses the keyboard 
"as is" like a typewriter. All edit and prompt functions are 
"built in" so instruction or learning is Bininum. Text can be 
generated three pages at a time and printed either numbered, or 
unnumbered single or double spaced. Also, right justification 
is optional. Does not require substitution of • for commas or 
any other character revision. Slowest function is transferring 
text to and from tape. Neat error free text with large print 
titles. Excellent for specifications, agreements, instructions, 
form letters or announcements. Complete with sound for TRS-80 
Model I or III and Microteck printer easily adaptable to most 
other printers. PRICE $25.00 

CLIENT FILES Allows keeping several contracts for up to 20 
clients. Enter contracts including either payment amounts or 
percentages. As bills are sent out and payments received, the 
program is a record by contract of amounts outstanding and not 
billed including a summary of receivables and work in progress. 
Works well with one to 3 projects for a dozen or so clients. 

PRICE $25.00 

ENGINEERING PROGRAMS 

LIGHTING CALCULATIONS Calculates the required number of 
fixtures for a room given the dimensions and reflectances by 
the zone cavity method. Three standard fixtures are "built in" 
so that 8 room calculations are made to compare results such as 
watts, footcandles and number of fixtures. PRICE $30.00 

HVAC PROGRAM This program calculates sensible and latent 
cooling and heating load by zone each two hours of the typical 
hottest and coldest days. Equations per 1977 ASHRAE Fundamental 
Guide page 25.2. Three programs are: Calculations, Geographic 
and Variable Data and Data Generator. PRICE $35.00 

All tapes furnished with full documentation and instructions. 
Documentation, Instructions and Source List alone $15.00 

All programs on tape require Level II and 16K. Printer is 
required for MICR0-TYPIT and optional on all others. Do not 
forget to include the Model Number (I or III) with your order. 

Send Check or Money Order (no COD's please) to: *^52 

Coolidge & Associates 

1317 S CONGRESS 4» 10 AUSTIN, TEXAS 7«704 (912)44 3-5329 




SIGMON 

SIGMON is a complete machine Lansuase develop- 
ment tool for your TRS-80 Color Computer and it's 
super powered 6809E microprocessor. 

Features: 

MONITOR: Display memory in HEX and ASCII, Direct HEX and 
Decimal entry into memory/ registers, Move, Find, Tape Read and 
Write, Output to printer and more. 

DISASSEMBLER: Display Addresses, Opcode operand, 
Mnemonics, and Address expressions for specific range of 
instructions. 

MINI ASSEMBLER: Allows you to enter instructions in Symbolic 
form and have them converted to Machine Language 

DEBUGGER: Allows Stepping and Break point execution of 
Machine Language programs. 

With SIGMON you can awaken the awesome powers that lurk 

within the dark recesses of your color computer. 

Cassette and Source Code 

for the TRS-80 Color Computer $89.95 

SECS. 

(Screen Edit Control System) 

SECS adds new power to your TRS-80 Color 
Computer. If you have been waitins for Enhanced 
BASIC and it's capabilities, then you are ready to take 
the next losical step. 

Features: 

rtJLl SCREEN EDITOR: Full Cursor control with auto repeat, 
Insert, Delete, Join lines, Relocate lines and Audible error warning. 

Ml RES GRAPHICS: Two modes of Hi Res graphics, Set point, 
Set line, Set color, Set programmable character, Set screen, and 
Toggle between Low Res and Hi Res/Normal and Inverted 
Screens. 

HI RES CHARACTER GENERATOR: Sixty-four definable charac- 
ters, Save and Load Characters sets to and from tape, Define 
Characters, and Place on screen in any color and in any position. 

The entire system is linked into BASIC and is completely 

transparent to the user. As a BASIC programming tool, SECS is 

unsurpassed. 

Cassette for the TRS-80 Color Computer $99.95 

Software Utilities for the 
TRS-80* Color Computer 

Order through your local software dealer or send check or 
money order plus $2.00 Shipping & Handling to: 

• 407 




"nS' computer software 

19519 Business Center Drive, Northricfge, CA 91324 
(213)701-5161 

•TRS-80 is a registered trademark of Radk> Shack, a division of Tandy Corporation 



•See List ol Advertisers on page 402 
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"If Basic encounters a syntax error during 
program execution, it will automatically 
put you in the Edit mode." 



added commands can then be called at any 
time as needed. 

To chain from one program to another, 
any of the following forms may be used: 



RUN CHAIN 
RUN CHAIN "I" 
RUN CHAIN T 1n 
where f Is the filename character used to save the 
program on tape 
in is a valid line number 



In the first case, the next program on tape is 
loaded and execution will start at the begin- 
ning of the program. In the second case, the 
specified program will be loaded (if found) 
and will start from the beginning. In the 
third case, the named program will be load- 
ed and entered at the specified line number. 
(If a starting line number is given, the 
filename character must be included.) Any 
of these Chain commands can be included 
as a statement in the first program. As the 
Chain routine is executed, it will be typed 
out Ready when the second program has 
been loaded and automatically start this 
new program. 

In order to preserve the values of vari- 
ables while a program is being modified, 
two separate commands are used. Before 
any editing, one must first type Run Change 
to protect the current values. This routine 
moves all variables to upper memory, pro- 
tects them, and returns control to the com- 
mand level of Basic. Then use any of the 
standard system commands to change the 
program statements, or use Edit to modify 



Program continued 








L 
68B4 


22D840 


01350 


LD (INPTR) ,HL 


IRESAVE IN LOC USED BY CLOAD 


60B7 


C31F2C 


01360 


JP CLOAD 


;JUHP TO CLOAD ROUTINE 


60BA 


21D140 


013b0 CLRTN 


LD HL,LSTKN 


{NORMAL COMMANDS ENTER HERE 


ALSO 










60BD 


7E 


01390 


LD A,(HL) 


; CHECK TOKEN STORAGE 


60BE 


FE80 


01400 


CP 80H 


tir CHAIN, CONTINUING PROM A 


BOVE 










60C0 


CI 


01410 


RET NZ 


(ELSE RETURN 


MCI 


ED5BDB40 


01420 


LD DE, (INPTR) 


{TRANSFER STRING POINTER 


60C5 


ED53DP40 


01430 


LD (SADDR) ,DE 


;TO OTHER STORAGE LOCATION 


60C9 


AF 


01440 UNPK 


XOR A 




60CA 


77 


01450 


LD (HL) ,A 


} CLEAR FLAG 


60CB 


2AB140 


01460 


LD HL,(KEHLIH) 




60CE 


F9 


01470 


LD SP.tIL 


j PUT STACK AT BOTTOM OF PROT 


ECTED AREA 








60CF 


El 


01480 


POP HL 


; RESTORE 


60D0 

R 


22B140 


01490 


LD (MEMLIM) ,HL 


; OLD MEMORY PROTECT POINTE 


60D3 


210400 


01500 


LD HL, 01)0411 




60D6 


39 


01510 


ADD HL,SP 


;BL POINTS TO START OF RELOC 


VARIABLES 








60D7 


ED5BF940 


01520 


LD DE,(SVAR) 


;GET END OF NEW PROGRAM 


60DB 

K 


CI 


01530 


POP BC 


;GET LENGTH OF VARIABLE BLOC 


60DC 


78 


01540 


LD A,B 


.•CHECK BYTE COUNT 


60DD 


Bl 


01550 


OR C 




60DE 


2802 


01560 


JR Z, RSTPT 


;SKIP TRANSFER IF ZERO 


60E0 


EDB0 


01570 


LDIR 




60E2 


CI 


01580 RSTPT 


POP BC 


;GET OFFSET TO ARRAYS 


60E3 


ED53FD40 


01590 


LD (SFRE) ,DE 


;DE POINTS TO START OF FREE 


SPACE, STORE 








60E7 


22A04B 


01600 


LD (SSTR) ,HL 


;HL POINTS TO STRING SPACE, 


RESET POINTER 








60EA 


F9 


01610 


LD SP,HL 


;ALSO RESET STACK THERE 


60EB 


2AP940 


01620 


LD HL.ISVAR) 


{CALCULATING 


60EE 


09 


01630 


ADD HL,BC 


; START OF ARRAYS 


60EF 


22FB40 


01640 


LD (SARR) ,HL 


; STORE 


60P2 


21PPFF 


01650 


LD HL,0PFFFH 




60PS 


22A240 


01660 


LD (LNNUH) ,HL 


{RESET LINE NUMBER 


60FB 


CD8F1B 


01670 


CALL INITM 


{MORE INITIALIZATION 


60FB 


CD911D 


01680 


CALL RESTOR 


{RESTORE DATA READ POINTER 


60PE 


2B 


01690 


DEC HL 




60PP 


D7 


01700 


RST 10H 


{GET NEXT CHAR FROM INPUT ST 


RING 


AND TEST 








6100 


C2AC1E 


01710 


JP NZ,RUNLN 


{IF MORE, MAY BE LINE NUMBER 


6103 


EB 


01720 


EX DE,HL 


{ELSE POINT HL TO START OF P 


ROGRAH 








6104 


C31E1D 


01730 XIT 


JP XEQ 


{AND START EXECUTION 


6000 




01740 


END SETUP 





•fr-fr SUPER-fr-A- 
ISA's DATABASE 

The only DBMS with all these features: 

■k PROVEN in one year of test marketing 

* TOUGH, reliable file structure 

* MENU driven for simplicity and easy use 

* ARITHMETIC with stored calculations 

* FAST set-up and report formating 

* CLEAR user-oriented documentation 

* PRINTS totals&subtotals-mail labels 

* REFORMATS and merges data files 

* MULTI-DISK files: Up to 128K records 

* SORTS full disks on up to 40 fields 

* PRODUCTION input of repetitive data 

* COU PLES to word processor & statistics 

* POSTS transactions to master file 

* SEARCH by strings, ranges, comparisons 

* DATA COMPRESSION: Over twice as 
many labels as the other system 

For TRS-80* Model* I. II. £ III - 250.00 

Aak your Dea'.ai or Writ*? 

Institute for Scientific Analysis. Inc. 

P. O. Box 7186, Dept M-l 

Wilmington, DE 19603 (213)358-3735 



•T.M. Tandy Corp. 
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this publication 
is available in 
microform 




University Microfilms International 



300 North Zeeb Road 

Dept PR. 

Ann Arbor. Ml 48106 

USA 



18 Bedford Row 
Dept. P R. 
London, WC1R4E J 
England 



™TRS80 color 

From the January 1981 issue of the CSRA Compute 

CM) i 



There was some amusement at the Novem- 
ber meeting when the Radio Shack repre- 
sentatives stated that the software in the , 
ROM cartridges could not be copied This 
month's 68 Micro Journal reported tfiey had 
disassembled the programs on ROM by 
covering some of the connector pins with 
tape. They promise details next month. Never 
tel a hobbyist something can't be done! This 
magazine seems to be Ihe only source so far 
of technical informations on the TRS-80 color 
computer 3 . Devoted to SS-50 6800 and 
6809 machines up to now, 68 Micro Journal 
plans to include the TRS-80 6809 unit in 
future issues. 



To get the MOST from your 6809 CPU - This is tie 
BEST SOURCE! The ONLY Magazine for the 8809 
Computer. Months Ahead of Al Otters! 

68 MICRO JOURNAL 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

USA 
1 Yr - $18 SO i Vf - 132.50 3 Yf - S48 SO 

•Foragn Surfio* Add SiZ Yr. to USA Pnot 

Foragn Air Ma! Ada 535 Yr to USA Pnc« 

'Canada 1 Moico Add J5.50 Yr. to USA Prtc» 



*^91 
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Dosplus 3.4 upgrades will be available for all registered and/or legitimate 
owner's of Dosplus 3.3 or 3.38 starting January 1st, 1982 

Those owner's who have sent in registration cards will receive a letter telling them of the upgrade. 
Those owner's who did not receive a registration card must use the following procedure if they do not receive 

an upgrade letter by January the 15th. 

1. Send in proof of purchase. 

and 
Your master Dosplus diskette. 

2. Send in the upgrade fee. 
Registered owner's will only be required to send in the upgrade fee. 

The upgrade fee will be $25., and will include a new diskette, AND the new expanded manual. The Dosplus 3.4 
manual also includes a new technical section that has complete I/O calls and DCB organizations. 



M-ZAL Disk Assembler 

THE FINEST MACHINE LANGUAGE DEVELOPMENT PACKAGE MONEY CAN BUY. 

A complete development package for the machine language programmer. 
Novice and experienced programmer alike will recognize the superior features of this excellent package. 

The heart of the system is CAU's M-ZAL disk assembler. 

This includes: 

1 . A full screen text editor. 

2. A super fast assembler with optical relocatable code. 

3. A linking loader for use with this relocatable code. 

Retail price on the M-ZAL package is $149.00, and is available Model I (single or double density) and Model III. 



More programming power than you will find 

ANYWHERE ELSE IN THE WORLD 
Demand will be high so order yours today! 




Specializing in the Tandy Line 




(305) 983-3390 



5846 Funston Street 
Hollywood, FL 33023 



CALL TOLL FREE FOR FAST SERVICE 

(800) 824-7888, OPERATOR 193 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777. Operator 193 
Alaska and Hawaii dial (800) 824-7919. Operator 193 
TOLL FREE UNES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information, call 
(305) 983-3390 or drop us a card 



VISA 



Dealers inquiries invited 



". . . one can often segment a very large program 
into a sequence of modules which will fit 
in a modest sized machine." 



>Lisr 

10 x=l t y=|0iZ=999 

20 AS»"THIS IS A TEST OF CHAIN" 

READY 

>RUN 

HEADY 

>HUN CHAIN 

HEADY 

STARTING NErt PROGRAM 

THIS IS A TtST OF CHAIN 

I 10 999 

READY 



>LIST 

10 X=l « Y=10«Z=999 

20 AS="THIS IS A TEST OF CHAIN" 

READY 

>RUN 

HEADY 

>HUN CriAIN"B M 30 

HEADY 

I 1 999 

HEADf 
>LIST 



NErt PROGRAM" 



10 PRINT" ST ART INC 
<M PRINT AS 
30 PRINT X.Y.Z 
HEADY 



Program Listing 2. Examples of Chain Command Usage 



existing lines. Then restore the variables 
and start the program with the following 
command: 

RUN RESTART In 

1n is the line number at which to resume 
program execution. If no line number is 
entered, it will restart at the beginning by 
default. The Restart command will be ig- 
nored if a Change command was not issued 
earlier. 

If a line number is included in either the 
Chain or Restart commands, it must be a 
number that exists in the current program 
or else the program will terminate with an 



error message. The line number should also 
be chosen to bypass any Clear statement or 
avoid redimensioning any variable array 
that had been specified earlier. 

Sample Runs 

In Listing 2, the first program simply sets 
the values of the variables. This program 
loads the values into the storage area. The 
A$ variable is a test of strings imbedded in 
the source statements.) The Run Chain 
command is typed to load the next program 
on tape. A Ready message indicates that 
the second program has loaded. This pro- 
gram automatically starts running and 
prints out the variables from the first pro- 



>LIST 

10 INPUT" ENTER X AND Z"lX,Z 

20 AS» H TESTING CHANGE AND RESTART" 

30 PRINT A$ 

40 PRINT X.Y.Z 

READY 

>RUN 

ENTER X AND Z? 3, 1 

TESTING CHANGE AND RESTART 

3 I 

READY 

>RUN CHANGE 
READY 

>3b INPUT"ENTER Y"lY 
>RUN RESTART 3b 
ENTER Y? 2 

3 2 I 

READY 



Program Listing 3. Example of Chain and Restart Command Usage. 



gram. A listing of the program shows that 
the new statements were loaded and that 
the variables printed out were indeed trans- 
ferred from the first program. The second 
part of the figure shows a similar exercise, 
except that the command Run Chain "B" 30 
causes the chained program to start execu- 
tion at line 30, bypassing the first two print 
statements. 

Program Listing 3 illustrates the case of a 
program with an error that needs to be 
corrected. When the program is run, the 
printout indicates that the value of Y had 
not been specified. To fix the problem, type 
the Run Change command to save the 
values that had been entered via the Input 
statement. After line 35 has been inserted, 
restart the program at line 35 by typing: 

RUN RESTART 35 

The final printout shows that the first three 
statements are skipped over and that the 
values of X and Z, which were input in the 
earlier program, have been retained. 

If Basic encounters a syntax error during 
program execution, it will automatically put 
you in the Edit mode. Type Run Change and 
then return to the Edit mode. The variables 
must be protected before any changes are 
made. 

Summary 

An optional filename character can also 
be entered to specify the file to be retrieved 
from tape. The second program can be 
started at any specified line number (or de- 
fault to the beginning if none is entered). 
With this added command, one can often 
segment a very large program into a se- 
quence of modules which will fit in a mod- 
est sized machine. 

The Chain routine is installed before any 
Basic programs are loaded since the code 
is position independent. A total of 239 bytes 
of memory are required for these three com- 
mands. 



A Parting Note to DOS Users 

The implementation presented is for a 
cassette-based Level II TRS-80. To modify 
this routine for a disk-based system, several 
system entry points would have to be 
changed. In particular, the hook to the 
CLOAD routine would be replaced by the 
corresponding routine which retrieves a 
program file from disk. Since the patch is 
entered as the Run command is processed, 
be familiar with the DOS extension for this 
command. Also, because DOS extensions 
are overlaid in lower RAM memory, it is 
more appropriate to install this patch in the 
DOS area, rather than waste space in upper 
memory. ■ 
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FREE PREMIUM! 
1982 subscribers will 
receive the special 
MATH1 package of 
PC programs. You 
qualify to receive 
this valuable free 
gift if you check 
either box 2 or 3 
below! Don't delay! 
Get started learning 
how to enjoy your 
pocket computer to- 
day. Use this handy 
subscription card! 



SUBSCRIPTION FORM 



□ 1981 Charter Subscriber (Issues 1 - 10). $20.00 for U.S. 
delivery. (U.S. $24.00 to Canada. U.S. $30.00 elsewhere.) 

D 1981/82 Charter Subscriber (Issues 1 - 20). $40.00 in 
U.S. (US $48.00 to Canada. U.S. $60.00 elsewhere.) 

□ 1982 Regular Subscriber (Issues 11 - 20). $30.00 in U.S. 
(U.S. $36.00 to Canada. U.S. $45.00 elsewhere.) 

□ Sample issue. $3.00 in U.S. (U.S. $4.00 elsewhere.) 

Orders must be accompanied by payment in full. We do not 

issue invoices for the POCKET COMPUTER NEWSLETTER. 

Thank you for your remittance. 

Name: 

Addr: 

City: State: Zip: 

MC/VISA # Expires: 

Signature: 



VORKIO 

BASF-DPS 

WORLD STANDARD TAPE 







• PROFESSIONAL S-SCREW SHELL 

• UNIVERSAL INDUSTRY ACCEPTANCE 

DATA TRAC - C-10, C-20 
MUSI TRAC - C-45, C-90 
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I "YOU'VE TRIED THE REST, NOW BUY THE BEST" 

Call: 213/710-1430 for IMMEDIATE SHIPMENT on Credit Card Order* 



sgr.s «&>■* 



i order now... Mail to: VORK lO Computer ware 

24573 Kittndge St WOB.Canoga Park CA 91307 
Q Check or MO endosed □ Charge to ny CreOt Card 
— VISA n MASTER CAflO Extxresdate 
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WHfTfc FOR QUANTITY DISCOUNTS 

^'.[(-0 ttulh pjch t > UPS to '.ir^l Mldrrss ki Loot 
US* onhr We cannot snio lo P O Bo«« 
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RAM $18.99 



ONE YEAR GUARANTEE. INCLUDES RAM TEST AND INSTRUCTIONS 

Premium 16K high speed ram tor TRS-80 MODEL lll/l, and COLOR COMPUTER. 
MODEL 1 owners add 2.00 lor 2 dip shunts 

COLOR COMPUTER SOFTWARE 

SUPER "COLOR" WRITER 

At last! ! Fast, full featured, character oriented word processing for the TRS-BO™ 
COLOR COMPUTER and any printer FEATURES • 32K compatible • choice of 
display color • Key beep • help command • words typed 4 words left • tab key • 
repeat key • word wrap around • block move • duplicate 4 delete • gioba' search 4 
replace • quick paging • paragraph scrolling • line scrolling 
SPECIAL FEATURES automatic linking of cassette text files for hands-off 
continuous printing • unique movable window for viewing any part of the text. 
PRINT FEATURES send printer cont'd codes, along with text, to printer • full use 
of printer's special features during normal printing • set margins, Ime length, line 
spacing, page length, and page spacing within the text lor continuous printing • 
automatic centering • right justification • page numbers & titles 
TAPE' $29.95 ROMPAK' $39.95 DISK$49.95 

'Tap* I/O only, not disk compatible. 

SUPER "COLOR" TERMINAL an the features of VIDEOTEXTM and more! Allows 
COLOR COMPUTER to communicate with computers like TRS-80 MODEL lll/l & 
APPLE II etc services like COMPUSERVE via MODEM or RS232 DIRECT' Features 

• upload & download basic programs • print or save data to tape • half & full duplex 
DOCUMENTATION 4 TAPE $24.95 ROM PAK $34.95 

SUPER "COLOR" BUG examine 4 change memory contents in the color computer 

• step video display to any location including ROM • look at contents of 
ROMPACKS' • access high res graphics 4 create 4 debug machine language 
programs TAPE AND DOCUMENTATION $19.95 Rom Pak $29.95 

SUPER "COLOR" SKETCHER turns the color computer into a drawing board 
Supports 32K ram • save and load graphics to tape • create basic graphics 
programs • print graphics to R S LPVII. R.S.LPVIII and EPSON MX 80 
TAPE AND DOCUMENTATION $24.95 ROM PAK $34.95 

GAMES 

MODEL III / 1 16K AND COLOR COMPUTER EXTfBAS. 

FEATURE QUALITY GRAPHICS AND SOUND! 

A0VENTURE3PAK TAPE $24.95 

This TRILOGY OF 3D FANTASY GAMES takes you lo the WORLD UNDER THE 
CIMEEON MOON. Engage m ritual combat with tooamoath, narthokc monsters 
and skilled warriors. Advance in rank with play experience Then adventure through 
DAZMAR'S UNDERWORLD OF DOOM to the forbidden ruins of castle argaan 
Search for the eye of dazmar while avoiding the sorceror's intricate traps Survivors 
musl then negotiate treacherous trails among the perilous peaks of the ugrek 
moutams lo the FORSAKEN GULTCH where the wicked idol awaits restoration. 

VEGAS 5-PAK TAPE $19.95 

The THRILLS OF A VEGAS CASINO at home. F ive action packed Vegas games for 
up to four players. CASINO CRAPS «21 • ONE ARMED BANDIT • UP ft DOWN THE 
RIVER • KENO Bank tracks players' winnings from game to game • realistic cards 

• regulation tables • boards • authentic sounds • lively graphics • official rules in 
each game 

COM B AT 3-PA K TAPE $24.95 

Three action packed two player games featuring lifelike graphics and sound of 
LASER FIRE. CANNONS, and PHOTON TORPEDOES 

2-1-0 TANK COMBAT five terrains • the experienced arcade player can design 
combat scenario STELLAR BATTLE pilot a flex wing lighter al incredible speeds in 
enemy space taking out dorian tye lighters defending the imperial star fortress. 
GALACTIC BLOCKADE maneuver your craft in a course lhat boxes your opponenl 
but avoid cosmic debris and hostile space probes! 

MODEL lll/l SOFTWARE 

REQUIRES 16K MODEL III OR LEVEL II BASIC 
READ THIS! Add graphics to your programs In minutes or draw schematics, 
graphs, logos pictures etc. with graphics and lettering 4 save them as 
subroutines or programs'' SUPER SKETCHER does more and works just like a text 
editor with graphics • image frames can be edited and animated on screen • 
generate, load 4 save graphics, basic subroutines 4 programs • includes EPSON 
MX-80. R.S. LPVII & R.S.LPVIII graphics screen print driver and more 
TAPE (TAPE IfO) $14.95 DISK (DISK AND TAPE I/O) $19.95 

SUPER WRITER word processing that combines the best features of other good 
word processors and those of the SUPER COLOR WRITER including automatic 
tape of disk file linking and the movable window feature except B/W display See 
SUPER COLOR WRITER for details 1 MODEL l/LH needs lower case mod 
MODEL lll/l TAPE ft DOCUMENTATION $49.95 DISK $59.95 

AUTOMATIC MENU SYSTEM power up and automenu lakes over Execute 
programs and command files, or LIST. LOAD enter DEBUG. BASIC or TRSDOS 
with single keystroke' Features options menu with library of commands 
MODEL III DISK A DOCUMENTATION $12.95 

CODES for THE ELECTRIC PENCIL enter printer control codes within text tile to 
send to smart printers Includes drivers for EPSON MX«0. CENTRONICS 737. MPI 
88 SERIES, and file to customize for other printers TAPE $14.95 

DISK INVENTORY for the MODEL III manage your disk programs A menu driven 
utility featuring sort 4 print by name disk, program type, extension, etc.. 
MODEL III DISK $19.95 

TRS-80 is a Registered Trademark of Tandy Corp 



•480 



Master Charge, VISA and CO D 

accepted 

Allow additional 2 weeks for 

personal checks 

When ordering specify computer type 

Add $3 00 shipping 4 handling 

MN Res. add 5% sales tax. 



nELsan 

iOFTUME 
5MTEH15 



P.O. Box 19096 
Minneapolis, Minn 




^Se» Lisl ol Advertisers on page 402 
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THE ORIGINAL MAGAZINE FOR 
OWNERS OF THE TRS-80™* MICROCOMPUTER 



TRSKiV IS A IRADEMARK Of I ANDY CORP 



SOFTWARE 

FOR TRS-80 • 

OWNERS 



H 



CQMPUTRQNICS 



| MONTHLY 

|| NtWSMAGAZINE 

C. 



FOR TRS-80" 
OWNERS 



MONTHLY NEWSMAGAZINE 

Practical Support For Model I, II & HI 



PRACTICAL APPLICATIONS 
BUSINESS 

GAMBLING • GAMES 
EDUCATION 
PERSONAL FINANCE 
BEGINNER'S CORNER 
NEW PRODUCTS 
SOFTWARE EXCHANGE 
MARKET PLACE 
QUESTIONS AND ANSWERS 
PROGRAM PRINTOUTS 
AND MORE 



NOW IN OUR 4th YEAR 



PROGRAMS AND ARIK LES PUBI ISHfcD IN RFCENI ISM it S 
INCI UDE THE EOI LOWING: 

• HNCALC A COMPI H IE EINANUAI APPI K A I IONS PACKAGE 

• 1NEORMA1ION SYSTEM REVIEW 

• STATISTICAI COMBINATIONS 

• PASCAI S IRIANGI E 

• ASSKMBl Y I ANOUAOE I OR BEGINNERb 

• DISK HI KS 

• MOD III REVIEW 

• KEYBOARD 1 1 HINDI R AND I Kill I IN( . EXPI AINID 

• DOS COMMANDS IN I EVH II 

• PROBABII II Y CURVE GENERA I OR 

• CAI CUI A I OR SIMUI A I IONS 

• I HI MEGABYTI CAP 

• STOCKS AND BONDS 

• PUDGE I ANAI YSIS (EOR BUSINI SS AND HOMI i 

• NE.WDOS MO Rl VIEW 

• DUTCHINC IDE HORSE SYSTEM I HA I CAN I IOSI 

• A SIMULA I ED GOLF GAME! 

• CONTINUOUS EORM SOURCES 

• TAX SAVER REVIEW 

AND MORt 



f^ 



**& 



FINCALC 



A Complete Financial Analysis Package Used 



H§C^* To Calculate Markup, Margin, Annuities, Compound Interest, Nominal 
^ O^ - And Effective Rates, Sinking Funds, Mortgage Calculations, Future Value, 
K^V Savings and Insurance, Percentage Difference Between Two Numbers, 
Amortization Schedule and More 



*£ 



SF.ND FOR OUR NEW 64 PAGE SOFTWARE CATALOG (INCLUDING L IS TINGS OF HUNDREDS OF TRS80'" PROGRAMS AVAIl ABl E ON 
CASSETTE AND DISKETTE) S2 00 OR FREE WITH EACH SUBSCRIPI IONS OR SAMPLE ISSUE 



* All programs are supplied on cassette (add S3 (or Diskette Version add $5 (or modilied Mod II Version). 



•CQMPLITRQMCS- 



W>«U'(» 



'tx> ■M'*.i 



^9 



SO N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 

ONE YEAR SUBSCRIPTION $24 

TWO YEAR SUBSCRIPTION $48 

SAMPLE OF LATEST ISSUE $ 4 

START MY SUBSCRIPTION WITH ISSUE 

i»l July 1978 •» 12 June 1979 • »24 July 1980 

NEW SUBSCRIPTION RENEWAL 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 

'30 January I98ll 



NEW!!! 

MOD II NEWSLETTER 
$18/year Cor 11 i««uc«) 



HOUR 
24 ORDER 
LINE 



ii|gi(914) 425-1535 





CREDIT CARD NUMBER 
SIGNATURE 



EXP DATE 



. NAME _ 



ADDRESS 



CITY 



-STATE _ 



ZIP 



*** ADD $12/YEAR (CANADA. MEXICO) ADD $24/ YEAR AIR MAIL - OUTSIDE OF USA, CANADA & MEXICO '•• 
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• ••EVERYTHING FOR YOUR TRS-80 ••• 



TRS-80 m is a trademark of the Radio Shack Division of Tandy Corporation 



MOD-II PROGRAMS 



it All orders processed within 24-Hours 
• 30-Day money back guarantee on all TRSDOS Software 
it Add $3.00 for shipping in UPS Areas 
*Add $4.00 for C.O.D. or NON-UPS Areas 
it Add $5.00 outside U.S.A., Canada & Mexico 
* We will match any bonafide advertised price 
in any of the Major Computer Magazines 
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(1) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing and 
printer formatting features $325 (STANDARD 
TRSDOS VERSION) $350 (DIABLO. NEC OR QUME 
TRSDOS VERSION) 

(2) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL. 
INVOICING AND PAYROLL (Small Business Systems 
Group), an extensive business System lor the serious 
user can be used one module at a time or as a co 
ordinated system $225 per module $1299 tor the 
complete system 

(3) GENERAL LEOOER, ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL 
AND PAYROLL (Compumax). a complete user ori- 
ented business system can be used one module at a 
lima or as a coordinated system $140 per module. . 
$995 lor the complete system 

(4) MOD-II UTILITY PACKAGE (Racet Computes) 
adds important utilities to TRSDOS copy dies 
selectively (aster and more accurate file copying 
repair bad directories displays sorted directory of 
all files on 1 to 4 disk drives SUPERZAP change 
disk ID and more $150 

(5) ADVENTURE #1-eS (Scott Adams ■ Adventure 
International) a series of games formally only 
available on the large computers your goal is to work 
your way through a man of obstacles m order to 
recover a secret treasure or complete a mission the 
package includes all 9 Adventures written by Scott 
Adams $99 95 

(6) GSF (Race! Computers) Generated Subroutine 
Facility a series of super fast machine language 
utilities that can be caned Irom a BASIC program (no 
machine language knowledge required) sorts 1000 
items m under 5 seconds allows PEEK and POKE 
statements move data blocks compress and un- 
compress data works under TRSDOS $50 

(7) OSM (Race! Computes) Disk Sort Merge sorts 
and merges large multiple diskette files on a 1 to 4 
drive System NOT AN IN MEMORY SORT can 
actually alphabetize (or any other type of sort) 4 disk 
drives worth ol data, sorts one complete disk ol 
information in 10 minutes information is provided to 
use OSM with the RS MAILING PROGRAM works 
under TRSDOS $150 

(I) RSM (Small Systems Software) a machine 
language monitor and disassembler can be used to 
see and modify memory or disk sectors contains all 
the commands found on the Modei-I version plus 
some additional commands 'or the MOD-II works 
under TRSDOS $39 95 

(•) BLINK BASIC LINK FACILITY {Racet Computes) 
Link from one BASIC program to another saving all 
variables chain programs without losing variables 
$50 

(10) BASIC CROSS REFERENCE UTILITY (Racet 
Computes) lists all variables and strings used m a 
program (with the line numbers in which they appear) 
lists all GOTO s and GOSUB s (with me "me nun 
bars in which they appear) searches for any specific 
variables or strings (with the line number m which 
they appear) $50 

(II) DEVELOPMENT PACKAGE (Racet Computes) 
SUPERZAP (to see. print or change any byte on a 
diskette) Disassembler and MOD-II interface to the 



MICROSOFT EDITOR ASSEMBLER PLUS including 
uploading services and patches for Disk 1/0 assemble 
directly into memory save all or portions Of source 
to disk dynamic debug facility (ZBUG) entended 
editor commands $125 

(12) HARD/SOFT DISK SYSTEM (Racet Computes) 
The software essential to interface any of the popular 
large hard disk drives completely compatible with 
your existing software and files allows up to 20 
megabytes ol storage (and larger) directory expand- 
able to handle thousands of files. ..$400 

(13) CAMEO HARD DISK DRIVE CONTROLLER 

coming soon (November 1') 

(14) HARD DISK DRIVES coming soon (Nov I?) 

(151 H • E COMPUTRONICS, INC. SHARE-A- 
PROQRAM DISKETTE fl works under TRSDOS a 

collection of programs written by MOD-II owners. . 
programs include data base management a word 
processor mail system mortgage calculations, 
checkbook register and many others. $8 (add $3 
postage outside of the United States. Canada and 
Mexico) FREE il you send us a diskette containing 
a program that can be added to the SHARE-A-PRO- 
GRAM DISKETTE 

(15) WABASH CERTIFIED DISKETTES $39 95 (per 
box of 10) 

(17) FLIP SORT DISKETTE STORAGE TRAY Stores 

50 diskettes comes complete with index-dividers, tilt 
plates and adiuSiabie spacing $44 95 
(IS) MASTER PAC 100 100 essential" programs 
BUSINESS PERSONAL FINANCE STATISTICS 
MATH GAMBLING GAMES includes 125 page 
manual and 2 diskettes $99 95 

(19) BUSINESS PAC 100 100 essential business 
programs INVENTORY CONTROL PAYROLL 
BOOKKEEPING SYSTEM STOCK CALCULA- 
TIONS CHECKBOOK MAINTENANCE AC- 
COUNTS RECEIVABLE ACCOUNTS PAYABLE 
includes 125 page manual and two diskettes $149.95 

(20) EDITOR ASSEMBLER (Galactic Software Ltd ) 
the first user oriented Editor Assembler for the 
MODEL II and was designed to utilize all the features 
Of Ihe MODEL II It includes innovative features for 
ease of coding and debugging and complete docu- 
mentation (over 120 pages) works under TRSDOS 

$229 00 

(21) BASIC COMPILER (Microsoft) changes your 
source programs into machine language . increases 
program execution by 3-10 times $395 

(22) MAIL/FILE SYSTEM f'om Galactic Software Ltd 
stores 2 500 names per disk No sorting time is 
required since the file is automatically sorted by first 
and last name plus Zip Code on input Retrieve by any 
combination of 19 user codes Supports an 11 digit 
alphanumeric* 2ip Supports a message ime Comes 
complete with user-onented documentation (100- 
page manual) Allows 'or company name and individ- 
ual of a company and complete phone number (ana 
extension) works unaer TRSDOS $199 00 

(23) INCOME TAX PAC Professional ncome tax 
package most 'orms and schedules Output to video 
O' line prmter automatic memory storage of an 
.nlo'mat'on data can be loaded Irom diskette 
changed and ed'led built merro'checking $19995 

(24) COMPUTER GAMES (SBSG) Mean Checker 
Machine. Star-Trek III. Concentration. Treasure Hunt. 
Banco. Dog Star Adventure $74 95 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



HOUR 

ORDER 

LINE 



(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 



(1) CP/M (Lifeboat Associates) an alternative 
operating system for the MOD-II that allows MOO-II 
owners to use any of the hundreds Of programs 
available under CP/M $170 

(2) CP/M HANDBOOK (Sybex) a step-by-step 
guide to CP/M takes the reader through each of the 
CP/M commands numberous sample programs 
practical hints, reference tables $13 95 

(3) GENERAL LEDGER. ACCOUNTS RECEIVABLE. 
ACCOUNTS PAYABLE. INVENTORY CONTROL, 
AND PAYROLL (Peachtree Software) requires CP/M 
and MICROSOFT BASIC professional business 
systems, (urn key Operation can be used *i single 
modules or as a coordinated system. .$500 per 
module. $2500 for the complete system. 

(4) WORD-STAR. The ultimate word processor a 
menu driven word processing system that can be used 
with any printer All standard word processing 
commands ^T9 included plus many unique com- 
mands only found On WORD STAR requires CP/M 

$495 

(5) MAIL LIST MERGE An add on package that 
allows the user to send form letters (created on 
WORD-STAR) to any compiled mailing list (using any 
CP/M based MAIL program such as the PEACHTREE 
MAIL PROGRAM) requires CP/M. WORD STAR and 
andy CP/M based mail program $150 

(S) SELECTOR III (Micro-Ap) complete data 
management system user defined fields and codes 
manages any list defined by the user includes 
additional modules for simplified inventory control, 
accounts receivable and accounts payable requires 
CBASIC-2 $295 

(7) SELECTOR IV (Micro-Ap) the ultimate data 
management system all features use the SELECTOR 
III plus data file format conversions full page report 
formatter computations., global search and replace 
hard disk compatible oata/text merging.. $550 

(B) GLECTOR (Micro-Ap) add on package to the 
SELECTOR general ledger that allows the user to 
define a customized chart of accounts... $350. 

(9) CBASIC-2 a non-interaclive BASIC used for 
many programs that run under CP/M allows user to 
make more efficient use of disk files . eliminates the 
use of mosl line number references require on such 
programs as the SELECTOR $120 
(101 MICROSOFT BASIC an enhanced version of the 
MICROSOFT BASIC found on TRSDOS adds 
commands such as chaining (allows the user lo LOAD 
and RUN a new program without losing the variables 
currently in memory) long variable length lile 
records. WHILE/WEND and others can be used with 
the BASIC COMPILER to speed up programs (3-10 
times faster execution) $325 

(11) MASTER TAX (CPAids) professional tax 
preparation program prepares schedules. A. B. C. D. 
E.f.G. R/RP. St TC. ES and forms 2106. 21 19 2210 
3468. 3903. 2441. 4625 4726. 4797. 4972. 5695 and 
6521 Printing can be on readily available pre-pnnted 
continuous forms On overlays, or on computer 
generated IRS approved forms Maintainsclmt history 
files interactive with CP/Aids General Ledger $995 

(12) GENERAL LEDGER II (CPA>ds| designed for 
CPA's stores complete 12 month detailed history of 
transactions generates financial statements, 
depreciation, loan amortizations, journals, trial 
balances, statements of changes in financial position, 
and compilation letters includes payroll system with 
automating posting to general ledgers, prints 
payroll register. W2's and payroll checks.. $450 

(13) ELECTRIC PENCIL (Michael Shrayer Software) 
Complete word processor with extensive editing 

and printer formatting features $275 (Standard 
printer version) $300 (DIABLO. NEC or OUME 
version) 

(14) BASIC COMPILER (Microsoft) changes your 
source programs into machine language increases 
program execution by 3-10 times $395 

• (CP/M IS A REGISTERED TRADEMARK 
Of DIGITAL RESEARCH) 
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NEW!!! 

MOD-II NEWSLETTER 
$18 year (or IX issues) 



^See List of Advertisers on page 402 
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♦ ••EVERYT HING FOR YOUR TRS-80 ••• 



* TRS-M" b a trademark of the Radio Shack Division of Tandy Corporation 



too st*** I MASTER PAC 100 



PK 



FOR YOUR TRS-80™ LEVEL II MICROCOMPUTER 

ALL ON CASSETTE OR DISKETTE 



BUSINESS AND PERSONAL FINANCE 

1 CHECKBOOK MAINTENANCE 

2 TIME FOR MONEY TO DOUBLE 

3 FEDERAL F1CA & WITHHOLDING TAX 
3 COMPUTATIONS 

<J HOME BUDGET ANALYSIS _-.#» 

5. ANNUITY COMPUTATION _ «*2lWlLS^ 

6 UNIT PRICING HU**^ 

7 CHANGE FROM PURCHASE "* 

8 NEBS CHECK PRINTER 

9 DAYS BETWEEN DATES 

10 MORTGAGE AMORTIZATION TABLE 

11 INVENTORY CONTROL 

12 PORTFOLIO VALUE COMPUTATIONS 

13 VALUE OF A SHARE OF STOCK 

14 SALES RECORD KEEPING SYSTEM 

15 FUTURE VALUE Of AN INVESTMENT 

16 EFFECTIVE INTEREST RATE (LOAN) 

17 PRESENT VALUE OF A FUTURE AMOUNT 

18 RATE OF RETURN VARIABLE INFLOW 

19 RATE OF RETURN CONSTANT INFLOW 

20 REGULAR WITHDRAWAL FROM INVESTMENT 

21 STRAIGHT LINE DEPRECIATION 

22 SUM OF DIGITS DEPRECIATION 

23 DECLINING BALANCE DEPRECIATION 

24 BREAK EVEN ANALYSIS 

25 SALVAGE VALUE OF INVESTMENT 

26 PAYMENT ON A LOAN 

27 FUTURE SALES PROJECTIONS 

28 CREDIT CARD FILE 

29 ECONOMIC ORDER QUANTITY (EOQ) 
INVENTORY MODEL 

30 VALUE OF HOUSE CONTENTS 

31 TEXT EDITOR 

32 MONTHLY CALENDAR 

33 DAY OF WEEK 

34 CASH FLOW VS DEPRECIATION 

35 COMPLETE MAIL SYSTEM 

36 INTEREST RATE ON A LEASE 






kTl STlCS 



STATISTICS AND MATHEMATICS 

37 RANDOM SAMPLE SELECTION 

38 ANGLO MET1C CONVERSION 

39 MEAN. STANDARD DEVIATION. 
MAXIMUM AND MINIMUM 

40 SIMPLE LINEAR REGRESSION 

41 MULTIPLE REGRESSION ANALYSIS 

42 GEOMETRIC REGRESSION 

43 EXPONENTIAL REGRESSION 

44 SIMPLE MOVING AVERAGE 

45 SIMPLE T TEST «s#T A' 

46 CHI SQUARE TEST 9 * ** 

47 NORMAL PROBABILITIES 

48 BINOMIAL PROBABILITY 

49 POISSON PROBABILITY 

50 MATRIX ADDITION AND SUBTRACTION 

51 MATRIX TRANSPOSE 

52 MATRIX INVERSE 

53 MATRIX MULTIPLICATION 

54 SOLUTION OF SIMULTANEOUS EQUATIONS 

55 QUADRATIC FORMULA 

56 LINEAR EQUATION SOLUTIONS 

57 ROOT HALF INTERVAL SEARCH 

58 ROOTS OF POLYNOMIALS 

59 ROOTS NEWTON S METHODS 

60 PRIME FACTORS OF INTEGER 

61 LEAST COMMON DENOMINATOR 

62 RADIAN DEGREE CONVERSION 

63 NUMERICAL INTEGRATION 

UTILITIES 

64 QUICK SORT ROUTINE 

65 PROGRAM STORAGE INDEX 

66 MULTIPLE CHOICE QUIZ BUILDER 

67 FORM LETTER WRITER 

68 SHELL SORT 

69 CASSETTE LABEL MAKER 

70 CODES MESSAGES 

71 MERGE TWO FILES 

72 SORT WITH REPLACEMENT 



MATH 



GRAPHICS 

73 DRAWS BAR GRAPH 

74 DRAWS HISTOGRAM 

75 MOVING BANNER DISPLAY 

GAMBLING AND GAMES 

76 RANDOM SPORTS QUIZ 

77 GOVERNMENT QUIZ 

78 HORSE RACE 

79 MAGIC SQUARE 

80 ARITHMETIC TEACHER 

81 HIGH LOW GAMBLE 

82 UNSCRAMBLE LETTERS 

83 HANGMAN 

84 GAME OF NIM 

85 RUSSIAN ROULE 1 I E 

86 ROULETTE GAME 

87 ONE ARMED BANDIT 

88 HIT THE TARGET 

89 WALKING DRUNK 

90 STATE CAPITAL QUIZ 

91 TIC T AC TOE 

92 DICE GAME 

93 LUNAR LANDAR GAME 

94 BIORHYTHM 

95 HORSE SELEC TOR (CLASS CALCULATOR i 

96 RANDOM DICE ROLL 

97 RANDOM ROULETTE ROLL 

98 RANDOM CARD DEALER 

99 GUESS THE NUMBER 
100 WHITE OUT SCREEN 



GAM*** 



t lO PAGE 
USEE 



■-»-£& 



GUARANTEED SATISFACTION 

30 DAY MONEY BACK GUARANTEE ON ALL SOFTWARE 



•CQMPLJTRQNXCSi 
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50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 

PLEASE SEND ME: 

D MASTER PAC 100 CASSETTE VERSION $59 95 

D MASTER PAC 100 DISKETTE VERSION $59 95 

D MASTER PAC 100 (TRS30 MODEL II VERSION) $99.95 




-_T^ h \ ^ m HOUR 
i QB>\24 ORDER 
LINE 

(914) 425-1535 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIOE OF NY. STATE) 

(800) 431-2818 

* All orders processed within 24-Hour s 

* 30-Day money back guarantee on all Software 



CREDIT CARD NUMBER EXP DATE 



SIGNATURE 



NAME 

ADDRESS CITY STATE ZIP 

•" ADO $3.00 FOR SHIPPING IN UPS AREAS • ADO MM FOR C.O.D. OR NON-UPS AREAS • ADO SS.M OUTSIDE U.S.A, CANADA A MEXICO 
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• • • EVERYTHING FOR YOUR TRS-80 • • • 

TRS-SO Is a iradrmark of thr Radio Shack Division of Tandy Corporation 

BUSINESS PAC 100 

100 Ready-To-Run 
Business Programs 




Software 



(ON CASSETTE OR DISKETTE) Includes 110 Page Users Manual 5 Cassettes (Or Diskettes) 

Inventory Control Payroll Bookkeeping System Stock Calculations..... 

Checkbook Maintenance.... Accounts Receivable.... Accounts Payable 



BUSINESS 100 PROGRAM LIST 



1 RULE78 


2 ANNU1 


3 DATE 


4 DAYYEAR 


5 LEASEINT 


6 BREAKEVN 


7 DEPRSL 


8 DEPRSY 


9 DEPRDB 


10 DEPRDDB 


II TAXDEP 


12 CHECK2 


13 CHECKBK1 


14 MORTGAGE/ A 


15 MULTMON 


16 SALVAGE 


17 RRVARIN 


18 RRCONST 


19 EFFECT 


20 FVAL 


21 PVAL 


22 LOANPAY 


23 REGWTTH 


24 SIMPDISK 


25 DATEVAL 


26 ANNUDEF 


27 MARKUP 


28 SINKFUND 


29 BONDVAL 


30 DEPLETE 


31 BLACKSH 


32 ST0CVAL1 


33 WARVAL 


34 BONDVAL2 


35 EPSEST 


36 BETAALPH 


37 SHARPE1 


38 OPTWRITE 


39 RTVAL 


40 EXPVAL 


41 BAYES 


42 VALPRINF 


43 VALADINF 


44 UTILITY 


45 SIMPLEX 


46 TRANS 


47 EOQ 


48 QUEUE 1 


49 CVP 


50 CONDPROF 


51 OPTLOSS 


52 FQUOQ 


MAME 


S3 FQEOWSH 


54 FQEOQPB 


55 QUEUECB 


56 NCFANAL 


57 PROFIND 


58 CAP1 



Interest Apportionment by Rule or the 78' s 

Annuity computation program 

Time between dates 

Day of year a particular date falls on 

Interest rate on lease 

Breakeven analysis 

Straightine depreciation 

Sum of the digits depreciation 

Declining balance depreciation 

Double declining balance depreciation 

Cash flow vs. depreciation tables 

Pnnts NEBS checks along with daily register 

Checkbook maintenance program 

Mortgage amortization table 

Computes time needed for money to double, tnpie. etc 

Determines salvage value of an investment 

Rate of return on investment with variable inflows 

Rate of return on investment with constant inflows 

Effective interest rate of a loan 

Future value of an investment (compound interest) 

Present value of a future amount 

Amount of payment on a loan 

Equal withdrawals from investment to leave over 

Simple discount analysis 

Equivalent & nonequrvalent dated values for oblig. 

Present value of deferred annuities 

% Markup analysis for items 

Sinking fund amortization program 

Value of a bond 

Depletion analyse 

Black Scholes options analyse 

Expected return on stock via discounts dividends 

Value of a warrant 

Value of a bond 

Estimate of future earnings per share for company 

Computes alpha and beta variables for stock 

Portfolio selection modei-i.e what stocks to hold 

Option writing computations 

Value of a right m 

Expected value analysis 

Bayesian decisions 

Value of perfect information 

Value of additional information 

Derives utility function 

Linear programming solution by simplex method 

Transportation method for linear programming 

Economic order quantity inventory model 

Single server queuelng (waiting line) model 

Cost-volume-profit analysis 

Conditional profit tables 

Opportunity loss tables 

Fixed quantity economic order quantity model 



DESCRIPTION 

As above but with shortages permitted 

As above but with quantity price breaks 

Cost-benefit waiting line analysis 

Net cash-flow analysis for simple Investment 

Profitability index of a project 

Cap. Asset Pr. Model analysis of project 



59 WACC Weighted average cost of capital 

60 COMPBAL True rate on loan with compensating bal. required 

61 DISCBAL True rate on discounted loan 

62 MERGANAL Merger analysis computations 

63 FURAT Financial ratios for a firm 

64 NPV Net present value of project 

65 PPJNDLAS Laspeyres price index 

66 PPJNDPA Paasche price index 

67 SEASIND Constructs seasonal quantity indices for company 

68 TIMETR Time series analysis bnear trend 

69 TIMEMOV Time series analysis moving average trend 

70 FUPfuNF Future price estimation with inflation 

71 MALPAC Mating list system 

72 LETWRT Letter writing system-Bnks with MALPAC 

73 SORT3 Sorts list of names 

74 LABEL! Shipping label maker 

75 LABEL2 Name label maker 

76 BUS8UD DOME business bookkeeping system 

77 TIMECLCK Computes weeks total hours from rjmeclock info. 

78 ACCTPAY in memory accounts payable system-storage permitted 

79 INVOICE Generate invoice on screen and print on printer 

80 INVENT2 In memory inventory control system 

81 TELDIR Computerized telephone directory 

82 T1MUSAN Time use analysis 

83 ASSIGN Use of assignment algorithm for optimal job assign 

84 ACCTREC in memory accounts receivable system-storage ok 

85 TERMSPAY Compares 3 methods of repayment of loans 

66 PAYNET Computes gross pay required for given net 

67 SELLPR Computes selling price for given alter tax amount 

88 ARBCOMP Arbitrage computations 

89 DEPRSF Sinking fund depreciation 

90 UPSZONE Finds UPS zones from zip code 

91 ENVELOPE Types envelope Including return address 

92 AUTOEXP Automobile expense analysis 

93 INSFIE Insurance poacy file 

94 PAYROLL2 ri memory payroll system 

95 DILANAL Dilution analysis 

96 LOANAFFD Loan amount a borrower can afford 

97 RENTPRCH Purchase price for rental property 

98 SALELEAS SaWeaseback analysis 

99 RRCONVBD Investor's rate of return on convertable bond 
100 PORTVAL9 Stock market portfoto storage-valuation program 



CASSETTE VERSION *99 

DISKETTE VERSION *99 

TRS-80* MODEL O VERSION »149 



ADD $3.00 FOR SHIPPING IN UPS AREAS 
ADD $4.00 FOR C.O.D. OR NON-UPS AREAS 
ADD $5.00 OUTSIDE U.S.A, CANADA A MEXICO 



.95 **VV TOLi Po* 
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AvIATV ^^rVAT C LAL APRJZATCTfi SERVC^ 



50 N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 




HOD* A^gj 

** LINE 
(9 14) 425-1535 



•See List ot Advertisers on page 402 
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m > EVERYTHING FOR YOUR TRS-80 ••• 

TRS-SO la a trademark of ihe Radio Shark Division of Tandy Corporation 

* All orders processed within 24-Hours 
^%^%^%W% W^W ^t Mk *l* Bi *W% * 30-Day money back guarantee on all Software 
V* %J \J MM 13 1 IN A J mLMJ * Add $3. 00 for shipping in UPS A reas 

• Add $4.00 for COD. or NON-UPS Areas 
• Add $5.00 outside U.S.A., Canada & Mexico 




SMALL BUSINESS 
SYSTEMS GROUP 



BUSINESS 
SYSTEMS 







FACTS ABOUT THE S.B.S.G. BUSINESS PACKAGES 

1. S.B.S.G. is a sophisticated Business Software System designed for the serious businessman. 

2 Each of the S.B.S.G. Business Modules may be purchased separately., or you may purchase the entire coordinated business system. 

3 Modules purchased separately do not coordinate with the General Ledger (although for the standard S.B.S.G. fee, the user may upgrade his 
individual modules for the coordinated system). 

4 Foolproof. Step-By-Step procedures are supplied, planned and documented for the First-Time Computer User. All programs are self- 
explanatory, telling the user what is required at every step 

5 Programs are written in BASIC and the source code listing is supplied for those users who decide to modify the original system 

6 A complete users manual is supplied with each module. 

7 Demo Data diskettes are supplied with sample data. 

8. S.B.S.G. has an In-House staff that can answer questions and problems related to the proper use of the S.B.S.G. Business System (on the 
telephone or through the mail). 

9. First-Time Computer Owners Note- Instructions are provided for entering state payroll withholding tables. There is an additional charge if 
you prefer to have S.B.S.G. Programmers insert the correct data 

10 Minimum system requirement is 2-drives to run any single module. 

11. Minimum system requirement is 3-drives to run the coordinated business system (AR-AP-GL) or (AR-AP-GL with PAYROLL) 

12 Minimum system requirement is 4-drives to run the extended coordinated system (AR-AP-GL-PR and INVENTORY/INVOICING) 

13 The A. OSBORNE & ASSOCIATES business manuals are provided FREE with each order (they may be purchased separately at $20 per 
manual). 

14 The INVENTORY and INVOICING modules are original programs written by S.B.S.G. 

15. Each module can be purchased as independent modules to run on a 2 or more drive system except INVOICING 

16. Memory requirement is 48K for the MODEL-I and 64K for the MODEL-II. 

17. All S.B.S.G. BUSINESS SYSTEMS may be upgraded up to 4-disk drives. No data is ever lost during an upgrade. There isa standard S.B.S.G. 
charge for all upgrades. 



ACCOUNTS PAYABLE 

The accounts payable system receives data concerning purchases from 
suppliers and produces checks in payment of outstanding invoices In 
addition, it produces cash management reports This system aids in 
tight financial control over all cash disbursements of the business. 
Several reports are available and supply information needed for the 
analysis of payments, expenses, purchases and cash requirements. All 
A/P data feeds General Ledger so that data is entered into the system 
just once. These programs were developed 5 years ago for the Wang 
micro-computer and have been tested in many environments since 
then. The package has been converted to the TRS-80" and is now well 
documented, on-line, interactive micro-computer system with the 
capabilities of (or exceeding many larger systems) 

CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; everything revolves around the invoice, handles 
new invoice or credit memo or debit memo 

* invoce information recorded, invoice ». description, buyer, check 
register #. invoice date, age date, amount of invoice, discount (in %), 
freight, tax ($), total payable 

* transaction print and file maintenance procedures insure accuracy 

* flexible check calculation procedure; allows checks to be calculated 
for a set of vendors-or-for specific vendors 

* program prints your checks; contiguous computer checks with your 
company letterhead can be purchased from SBSG 

* reports include (samples on back): 

• open item listing/closed item listing - both detail and summary 

• debit memo listing/credit memo listing 

• aging 

• check register report (to give an audit trail of checks printed) 

• vendor listing and vendor activity (activity of the whole year) 

* fully linked to GENERAL LEDGER; each invoice can be distributed 
to as many as five (5) different GL accounts; system automatically 
posts to cash and A/P accounts 



ACCOUNTS RECEIVABLE 

The objective of a computerized A; Ft system is to prepare accurate and 
timeley monthly statements to credit customers. Management can 
generate information required to control the amount of credit extended 
and the collection of money owed in order to maximize profitable credit 
sales while minimizing losses from bad debts. The programs com- 
posing this system were developed 5 years ago, especially for small 
businesses using the Wang Microcomputer. They have been tested in 
many environments since then. Each module can be used stand alone 
or can feed General Ledger for a fully integrated system. 
CAPABILITIES: 

* menu driven; easy to use; full screen prompting and cursor control 

* invoice oriented; invoices can be entered before ready for billing, 
when ready for billing, after billing or after paid 

* allows entry of new invoice, credit memo, debit memo, or change/ 
delete invoice 

* allows for progress payment 

* transaction information includes: 

• type of A'R transaction • billing date 

• customer P.O. # • general ledger account number 

• description of P.O. • invoice amount 

• shipping/transportation charges 

• tax charges 

• payment 

• progress payment information 

• transaction print & file maintenance procedures insure accuracy 

* customer statements printed; computer statements with your corn- 
pay letterhead can be purchased from SBSG 

* reports include: (samples on back) 

• listing of invoices not yet billed 

• open items (unpaid invoices) 

• closed items (paid invoices) 

• aging 

* fully linked to General Ledger; will post to applicable accounts; 
debit A/R, credits account you specify 
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• • • EVER YTHING FOR YOUR TRS-80 • • • 

TRS-SO Is a trademark of ihr Radio Shark Division of Tandy Corporation 



PAYROLL 

Payroll invoices many complex calculations and the production of 
reports and documents, many of which are required by government 
agencies It is an ideal candidate for the computer. With this Payroll 
system in-house, you can promptly and accurately pay your employees 
and generate accruate documents/reports to management, employees, 
and appropriate government agencies concerning earnings, taxes, and 
other deductions The package has been converted to the TRS-80'" and 
is now a well documented, op-line, interactive, micro-computer system 
with the capabilities of (or exceeding) many larger systems. 
CAPABILITIES: 

* performs all necessary payroll tasks including: 

• file maintenance, pay data entry and verification 

• computation of pay and deduction amounts 

• printing of reports and checks 

+ can handle salaried and hourly employees 

* employees can receive: 

• hourly or salary wage 

• vacation pay 

• holiday pay 

• piecework pay 

• overtime pay 

* employees can be paid using any combination of pay types (except, 
hourly cannot receive salary and salary cannot receive hourly) 

* special non-taxable or taxable lump sums can be paid regularly or 
one time (bonus, reimbursements, etc) 

* health and welfare deductions can be automatically calculated for 
each employee 

* earnings-to-date are accumulated and added to permanent records: 
taxes are computed and deducted: US income tax. Social Security 
tax. state income tax, other deductions (regular or one time) 

* paychecks are printed, computer checks with your company letter- 
head can be purchased from SBSG 

* calculations are accumulated for. employee pay history, 941A re- 
port, W-2 report, insurance report, absentee report 

* fully linked to General Ledger. Each employees payroll information 
can be distributed to as many as (12) twelve different GL accounts; 
system automatically posts to cash account 



INVENTORY CONTROL/INVOICING 

* ISAM (Indexed Sequential Access Method) eliminates the necessity 
for time consuming sort. 

* Pre-Allocated Files for IMMEDIATE update and inquiry capabilities 

* Fast Disk storage and retrieval 

* Inventory Master Record includes class SKU ..Division. Retail 
Cost ..Beginning Balance. Period Sale Units. Period Receipts. ..On 
Order. On Hand ..Minimum Reorder Point Recommended Re- 
order Amount. ..Vendor Number Period Sale Dollars. ..YTD Sale 
Units. YTD Sale Dollars. 

* Calculated and Displayed Formulas include Gross Margin ($). 
Gross Margin (%).. Gross Margin ROI (%) Average Inventory Retail 
($).. Average Inventory Cost ($)... Turn-Over (%) 

* Reports Generated include Master File Listing Class Description 
Listing. ..Transaction Audit Trail Minimum Reorder Point by Ven- 
dor. Retail Price List Retail & Cost Price List. Period Sales Report 

Yearto Date Sales Report Stock Status (Screen or printer output) 
Commission Report (for salesmen and buyers) 

* Transaction Types include. Sales, Vendor Receipts Vendor 
Orders Customer Returns. Vendor Returns. Transfer Stock 



GENERAL LEOGER 

The General Ledger accounting system consolidates financial data 
from other accounting subsystems ( A/R, A/P. Payroll, direct posting) in 
an accurate and timely manner. Major reports include the Income State- 
ment and Balance Sheet and a "special" report designed by manage- 
ment. The beauty of this General Ledger system is that it is completely 
user formatted You "customize" the account numbers, descriptions, 
and report formats to suit particular business requirements. These 
programs were developed 5 years ago for the Wang micro-computer 
and have been tested in many environments since then. The package 
has been converted to the TRS-SO™ and is now a well documented, on- 
line, interactive micro-computer system with the capabilities of (or 
exceeding) many larger systems. 
CAPABILITIES: 

* more than 200 chart of accounts can be handled 

* account number structure is user defined and controlled 

* more than 1,750 transactions may be entered via: 

• direct posting; done by hand; validated against the account file 
before acceptance 

• external posting; generated by A/R. A/P. Payroll or any other 
user source 

* data is maintained and reported by: 

• month 

• quarter 

• year 

• previous three quarters 

* reports (samples on back) include: 

• trial balances 

• income statement 

• balance sheet 

• special accounts reports and more 

* user formats reports with the following designated as you wish: 

• titles 

• headings 

• account numbers 

• descriptions 

• subtotals 

• totals 

• skip lines 

• skip pages 

* up to eight levels of totals - fully user designated 

* menu driven; easy to use; full screen prompting and cursor control 
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50 N. PASCACK ROAD 
SPRING VALLEY, NEW YORK 10977 



NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




£0f HOUR -"' 

24 ORDER 
LINE 

(914) 425-1535 



PRICING MOD-1 

VERSION 

ACCOUNTS RECEIVABLE $125 

ACCOUNTS PAYABLE $125 

GENERAL LEDGER $125 

PAYROLL $125 

INVENTORY $175 

INVOICING $150 

COORDINATED INVENTORY/INVOICING ACCOUNTS RECEIVABLE $449 

COORDINATED AR-AP-GL $375 

COORDINATED AR-AP-GL with PAYROLL $495 

EXTENDED COORDINATED AR-AP-GL INVOICING/INVENTORY with PAYROLL $799 



MOD-II 


MOD-HI 


VERSION 


VERSION 


$225 


$199.95 


$225 


$199.95 


$225 


$199.95 


$225 


$199.95 


$275 


$199.95 


$250 


$199.95 


$749 


$599.95 


$675 


$599 95 


$899 


$799 95 


$1299 


$1199.95 



■ See List of Advertisers on oaae 402 
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• • • EVERYTHING For Your TRS-80* Model I or Model III • • • 



TRS-80" is a trademark of Tandy Corp 



REMsoft, Inc 



All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add S3 00 lor shipping in UPS Areas 
• Add $4 00 lor C O Dor NON UPS Areas 
• Add $5 00 lo Canada or Mexico 
• Add exact postage to al! other countries 



Let Your TRS-80™ j 
Teach You 

ASSEMBLY LANGUAGE 


LEARN TRS-80 " 
ASSEMRLY LANGUAGE 

DISK 1/0 


REMASSEM-1 | 

f i redo) buying book alter book on assembly language programming and 
still not knowing your POP from your PUSH? 

RcMsOFT proudly announces a more efficient way using your own I 
TRS-80" to learn the fundamentals of assembly language programming 
at YOUR pace and at YOUR convenience 

Our unique package INTRODUCTION TO TRS-80'" ASSEMBLY 
PROGRAMMING", will provide you with tne following 

* Ten 4b-mmute lessons on audio cassettes 

* A driver program to make your TRS-80" video monitor serve as a 
blackboard for the instructor 

* A display program for each lesson to provide illustration and rein- 
forcement for what you are hearing 

* A textbook on TRS-80" Assembly Language Programming 

* Step-by-step dissection of complete and useful routines to tesl I 
memory and to gam direct control over the keyboard video mom 

tor and printer 

* How to access and use powerful routines in your Level II ROM | 
T his course was developed and recorded by Joseph E Willis and is based 

on the successful series of courses he has laughi at Meta Technologies 
Corporation the Radio Shack Computer Center, and other locations m 
Northern Ohio The minimum system required is a Level II. 16K RAM 


j REMDISK-1 

Your disk system and you can really step out with REMsOf i ■-, Educational 
Module. REMDISK-1, a short course revealing the details of DISK I O 
PROGRAMMING using assembly language 

Using the same format as our extremely popular introduction to assem- 
bly language programming, this "ASSEMBLY LANGUAGE DISK I/O 
PROGRAMMING" course includes 

* Two 45 minute lessons on audio cassette 

i * A driver program to make your TRS-80" video monitor serve as a 
blackboard for the instructor 

* A display program for each lesson to provide illustration and rein- 
forcement for what you are hearing 

i * A booklet of comprehensive fuMy-commented program listings 
illustrating sequential file I O random-access file I O and track 
and sector I O 

* A diskette with machine-readable source codes for a;i programs 
! discussed m both Radio shack EDTASM and Macro formats 

* Routines to convert from one assembler format to the other 

This course was developed and recorded by Joseph E Willis for the 
student with experience in assembly language programming it is an 
intermediate to advanced -level course Minimum hardware required is a 
Model I Level II 16K RAM one disk drive system 
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50 N PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 



PLEASE SEND ME: 

DRFMASSEM-1 (TRS 80 MODEL I CASSETTE) $69 95 

DREMASSEM 1 (TRS-80MODFI IDISKETTE) S74 95 

QREMASSEM-1 (TRS-80MODEL III CASSETTE) $74 95 

D REMASSEM-1 (TRS-80 MODEL III DISKETTE) $79 95 

□ REMDISK-1 (TRS-80 MODEL I DISKETTE) $29 95 

D REMDISK-1 (TRS-80 MODEL III DISKETTE) $34 95 



€P\24 

(914) 425-1 



HOUR 

ORDER 

LINE 




NEW TOLL-FREE 

ORDER LINE 

(OUTSIDE OF N Y STATE) 

(800) 431-2818 



CREDIT CARD NUMBER 

SIGNATURE 

ADDRESS 



NAME 



EXP DATE 



CITY STATE 

*•* ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE 



ZIP 
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FOR THE TRS-80 MODEL I AND MODEL III 



1 System Diagnostic 




t T&M<8£&* nS * 



ProRSrOP-S^ 12 ^ 



nV%0 nt QfjLSa^^^ For Cassette or Disk 

' — IS YOUR COMPUTER WORKING? 



^^^ -_ ARE YOU SURE? 

ai m *w^ ROM: (herk$um ,e$| 

^^^^^^0 " *^^ RAM: four separate tests including every address and data value. 

^ ^ vinr-r* ni«Pi *v- character generator, video RAM, and video signal. 

every key contact tested, 
character test 
read/write/verify data, 
connector fault, data transmission, framing, data loop, baud rate generator. 

disk controller, drive select and restore, track seek and verify data, read/write/verify all tracks and 
sectors with or without erasing, sector formatting, disk drive timer, disk head cleaner. 

— Individual tests of each device with operator monitoring and intervention. 

— Continuous sysem tests run continually for hours testing each component, with diagnostic reports optionally written on line printer. 

— One program adapts to any system configuration and hardware. 

— Complete instructions and documentation. 



ROM: 

RAM: 

VIDEO DISPLAY: 

KEYBOARD: 

LINE PRINTER: 

CASSETTE RECORDER: 

RS-232-C INTERFACE: 

DISK DRIVES: 



MON-3 and MON-4 

The TRS-80 Monitor Programs 03 and *4 are powerful utility programs 
enabling you to interact directly with the TRS-80 in Machine Language. 
They are as useful for beginners as for advanced programmers. 

• BEGINNERS can learn to interact directly with the computer in 
Machine Language. 

• 40-PAGE MANUAL provided with each program. 

• SIMPLE commands, easy to use. 

The Features Of The Monitor Pro g rams Enable You To The Followin g 

• DISPLAY memory in different ways. 

• DISASSEMBLE memory to see Machine Language commands. 

• MOVE and COMPARE memory areas. 

• SEARCH through memory to find specific values. 

• MODIFY memory in various ways. 

• RELOCATE object programs. 

• PRINT output on video display or line printer. 

• READ and WRITE object tapes in SYSTEM Format. 

• UNLOAD programs using low RAM on disk. 

• SAVE and READ disk files (MON-4 Only). 

• INPUT and OUTPUT of disk sectors (MON-4 Only). 

• SEND and RECEIVE data over RS-232-C Interface (MON-4 Only). 

• Create SYMBOLIC Tapes (MONO) or Files (MON-4) of Disassem- 
bled output for Editor/Assembler program. 

MON-3 (For Cassette Systems) $399$ 
MON-4 (For Disk Systems) $49-95 



SMART TERMINAL 

Enables your TRS-80 to be used as a remote terminal to a time sharing 
computer system. Supports upper/lower case and full range of control 
keys, including control key mapping into any ASCII character. Automatic 
transmission of files between TRS-80 and host computer. Files can be read 
from or written to cassette tape or disk. Incoming data can be printed on 
line printer or stored in memory for subsequent save to cassette or disk. 
Disk and tape files are fully compatible with the ELECTRIC PENCIL pro- 

!;r am. Baud rate and RS-232-C sense switches can be reset without open- 
ng Expansion Interface. Requires RS-232-C interface and modem. 

Cassette or Disk Version $69.95 



FASTSORT 

A series of machine-language subroutines (for 16K, 32K and 48K Sys- 
tems) to sort data from BASIC programs. Data may be alphabetic (string) 
or numeric (integer only). Works equally well with Level II or Disk Basic. 
Complete instructions and examples provided for interfacing with your 
BASIC programs. 

Cassette or Disk Version $9-95 



MAILING UST 

Maintains mailing lists of over 1000 names. Commands allow adding, 
changing, deleting, and finding names. Sorting is done by machine lan- 
guage according to the information in any field (i.e., name, address, zip 
code). Labels printed in 1, 2, or 3 columns, in master list on one line, or on 
video display. 

Disk Version Only S*9-95 



HOME BUDGET 

Combines the maintenance of your checkbook with analysis of your 
income, expenses, and monthly bilk. Handles data including bills, in- 
cluding bills, income, deposits, checks and debits to your checking ac- 
count, and cash expenses. Computes checkbook balance, list of unpaid 
bills, monthly and year-to-date summaries of income and expenses show- 
ing income tax deductions. All output printed on video display or line 
printer at user's option. Complete instructions for customizing to suit 
your own budget. 

Disk Version Only $49 95 



SMALL BUSINESS ACCOUNTING 

Based on Dome Bookkeeping Record *612, this program keeps track of 
income, expenditures, and payroll for a small business of up to 16 employ- 
ees. Income and expenditures can be entered on a daily, weekly, or 
monthly basis, and the program computes monthly, through last month, 
and year-to-date summaries. Payroll section keeps record of individual 
employees and their paychecks with up to six categories of payroll de- 
ductions. Employee payroll record and year-to-date payroll totals can be 
computed. Manual contains complete instructions for customizing to suit 
your business. 

Disk Version $49-95 
Cassette Version $29-95 
(Cassette Version does not contain payroll) 
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SO N. PASCACK ROAD 
SPRING VALLEY. NEW YORK 10977 






NEW TOLL-FREE 
ORDER LINE 

(OUTSIDE OF NY. STATE) 

(800) 431-2818 




HOUR 
24 ORDER 
LINE 

(914) 425-1535 



• All orders processed within 24 Hours 
• 30-Day money back guarantee 
• Add *3 00 for shipping in UPS Areas 
• Add $4.00 (or COD or NON-UPS Areas 
• Add $5 00 to Canada or Mexico 
• Add exact postage to all other countries 



y'See List ol Advertisers on page 402 
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Meet your fellow TRS-80 owner. 



Users Groups 



Many of you have been waiting for it, and here it is: an interna- 
tional list of TRS-80 users groups. This list is undoubtedly in- 
complete and some of the addresses are over a year old, but we be- 
lieve this list to be an excellent representation of what is available 
to the TRS-80 owner. 

80 Microcomputing intends to update this list periodically 
as a service to our readers. So, if anyone is forming a new group 



or the group you are in did not make this list, please notify us. 
Also, if your group has changed its name or is no longer in ex- 
istence let us Know. 

Users groups are an excellent way to get to know other people in 
the microcomputer hobby/business as well as a good resource for 
help in solving your computer problems. We hope our readers find 
this list useful. ■ 



STATE 


GROUP NAME 


ADDRESS 


CITY 


ZIP 


CONTACT 




REGINA OPERATORS OP MICRO SYSTEMS 


BOX 1801 


REGINA 


S4P3B2 


WENDY NOPPATT 




BRASILIAN CLUB 


RUA SAHBAIBA 516. LBBLON 


RIO DE JANEIRO, 2245 


BRASIL 


DOUGLAS GILSOM 


AX 


ANCHORAGE USERS GROUP 


BOX 11, 385 SOUTB STATION 


ANCHORAGE 


99511 




AL 


CENTRAL ALABAMA COMPUTER SOCIETY 


2073 REX FORD RD 


MONTGOMERY 


36116 


L GARRISON 


AL 


G2C3 


4307 OLD SHELL RD 


MOBILE 


36608 


G. REAGAN 


AL 


CENTRAL AL MICRO SOCIETY JUNIOR CHAPTER 


RT. 13 ROX 571 


MONTGOMER 


36110 


FREDERICK FERGUSON 


AZ 


USERS GROUP OP ARIZONA 


6218 W. MAXLBTTE 


GLBNDALE 


85301 


ROD PURCELL, PRBS. 


AZ 


PHEONIX USERS GROUP 


1850 BAS1 MARYLAND #27 


PHEONIX 






AZ 


ARIZONA USERS GROUP 


4322 BAST FAIRMONT 


PHOENIX 


85018 


R WARREN 


CA 


USERS AND ABUSERS 


1350 GRANT RD. 


SUNNYVALE 


94840 


RADIO SHACK 


CA 


CAUSE (SOPTWARE EXCHANGE) 


18651 VON KARMAN 


IRVINE 


92713 


SBL BANDLBR 


CA 


USERS GROUP 


712-C COUNTRY WOOD 


WALNUT CREEK 


94598 




CA 


PACIPICA USERS GROUP 


338 ALIDA WAY 1306 


SOUTH SAN FRANCISCO 


94088 


J. STRAZZARINO 


CA 


REDWOOD EMPIRE USL3S GROUP 


7136 BBLITA AVE. 


ROHNERT PARK 


94928. 


JOHN RBVBLLB 


CA 


SOUTH BAY USERS GROUP 


3605 PINE AVE 


MANHATTEN BEACH 


98266 


S. NIMS 


CA 


EAST BAY USERS GROUP 


17 ECHO AVE 


OAKLAND 


94611 




CA 


SAN FRANCISCO TRS-88 USERS GROUP 


338 ALIDA WAY #386 


SOUTH SAN FRANCISCO 


94880 


JOHN F. STRAZZARINO 


CA 


HOMEBREW COMPUTER CLUB 


BOX 626 


MOUNTAIN VIEW 


94042 




CA 


INLAND COMPUTER SOCIETY 


3359 SECOND ST 


RIVERSIDE 


92581 




CA 


SOUTH BAY USERS GROUP 


BOX 6302 


STANFORD 


94305 


B. DEVERDORP 


CA 


TRS-80 FREE PROGRAM EXCHANGE 


4418 MORROW RD. 


MODESTO 


95350 




CA 


COUNTRYWIDE USER GROUP 


10409 STATE ST. 


SOUTH GATE 


90280 


J. NCGORTBY/S. MIMS 


CA 


LITTON CALULATOR/COMPUTER CLUB 


5500 CANOGA AVE 


WOODLAND HILLS 


91364 


W. BENNETT 


CA 


MARIN COUNTY USERS GROUP (MCTUG) 


45 SBLFRIDGE WAY 


HAMILTON APB 


94934 


PAT MCMAHON 


CA 


SONOMA COUNTY COMPUTER CLUB 


BOX 945 


COTATI 


94928 




CA 


IEEE COMPUTER SOCIETY 


5855 NAPLES PLAZA, SUITE 381 


LONG BEACH 


90803 




CA 


MONTEREY. BAY USERS GROUP 


1002 HALSEY DR 


MONTEREY 


93940 


CURT HBSS 


CA 


TRS-88 KIBBLERS 


2555 HESPERIAN BLVD 


HAYWARD 


94545 




CA 


VALLEY COMPUTER CLUB 


3311 WEST THIRD, APT. 1-319 


LOS ANGELES 


90020 


KENNETH YOUNG 


CA 


PAMONA COMPUTER SOCIETY 


4155 OAK HOLLOW RD. 


CLAREMONT 


91711 




CA 


THE FORTH INTEREST GROUP 


PO BOX 1105 


SAM CARLOS 


94070 




CA 


ORANGE COUNTY USERS GROUP 


3521 E. CClKONViEALTH 


PULLERTON 


92631 


ED FAULK, PRBS. 


CA 


SAN FRANCISCO USERS GROUP 


HQ USARRIX 


PRESIDIO OF SAN FRAN 


94129 


P. MCMAHON 


CA 


VENTURA COUNTY TRS-88 


2534 NORTH TEMPLE AVE. 


CAMARILLO 


93810 


CLUB NEWSLETTER 


CA 


USERS GROUP 


7465 HOLLISTON AVE., SUITE 23 


GOLETA 


93017 




CA 


VENTURA COUNTY TRS-88 COMPUTER CLUB 


567 WEST LOOP DR. 


CAMARILLO 


93030 


L. 8TBINHETZ 


CA 


VALLEY TRS-80 USERS GROUP (VTUG) 


19116 NASVILLE ST 


NORTHRIDGB 


91326 


WILLIAM WHITE 


CA 


SACREMENTO USERS GROUP 


1237 BEARD WAY 


CARMICHAEL 


95608 


NIKE MOORE 


CA 


SAN JOSE USERS GROUP 


3490 BON AIR COURT 


SAN JOSE 


95117 


C S SHANKS 


CA 


ET-3400 USERS GROUP 


11231 OAK ST. 


BL MONTE 


91731 


CHARLES VAN DYKE 


CA 


TRS-88 USERS GROUP OF NAPA 


4432 SPRINGWOOD 


NAPA 


94558 




CA 


OASIS USERS GROUP 


PHASE ONE SYSTEMS 


OAKLAND 




PRBD BELLAMY 


CA 


SAN GABRIEL VALLEY TRS-88 USERS GROUP 


758 E. 5TH ST. #75 


AZUSA 


91702 


DAN DRESSELHAUS 


CAN 


AURORA COMPUTER SOCIETY 


BOX 4342 


EDMONTON, ALBERTA 


T5B1R5 


BOB BUNTINGFORD 


CAN 


USERS GROUP OTTAWA 


2 LARSEN CT. 


KANATO, ONTARIO 


K2L1Y8 




CM 


KITCHENER-WATERLOO MICRO CLUB 


UNIVERSITY OF WATERLOO 


WATERLOO, ONT 


N2L3G1 




CT 


CONNECTICUT COMPUTER CLUB 


18 RIDGE COURT WEST 


WEST HAVEN 


06516 


TAYLOR 


CT 


SOUTHERN NEW ENGLAND COMPUTER SOCIETY 


267 WILLOW ST 


NEW HAVEN 


06511 




CT 


NORTH EASTERN BASIC FOUR USER GROUP 


22 TOBBY RD. 


BLOOMFIELD 


06002 


JOHN PEARSB 


CT 


FAIRFIELD COUNTY TRS-88 USERS GROUP 


10 RIC8LEE RD. 


NORWALK 


06851 


ALAN ABRAHAMSON 


CT 


CONN MICROISTS 


8882 WENDY LANE 


WESTPORT 


86881 




DC 


TCUG 


2617 42ND ST NW #2 


WASHINGTON 


28007 


R. DALY 


DE 


DELAWARE USERS GROUP 


1116 PIPER RD 


WILMINGTON 


19803 


TIN J. IHDE 


DE 


DELAWARE USERS OF MICROS 


318B CHAPEL AVE 


CLAYMONT 


19713 


JODIE S. HOBSON 


BNG 


NORTH LONDON HOBBY COMPUTER CLUB 


HOLLOWAY RD. 


N. LONDON 


N7 8DB 


R. BRADBBBR/N LONDON P 


PL 


TBUG-88 


PO BOX 247 


TAMPA 


33602 


RAY BCHENBACB 


PL 


CLUB OF CENTRAL FLORIDA 


152 MILL RUN DRIVE 


LAKE MARY 


32746 


SILOM BORWITZ 


PL 


ORLANDO, PL, COMPUTER CLUB 


ADVENTURE INTERNATIONAL 


ORLANDO 


32802 


SCOTT ADAMS 


GA 


USERS GROUP OF ATLANTA, LTD. 


1315 RUSTIC RIDGE DR, N.E. 


ATLANTA 


30319 


BOB GREEN 4/81 


CA 


CSRA COMPUTER CLUB 


BOX 284 


AUGUSTA 


30903 




GA 


USERS GROUP OP ATLANTA, LTD. 


3488 CLAIRMONT RD, N.E. 


ATLANTA 


30319 




GRC 


USERS GROUP 


CHRJ c SOST0MOU SMYRNIS 38 


NEO PSYHIKO 




G. ANTIHISIARIS 


IA 


DBS MOINES USERS GROUP (DM-TUG) 


#303 4215 GRAND AVE 


DBS MOINES 


50312 


DENNIS R. SOLOMON 


IA 


MARSHALL-TOWN COMPUTER CLUB 


1101 SOUTH 2ND AVE 


HARSHALLTOWN 


50158 


D. GROVES 
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STATE GROUP MANE 



IA DES MOINES USERS GROUP (DM -TUG) 

IA TRS-BI USER GROUP 

IL COMPUTER RENTAL SERVICE 

IL PEORIA AREA COMPUTER CLUB 

IL CHICAGO TRS-M USERS GROUP 

IL QUAD CITY COMPUTER CLUB 

IL CHICAGO AREA COMPUTER HOBBYIST EXCH 

IN USERS GROUP 

IN GROUP OPP SOUTHWEST INDIANA 

IN INDIANAPOLIS TRS-M USERS GROUP 

KS COMPUTER NETWORK OP KANSAS CITY 

KS GREATER KANSAS CITY USERS GROUP 

KS KBUG 

LA CRESCENT CITY COMPUTER CLUB 

MA NEW ENGLAND COMPUTER SOCIETY 

HA ALCOVE COMPUTER CLUB 

MA WESTERN MASS COMPUTER CLUB 

MA CULPRIT/EDP-AUDITOR USER GROUP 

MA HEW ENGLAND SYSTEM/3, INC. 

HA PRIME COMPUTER, INC. 

MA USERS MEETING 

HA BOSTON COMPUTER SOCIETY 

MA TRUGEM 

HA NATIONAL COMPUTER SHOWS 

HA GOSUB TRS8I USERS GROUP 

ME AUGUSTA USERS GROUP 

MS TRS-80 NEWSLETTER 

HI SOUTHEASTERN MICHIGAN COMPUTER 

HI CENTRAL MICHIGAN USERS GROUP 

MI MID-HICBIGAN COMPUTER CLUB 

MI PARGO-MOORBBAD COMPUTER CLUB 

MI CENTRAL HICBIGAN USERS GROUP 

HI EDUCATIONAL RECREATIONAL CLUB (ERCC) 

MI MICROCOMPUTER USERS INTERNATIONAL 

UN MIMNESTOTA COMPUTER SOCIETY 

HO ST. LOUIS AREA COMPUTER CLUB 

MS OXFORD I-M USERS GROUP 

NC NATIONAL COMPUTER SOCIETY 

MC USERS NOTES 

NC TRS-BI USERS GROUP 

NH GOSUB USERS GROUP 

NB NORTHERN NEW ENGLAND SOCIETY 

NJ BASIC POUR USER GROUP, MID-ATLANTIC 

NJ NORTHERN NJ AMATUBR COMPUTER CLUB 

NJ AMATEUR COMPUTER CLUB OP NJ 

NV NOHTIIM NEVADA AMATUBR COMPUTER CLUB 

NT LONG ISLAND COMPUTER ASSN 

NY TRS-M SPECIAL INTEREST GROUP 

NY SAINT PETER'S COMPUTER CLUB 

NY INTERNATIONAL SOPTWARE A.G. USERS GROUP 

NY 8WEIBRUECKBH MICROCOMPUTER USERS GROUP 

NY CENTRAL NEW YORK TRS-M USERS GROUP 

NY CP/H USERS GROUP 

NY TRS-81 USERS GROUP 

NY USERS GROUP 

NY CP/H USERS GROUP 

NY TRS-BI USERS GROUP, CBURCfl APPLICATIONS 

NY ONONDAGA COUNTY 

NX USERS GROUP (DIVISION OP C.H.I.P.S.) 

NY KINGS BYTE TRS-81 USERS GROUP 

OB BASIC POUR USER GROUP, N. OHIO 

OH TRS-M CLUB 

OB PRIDE USERS ASSOCIATION, INC. 

OH ACSCO USER GROUP 

OH DAYTON AREA USERS GROUP 

OX TULSA USERS GROUP 

OR PORTLAND USBRS GROUP 

OR TEKTRONIX, INC. 

OR CENTER POR THE STUDY OF THE FUTURE 

PA ATLANTIC SOFTWARE, INC. 

PA AUUA, INC. 

PA PITTSBURGH AREA COMPUTER CLUB 

PA PHILADELPHIA AREA COMPUTER SOCIETY 

PA DELAWARE VALLEY COMPUTER CLUB 

PA CRANBERRY COMPUTER CLUB 

TN CHATTANOOGA MICROCOMPUTER CLUB 

TX ALAMO COMPUTER ENTHUSIASTS 

TX USERS OP HOUSTON 

TX NA8A/BAY AREA USERS GROUP 

TX USBRS OF HOUSTON 

TX KILLEEN USBRS GROUP 

TX PERMIAN BASIN COMPUTER GROUP 

TX PAN HANDLE COMPUTER SOCIETY 

TX COMPUTER HOBBYIST GROUP OF NOkTH TEXAS 

TX TRS-BI USERS GROUP 

TX TBXBOMA MICROCOMPUTER ENTHUSIASTS 

TX WICHITA VALLEY USERS GROUP 

TX TEXAS USERS GROUP 

TX HIGH PLAINS USBRS GROUP 

TX USERS GROUP OP S.N. HOUSTON 

TX USERS GROUP 

TX TRS-81 USERS GROUP 

VA TIDEWATER TRS-BI USBRS GROUP 

VA TANDY COMPUTER USERS GROUP 

VA PRINCE WILLIAM COMPUTER CLUB 

VA AMATEUR RADIO REASEARCH AND DEV. CORP 

VA TCUG,INC 

VT NORTHERN VERMONT COMPUTER CLUB 

WA NATIONAL CINCOM USERS GROUP 

WA USBRS GROUP 

WA USERS GROUP - WASHINGTON 

WA USERS GROUP 

WA USERS CLUB— WASHINGTON 

WA USERS GROUP OP SPOKANE 

WGR TUG 

WI TRI-CO GSD USBRS 

WX MADISON USERS GROUP 

WI USERS NOTES 



4215 GRAND AVE, 1313 


DES MOINES 


51312 


1411 EAST POST B 


MARION 




RR BOX 1138 


CRETE 


61417 


2119 NORTH IDAHO 


PEORIA 


61614 


3951 N.LAKE SHORE DRIVE 


CHICAGO 


61613 


4211 1/2 7TH AVE. 


ROCK ISLAND 


61211 


BOX 52 


SOUTH HOLLAND 


68473 


2213 CORD ST. 


INDIANAPOLIS 


46224 


BOX 3284 


EVANSVILLE 


47732 


2213 CORD ST. 


SPEEDWAY 


46224 


7(31 BROADMOOR LANE 


OVERLAND 


66214 


8989 HENONGA 


LEAWOOD 


62216 


BOX 1398 


WICHITA 


67211 


PO BOX 1197, U. OF NEW ORLEAN 


NEW ORLEANS 


71122 


PO BOX 198 


BEDFORD 


01730 


230 HAIN ST 


NORTH READING 


01B24 


134 BRECKWOOD CIR. 


SPRINGFIELD 


01119 


20 WILLIAM ST. 


WELLE8LEY 


02181 


PO BOX 1275 


LOWELL 


01853 


40 WALNUT ST. 


WBLLESLEY 


02181 


61 LAKESHORE RD. 


NATICK 


81760 


17 CHESTNUT ST 


BOSTON 


■ 2118 


61 LAKE SHORE RD 


MATICK 


01760 


BOX 678 


BROOKLINE VILLAGE 


02147 


PO BOX 712 


WORCESTER 


01613 


BOX 2143 


AUGUSTA 


04330 


96 DOTBAN ST. 


ARLINGTON 


• 2174 


BOX 9578 


DETROIT 


46202 


938 WILDEWOOD 


EAST LANSING 


48823 


15151 RIPPLE DR. 


LINDEN 


48451 


Ill SO MAIN ST. 


DILWORTH 


56529 


5582 CORAL MAY 


HASLETT 


48841 


POBOX 325 


OWOSSO 


48867 


1814 WEST 18TH ST 


SAULTE STE. MARIE 


49783 


BOX 35317 


MINNEAPOLIS 


55435 


PO BOX 28924 


ST. LOUIS 


63132 


PO BOX 847 


UNIVERSITY 


38677 


PO BOX 41215 


FAYETTEVILLE 


28314 


7554 SOUTHGATE RD. 


FAYETTEVILLB 


28314 


7554 SOUTHGATE RD. 


FAYETTEVILLE 


28304 


346 S. TAYLOR ST. 


MANCHESTER 


83103 


PO BOX 69 


BERLIN 


B3570 


PO BOX 2214 


CLIFTON 


•7115 



6 BRYSON ROAD 

UCTI 1776 RARITAN RD 

PO BOX 9168 

36 IRENE LANE E 

RD 2 

JAMES ST. 

1 NEW YORK PLAZA 

TAMMC ARMT DIV. 

26 JAMESVILLE VB. J- 4 

164 WEST 83RD ST 

245 NAPLBVIEW RD 

NT II, BOX 8 

1631 THIRD AVE. 

PO BOX 41 

BAKER BALL, ELECTRONICS PKWY 

417 N. 6TB 3T. 

1M3 BAST 84 ST. 

3213 W. 71ST ST. 

8116 QUAILWOOD CT 

1248 SPRINGFIELD PIKE 

3521 GRACE ST. 

231 GREEN ST 

PO BOX 1133 

13485 S.W. DRIFTWOOD 

PO BOX 511 

4110 NE ALHEDA 

911 LAFAYETTE BLDG., 5TH S CB 

FLEET MATERIAL SUPPORT OFF., 

411 SMITBPIELD ST. 

PO BOX 432 

BOX 651 

RADIO SHACK STORE, CRANBERRY 

4429 PAULA LANE 

4847 CASTLE SHIELD 

3723 PURDUE 

PO BOX 57116 

6900 S. RICE 

BOX 511 

BOX 3912 

3441 BELL SUITE 226 

BOX 1344 

7822 SBADY HOLLOW LANE 

PO BOX 4391 

PO BOX 4391 

5224 WINIFRED DR 

POBOX 31545 

3723 PURDUE 

1516 DALLAS ST. 

PARK ROW AT COLLINS 

BOX 10281 

8215 CHIVALRY RD 

1524 SPRINGVALE AVE 
P.O.BOX 2826 

4M BOOSER WAY NORTH 

382S NORTH 26TH ST. 

21814 PACIFIC HWY SOUTH - LOT 

SOUTH 3718 HANITO BLVD. 

PO BOX 7112 

S. 3718 HANITO BLVD 

1M ORTFBLD 12 

PO BOX 760 

430 JEAN ST 

61 13TH AVE. SOUTH 



FAIR LAWN 

SCOTCH PLAINS 

RENO 

PLAINVIEW 

BLOSSVALE 

ROSENDALE 

NEW YORK 

APO NEW YORK 

SYRACUSE 

NEW YORK 

CHEEKTOWAGA 

HILTON 

NEW YORK 

MASONVILLB 

SYRACUSE 

FULTON 

BROOKLYN 

CLEVELAND 

WEST CHESTER 

CINCINNATI 

COLUMBUS 

DAYTON 

TULSA 

BEAVERTON 

BEAVERTON 

PORTLAND 

PHILADELPHIA 

MECHANICSBURG 

PITTSBURGH 

AUDUBON 

LBVITTOWN 

CRANBERRY 

RED BANK 

SAN ANTONIO 

HOUSTON 

WEBSTER 

BELLAIRB 

KILLEEN 

ODESSA 

AMARILLO 

GRAND PRAIRIE 

SAN ANTONIO 

WICHITA PALLS 

WICHITA FALLS 

FT. WORTH 

AMARILLO 

HOUSTON 

KILLEEN 

ARLINGTON 

NORFOLK 

ANNANDALE 

HOOOBRIDGE 
MCLEAN 

FAIRFAX 

ROXBURY 

REN TON 

TACOMA 

DES KOINES 

SPOKANE 

TACOMA 

SPOKANE 

4380 ESSEN 14 

MANITOWOC 

MADISON 

ONALASKA 



07 410 
07076 
B9507 
11803 
13308 
12472 
11004 
09152 
13210 
1M24 
14225 
12547 
10028 
13814 



11236 
44112 
45169 

45215 
43228 
45482 

74111 
97213 
97177 
97212 

19116 
17155 
15222 
19413 

19158 
16319 
37415 
78218 
77005 
77598 

76541 
79760 
79109 
75051 
78255 
76308 
76308 
76133 
79120 
77005 
7(541 
76111 
23313 
22113 

22111 
22131 

05669 
98855 
98411 

9B18B 
99213 
98407 
99213 

54221 

53703 
54(50 



BOB HEATHCOTB 
STEVEN CRBE 
R BEPTIBS 

MANNY GARCIA 

LEAH R 0" CONNER 
J. BILL 
M ANDERSON 
JAMES R. HILL 



JOAN LAMARE 

D. CHANDLER 

JAMES BLAKE CULLINANE 

J.R. QUARTAROME 

ROLAND KITTREDGE 

KILLER 

R. HILLBR 

JAMES HERCANTI 



JANE BILBERT 

T. AUGER 

G WILLIAMS 

JOHN BORVATH 

JACK DECKER 4/01 



R. GORDON LLOYD 
R. GORDON LLOYD 
SCOTT. MITCHELL 
ALBERT 8RUNELLI 
ROBERT HENTUS 
HERMAN S. SACHS 

UNSCC 

MIKE TOLLBRTON 

MICHAEL BERMAN, INT HI 
D. GOBER 
PETBR HOLLER 



KLAUS RITTENBACK 

MERRILL COOK 

RICBARD DE FOREST 
MORTY LIBOWITS 
KENNETH SMITH, ROHCO, 
J LINDSLY 
TIN BRYCE 
JOHN CRAMER 



J. WARNER 
PATRICIA KELLY 

USERS GROUP RELATIONS 
JAMBS STINB, U.S. NAVY 

THE COMPUTER BUS (PACS 
VICTORIA HILLBR 

LOUIS DARVASSY 
DAVE MCGLUHPHY 

BEN TAYLOR 
RAY CONE 



J. RABENALDT, ECTOR SC 



GENE A. KENT 

COL. J. WESLEY B. TAYLOR 



TOM WHITTBNBORG. 

B. TAYLOR 

C. MANIS 

LBS LOGAN 
ROD WRIGHT 
DON BENNETT 

PARSONS PILCHER 

D. KITS! 

BERT BERTRAM, PACCAR. 

WALT NASB 

S. JOHNSON 

SCHMIDT 

STEVE A. JOHNSTON 

W. LUCE 

THOMAS SITKIEWITI 

P DALY 

JOHN R. MARSH 
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EDUCATION 



Show your students beauty in number systems. 

Alternate Course— Part IV 



Michael A. Duff in 
1507 East Avenue 
Berwyn, IL 60402 



One of the most difficult con- 
cepts to understand in 
data processing is that of differ- 
ent numbering systems. It is 
particularly difficult to grasp in 
an introductory course. Most 
courses introduce these con- 
cepts within the first few weeks 
of class. Thus, most students 
are inundated with binary, octal 
and hexadecimal manipulations 
within a time period of two to ten 
days. Then they never see the 
numbering systems again ex- 
cept on tests. 

When I teach numbering sys- 
tems in "An Introduction to Data 
Processing" at Morton College in 
Cicero, IL, I try to spread these 
ideas over a 12-week period. 
Since I believe that most people 
fear mathematics, I make my ini- 
tial presentations in a non- 
mathematical fashion. 

The first time I introduce bina- 
ry numbers I use the chart shown 
in Table 1. 

I ask my students if there is 
anyone who doesn't recognize 
these characters. (I have a real 
problem with those that don't.) I 
then ask them what numbers 
would be left if we could only 
use the numbers zero and one. 
From all of the numbers printed, 
the only ones that use just the 
digitsOandl areO, 1,10, 11,100, 
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101, 110 and 111. I write these 


numbers above the first line in 


the chart so that we have the fol- 


lowing: 


1 10 11 100 101 110 111 


0123 4 5 6789 



The next thing to do is to look 
for a pattern in these numbers. 
(What is the next number if we 
follow the same pattern?) I re- 
ceive some interesting answers 
the first time this question is 
asked. These answers range 
anywhere from 112 to 222. Final- 
ly, in a moment of inspiration (or 
frustration) someone will say 
1000. From that point on it is 
easier to determine the numbers 
that follow. Once everyone un- 
derstands the pattern, I usually 
have them construct a table 
with the first 40 decimal and bi- 
nary numbers printed side by 
side. 

Someone always asks, "Why 
do we use binary numbers?" I 
usually split this question into 
two parts. The first part of this 
question is "Why?" I explain 
that philosphers have been try- 
ing to figure out the answer to 
this question since the beginning 
of time. The second part of this 
question is "Do we use the bina- 
ry numbering system?" The an- 
swer to this is "Yes." I realize 
that this doesn't tell the student 
a heck of a lot but it does keep 
their attention. 

The reason we use the binary 
numbering system in data pro- 
cessing is that the computer 



uses these numbers. I tell them 
that a computer is similar to a 
machine made up of switches, 
each like a light switch. The only 
thing you can do with a light 
switch is turn it on or off. Thus, 
every time a computer sees a 
one it turns a switch on. Every 
time it sees a zero it turns the 
switch off. 

I spread the above informa- 
tion over two or three 15-minute 
periods. Lets face it, numbering 
systems are boring. To expect a 
student to pay attention for an 
hour or so is a bit much to ask. 

Once my students have con- 
structed a decimal-binary chart, 
simple addition and subtraction 
problems become easy. For ex- 
ample, if we wish to add 1010 and 
11000 we can look up the deci- 
mal equivalents of these num- 
bers. We find that 1010 corre- 
sponds to decimal 10 and 1 1000 
corresponds to decimal 24. If we 
look next to decimal 34, our an- 
swer is 100010. 

When we have had our fill of 
binary (that doesn't take long) 
we then look at octal and hexa- 
decimal. To introduce octal 
numbers we use the same chart 
that was used to introduce bina- 
ry numbers. Only this time we 
choose only those numbers that 
have the digits 0, 1, 2, 3, 4, 5, 6 or 
7 in them (see Table 2). 

Then we add these numbers 
to our decimal-binary chart and 
we can again perform simple ad- 
dition and subtraction problems 
using the above techniques. 



Introducing hexadecimal num- 
bers is more confusing to the 
students because they aren't 
used to seeing the characters A, 
B, C, D, E and F used as num- 
bers. However, by adding these 
numbers to the chart, we can 
again perform simple addition 
and subtraction problems. Our 
chart now looks like Table 3. 

The chart is useful for adding 
or subtracting small numbers in 
the numbering systems de- 
scribed. However, it does have 
its limitations. To be specific, 
it's no good for numbers above 
decimal 40 without some addi- 
tional knowledge. 

To add or subtract in any 
numbering system, you must 
first understand how to add in 
the decimal numbering system. 
Let's look at an example using 
decimal numbers: 

888 

+ 732 

To add these numbers we add 
each row individually: 9 + 2 = 11, 
so you bring down a 1 and carry 
a 1.6 + 3 = 9 plus the 1 that was 
carried is 10, so we bring down 
the and carry the 1.8 + 7 = 15 
plus the 1 we carried is 16. Thus, 
our final answer is 1601. 

The same basic rules are true 
in almost any numbering sys- 
tem. The only thing that changes 
is when you have to carry a num- 
ber, and what follows a number 
in that numbering system. 

To illustrate this, let's look at 
another example; but this time 
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MOD-II HARD DISKS 

AVAILABLE NOW 

WHY WAIT FOR RADIO SHACK 

Micro Mainframe now supports the Model-II* Computer system with our high quality add on 
Winchester disk systems. Each of the disk systems available offers the same high quality Error 
Correcting controllers used in our Model-I* and Model-Ill* systems. 

Features 

• 5 Megabyte to 120 Megabyte systems supported (formatted capacity), with total system 
capacities from 10 Megabytes to 480 Megabytes. 

• Oasis* operating system available (Model-II* only) 

• TRSDOS* compatible operating systems available (all models) 

• Model-I* and Model-Ill* unit prices include operating system. 

• Error Correction on all controllers for years of trouble free operation (up to four bit burst). 

• Simple interface to the host computer through one of our host adapters. 

• Models available soon for Apple* and other computer systems. 

• Support for more Winchester systems than any other manufacturer. 

System Pricing 
Removable Cartridge Winchesters 

MMF-100R1 Model-I or Model-Ill version $5350.00 

MMF-100R2 Model-II version $5395.00 

MMF-100A Apple Version $5350.00 

5 Megabyte Desktop System 

Prices Reduced 

MMF-3H, 48K system w/Floppy backup $5995.00 

Other Systems 

10 Megabyte Fixed Hard-disk systems begin at $5295.00 

120 Megabyte Fixed Hard-disk systems begin at $7995.00 

Model-Ill* Floppy Controller w/installation kit $279.95 

Why become locked into a proprietary system from one manufacturer, when Micro Mainframe 
supports a total of 15 drive manufacturers. When a new drive becomes available, you need only to 
purchase that drive and controller to upgrade your system. The software and Host Adapter works 
with the new drive package, thus allowing minimum upgrade cost. 

Call for the location of your nearest Micro Mainframe Dealer. 
Dealer inquiries invited. 

MICRO MAINFRAME „ 

714 Alhambra Blvd. • Sacramento, Ca 95816 
(916)447-7048 

* Oasis is a copyright ol Phase One Systems. 
" Models I. II. & III are Tandy trademarks. 

* Apple is a trademark of Apple Corp. 
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let's look at one in the hexadeci- 
mal numbering system. 



Once again we perform our 
operations column by column. 
The first thing we have to do is 
add A and 4. The way my stu- 
dents were told to do this is to 
look at their charts. We find that 
a hexadecimal A is the same as 
a decimal 10 and a hexadecimal 
4 is the same as a decimal 4. 
Since 10 + 4 in decimal is 14, we 
now look at our chart and see 
what a decimal 14 is in hexadec- 
imal. We discover that the an- 
swer is E. We have no number to 
carry this time since E is a sin- 
gle-digit answer. 

Next, we must add A + C. We 
find that hex A equals decimal 
10 and hex C equals decimal 12. 
Adding 10 and 12 gives us 22 
which is equivalent to hexadeci- 
mal 16. Thus, we bring down the 
6 and carry the 1. 

Finally, we add 6 and 3 plus 
the 1 we carried. This is the point 
where many students get 
screwed up. They forget the 
numbering system that they're 
working in. Many students in- 
correctly give the answer as 10. 
What they have forgotten is that 
they are working in hexadecimal 
and 6 + 3 + 1 is not 10 in hexa- 
decimal. The number which fol- 
lows 9 in hexadecimal is A. 
Thus, the answer to our prob- 



lem is A6E. 

Now I'm sure that these tech- 
niques are causing many mathe- 
maticians to turn over in their 
graves because I haven't ex- 
plained the numbering systems 
using the powers of the various 
bases or the Remainder Theo- 
rem. However, I am a strong be- 
liever in logical deduction and I 
would much rather have my stu- 
dents discover these formulas 
for themselves. 

One thing that I haven't dis- 
cussed up to this point is the an- 
swer to the question: "Why do 



we have to learn this junk?" and 
"What does the computer do 
with all this stuff?" As I men- 
tioned earlier, most computers 
are binary machines, and that's 
why we must learn something 
about binary. 

To explain why we must learn 
about hex and octal I usually 
bring in a dump. A dump is the 
result of a sick program or com- 
puter system. When a large sys- 
tem can't figure out what the 
heck your program is trying to 
do, it spits it out as a dump. An 
IBM system prints out its dumps 
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25 


26 


27 


28 


29 


30 


31 


32 


33 
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41 
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Table 1. Decimal Numbers 







1 


2 


3 4 


5 


6 7 


10 11 


12 


13 14 


15 


16 17 


20 21 


22 


23 24 


25 


26 27 


30 31 


32 


33 34 


35 


36 37 


40 41 


42 


43 44 


45 


46 47 


SO 51 


52 


53 54 


55 


56 57 


60 61 


62 


63 64 


65 


66 67 


70 71 


72 


73 74 


75 


76 77 


100 101 


102 


103 104 


105 


106 107 


Table 2. 


Octal Numbers 



in hexadecimal. A Honeywell 
system prints out its dumps in 
octal. The reason they don't print 
out their dumps in binary (which 
is what both computers are us- 
ing) is that hex and octal use 
much less paper. When the com- 
puter gives up trying to execute 
a sick program, the first thing it 
does is convert all those little bi- 
nary numbers into hex or octal. 

To illustrate how the comput- 
er converts binary to octal and 
binary to hexadecimal, I use an 
example. Pick a binary number 
such as 100001 and split it up 
into groups of four starting from 
the right so that we have groups 
of binary numbers. In this exam- 
ple we get the numbers 10 and 
0001. Now we take these individ- 
ual numbers and look for them 
in the binary section of our 
chart. Then we look up the hexa- 
decimal equivalents of these 
numbers. Thus, binary 10 is 
equivalent to hex 2 and binary 
0001 is equivalent to hex 1. 
(Leading zeros are always 
dropped). Sure enough, if we 
look up hexadecimal 21 on our 
chart we find that it equals bina- 
ry 100001. 

A similar method converts a 
binary number to an octal num- 
ber. Look at example 100001 
again. This time split the origi- 
nal binary number into groups 
of three. So, the numbers we 
get are 100 and 001. If we look 
these numbers up in our table 
we find that a binary 100 is equal 







Program Listing 1 


124 
128 
132 


REH * TP- 
REII * 
REH * 


ACTUAL PRINCIPAL PAID FOR A PERIOD 








28 REM * 






136 


REM * A.. . . 


ORIGINAL AMOUNT BORROWED 






140 


REM * AY . . . 




24 REM * 

28 REM * BY 




MORTGAGE PROGRAM PLUS 


144 


REH * 


AN ADDITIONAL PAYHENT IS HADE 




148 


REK « AS. . . 


VARIABLE WITHIN INKEYS INSTRUCTION 


32 REM * 


USED AS AN EXAMPLE PROGRAM 


152 


REH * 


THAT ALLOWS THE USER TO TAKE TIHE 








156 


REH * 


TO READ AT HIS/HER OWN PACE. 


40 REM * 


AT 


MORTON COLLEGE IN BERWYN,ILL. 


160 


REH * CO.. . 


COUNTER IN FOR-NEXT LOOP. 








164 

168 


REH * DO. . . 
REM * E... . 


VALUE OP ONE DOLLAR AFTER INFLATION. 
REQUIRED MONTHLY PAYMENT. 


52 REN * 










17 2 


REM * EX.. . 


MONTHLY PAYMENT PLUS EXTRA. 






176 


REM * IR.. . 


USERS ESTIMATE OF ANNUAL INFLATION RAT 


56 REM * 




LIST OP VARIABLES 




E. 




60 REM * 






160 


REM * IY... 


INTEGER PART OF ACTUAL NUMBER OF YEARS 


64 REM * X 




AN ARRAY INDEX WITH 4 SPECIFIC VALUES 


184 


REH * 


IT TAKES TO PAY OFF LOAN WHEN AN 


68 REM * 




1 REQUIRED PAYMENT 


188 


REH * 


ADDITIONAL PAYMENT IS MADE. 


72 REM * 




2 REQUIRED PAYMENT WITH INFLATION CON 


189 




MONTHLY INFLATION RATE. 


SIDERED 




190 




NUMBER OF MONTHS (REFER TO IY.AY) 


76 REM * 




3 REQUIRED PAYMENT + EXTRA PAYMENT 


191 


REH * HI,. , 


MONTHLY INFLATION RATE (REFER TO IR) 


80 REM * 




4 REQUIRED PAYMENT + EXTRA PAYMENT 


192 


REH * HP . . . 


USERS EXTRA MONTHLY PAYMENT. 


84 REM * 




WITH INFLATION CONSIDERED 


193 


REM * P.... 


INTERVAL BETWEEN PAYMENTS. 


88 REM * 






194 




FOR-NEXT COUNTER (BASED ON EP) 


92 REM * 


VARIABLES THAT USE THE X INDEX 


195 


REH * SW . . . 




96 REM * 
100 REM * 
104 REM * 
108 REM * 
112 REH * 
















196 










197 
198 


REM * T0... 
REM * 


SIGNIFIES ONLY THE TOTALS ARE TO BE 
PRINTED. 










200 




ORIGINAL NUMBER OF YEARS FOR LOAN. 






116 REM * 
















120 REM * 


B - 


ACTUAL NUMBER OP PAYMENTS 






Program continues 



276 • 80 Microcomputing, November 1981 



PLUG INTO... 




ACCESS^ 

The Journal of Microcomputer Applications 



Numerical analysis, statistics, simulation, information 
retrieval, engineering design, engineering economics, proj- 
ect planning & management, personal finance, scientific & 
engineering applications. Subscribe now $16 for 6 issues. 
Send check, money order or company purchase order to: 
ACCESS, P.O. Box 12847, Research Triangle Park, NC 27709 



'J 



To: ACCESS, P.O. Box 12847 

Research Triangle Park, NC 27709 
Here's my $16. Sign me up for 6 issues. 

Name 

Address 

City 

State 



Published by 1EDS Publishing Inc. 



Zip. 



y* 81 




EMMANUEL B. GARCIA. JR 
& ASSOCIATES 

203 N. WABASH 

CHICAGO. ILLINOIS 60601 

PHONE (312) 782 9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 

RELATED TO THE TRS-80* 

• Dealer of quality software and hardware — 
we sell only the best, proven items. 

. Sponsor of CHICATRUG— monthly 
learning sessions for TRS-80 users. 

. Publisher of "CHICATRUG News," monthly 
publication for TRS-80 users. 
■ ■ Send for sample issue ■ ■ 

. Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

. Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

• Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

E.B.G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack. 

'TRS 80 is « ltad#marti of Tandy Copcalon 




For hidden Pimm* 

ffte First Talking AiiventWQ 

Tils advettare talks tkroifk tte casrtttt port 
Yot no lonftr need to fcave a vote* sirrtbeiUer 
TaHe#w*ture takes yot to a desolate planet 
when oatv voir skill aid your taming computet 
o. l( jrVlM Mp you survive. TI.K Is Part 1 of a Mieltl 
^rJ^pfejrt talking adveature. Like it other adveatare 
- voa have ever played. Tit first five people to solve 
ForWddea Planet will get tie ne*t adveatare FREE 
• JftRl Screen 
*Jfl«c1Nn$ Imguige 

Jhrob'gi Cassette Port 
lever Cese 
Jgccts 

PBIeoi Denes'. ',- 
fen Ad«iH Menlure #12" 



w o48jK>Disk Model I & III 

S*L^- "Dealers inquiries invited 

&&1457 Fomm 80 702-562-3609 



Fantastic Software . 

3110 Polaris #3 
las Vegas, Nevada 89102 



* 



• See List of Advertisers on page 402 
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Program continued 



202 REM 
204 REM 
206 REM 



Z ORIGINAL TOTAL NUMBER OF PAYMENTS. 



229 
240 
242 

244 

24S 
246 
247 
248 
249 
250 
260 
262 
280 
282 
300 

302 
320 
322 
330 

334 

336 
340 
350 

380 
390 
400 

410 

420 

430 

440 
445 
450 
460 
470 
472 
480 
490 
492 
500 

510 
520 
530 
540 
550 
560 
570 
580 
590 



CLS 
PRINT "THIS 
PRINT " 

LOAN" 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
GOSOB 4000 
CLS 
PRINT 

INPUT "WHAT IS THE AMOUNT BORROWED 
IF A-0 THEN GOTO 260 



PROGRAM WILL :" 

1. DETERMINE PAYMENTS FOR A LONG TERM 

2. DETERMINE HOW MUCH YOU WILL SAVE IF" 
YOU PAY EXTRA" 

3. CONSIDER THE IMPACT OF INFLATION ON" 
BOTH TYPES OF PAYMENTS." 



(S)";A 



INTEREST CHARGED.": I 
280 

INTERVAL BETWEEN PAYMENTS 



INPUT " 

IF 1-0 THEN GOTO 

INPUT " INTERVAL BETWEEN PAYMENTS (MONTH 

S)";P 
IF P=0 THEN GOTO 300 

INPUT " TERM OF LOAN (YEARS) ";Y 

IF Y-0 THEN GOTO 320 
INPUT " EXTRA PAID PER MONTH (OPTION 

AL) ";MP 
INPUT " ESTIMATED YEARLY INFLATION RAT 

E ";IR 
EP«MP 
PRINT 
INPUT "DO YOU WISH TO SEE THE TOTALS ONLY - INSTEAD 

OF THE ENTIRE TABLE - (1-YES, 0-HO) " ;T0 
PRINT 

IF T0 > THEN GOTO 450 
PRINT " OUTSTANDING" 

PRINT " PRINCIPAL AT 

PRINCIPAL" 
PRINT " END 

REPAID AT" 
PRINT "PERIOD OF PERIOD 

END OF PER" 
PRINT 

'INITIAL VALUES' 
Z=(Y*12)/P 
K-(I*(P/12))/10O 
E»A*K/(1-1/(1+K) |Z) 
E-INT(E*100 ».5)/100 
DO-1 

MI-IR/12/100 
DEFDBL P,L 

PL(1)-A: PL(2)>A: PL(3)=A: PL(4)-A 
AP ( 1 ) - E : AF ( 2 ) - E : AP ( 3 ) = E+ MP : AP ( 4 ) - E + HP 
TP(l)-0:TP(2)-O:TP(3)»0:TP(4)-0 



INTEREST 



AT END OF PER 



TI(1)«0 : TI(2)- 

FOR CO = 1 TO Z 

IF HP=0 THEN 

IF PL(3)<- 

FOR X«l TO Q 

GOSUB 1000 
NEXT X 



TI(3)=0 : TI(4)-0 



0=2 ELSE Q» 
THEN Q=2 



600 
601 
602 
604 
610 
620 
630 
640 
644 
648 
652 
656 
660 
664 

684 
686 
688 
696 

700 
704 
708 

712 
716 
720 
722 
724 

728 
732 
736 
740 
744 
748 
752 
756 
760 
764 
768 
772 
776 
780 
784 
788 
792 
796 
800 
802 
804 
808 
812 
816 
818 
820 
824 
828 
832 
840 
842 



X-3 



THE FOLLOWING STATEMENTS WRITE 
SUMMARY REPORTS. 



THE 



IF MP-0 THEN X-l ELSE 
IF SW«1 THEN GOTO 630 

IF LP(X)"0 THEN SW-1 

IF T0>0 THEN GOTO 630 

GOSUB 2000 

GOSUB 3000 

DO-DO - DO*HI 
NEXT CO 

REM **««•••*••«••««****•> 
REM * 
REM 
REM 
REM 
REM *********************************************** 

GOSUB 4000 

GOSUB 5000 

CLS 

PRINT "IF YOU MADE ONLY THE REQUIRED MONTHLY PAYMEN 

T OF " 
PRINT "$"E 

PRINT "THEN YOUR TOTAL INTEREST PAYMENT WAS " 
PRINT "$"TI(D" AND THE TOTAL PRINTCIPAL REPAID W 

AS " 
PRINT "$"A" THUS THE TOTAL AMOUNT PAID WAS $"TP(1) 
PRINT 
GOSUB 4000 

IP IR-0 THEN GOTO 740 
PRINT "DUR TO THE "TR"% YKARLY INFLATION RATE THE T 

OTAL " 
PRINT "AMOUNT ("TP(1)"> IS ACTUALLY WORTH S"TP(2) 
PRINT "OP TODAYS DOLLARS." 
GOSUB 4000 

IF MP-0 THEN GOTO 816 

PRINT "BY PAYING S"E+MP" INSTEAD OF $"E" PER MONTH" 
PRINT "YOU PAID $"TP{3)" INSTEAD OF $"TP(1) 
AY-B(3)/12 
IY-INT( B(3)/12) 
IP AY-IY THEN GOTO 772 
M-INT((AY-IY)*12) 
AY-IY 
PRINT 
GOSUB 4000 

PRINT "THE LOAN WILL BE REPAID" 
PRINT "IN "AY" YEARS AND "M'MONTHS" 
PRINT "INSTEAD OF "Y" YEARS" 
PRINT "BY PAYING $*E+MP" PER MONTH" 
PRINT "INSTEAD OF "E" PER MONTH." 
GOSUB 4000 

IF IR-0 THEN GOTO 832 

PRINT "HOWEVER WITH THE "IR"% YEARLY" 
PRINT "INFLATION RATE 5"TP(3)" IS WORTH" 
PRINT "$"TP(4)" IN TODAYS DOLLARS." 
PRINT 

IF IR-0 AND MP-0 THEN GOTO 832 
PRINT "OK? WELL, LET'S SUM THIS UP." 
PRINT 
GOSUB 4000 
CLS 

PRINT " ";TAB(20);"REQUIRED-WITH EXTRA" 
IF MP-0 THEN EX-0 ELSE EX-E+MP 

Program continual 



C. C. WRITER 
TR8-80* 
Color Computer 
WORD PROCESSING 



iiitHiiiitittitnnni 



USER MODIFIABLE EX. BASIC N/PA6E 
FQRHATTIN6, HOVE, TABS, DELETION 
INSERTION, GLOBAL SEARCH I EOIT 
CENTERING, INDENTING, PA6E PAUSE 
ASCII CODES, JUSTIFY, 32K OPTION 
THIS AD PREPARED NITH C.C.NRITER 
ITRS-BO ii a TH of Tmdy Corp. 
Stud 130 Chock or Honey Order to 

■■■■■SMBSSSXSSSSESXSSSSStSSBSSSBI 

C.C. WRITER .414 

TRANSFORMATION TECHNOLOGIES 

194 L0CKH00D LANE 

BL00HIN6DALE, IL 6010B 



TRS-80 

COMPUTER 
DISCOUNTS 



• Factory Direct 

• Best Prices Anywhere 

• No Out-of-State Taxes 

• Full Radio Shack Warranty 

• Free Price List 

SCOTT TASSO 

Owner 
Radio Shack Associate Store #7053 

175 N. Delsea Drive ^4to 
Vineland, N.J. 08360 
(609)691-7100 




o 

UJ 



2 12 

§2 



SHAKE YOUR 
IDEAS! 

Wayne Green Books 
announces 

MlUMMhrir 

submission of 

new 
manuscripts 

the Fail Book List. 
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Program continued 



844 
846 
848 

850 
852 

856 

860 

864 
866 
868 

870 
872 
876 

880 
884 
990 
992 



PRINT "MONTHLY PAYMENT 
IF MP«fl THEN TP(3)-0 
PRINT "TOTAL PAYMENT 

) 
IF IR*0 THEN GOTO 860 
PRINT "VALUE OF TOTALS 



$"E}TAB(29);"/S"EX 
5"TP(1) ;TAB(29) j"/$"TP(3 

S"TP(2) ;TAB(29) f "/$"TP(4 



) 

PRINT "(IN TODAYS DOLLARS)" 
PRINT "LOAN REPAID IN ";TAB( 21) ;Y;TAB(24) ', "YEARS/ " 

AY;TAB(34);"YRS"M;TAB(39) ; "HO" 
PRINT 

IF MP-0 THEN GOTO 990 
PRINT "AMOUNT SAVED OR LOST $"IHT( (TP{1 ) -TP(3) ) 

*100 + .5)/100 
IF IR-0 THEN GOTO 880 
PRINT "ACTUAL AMOUNT SAVED" 
PRINT "OR LOST("IR"» INFLATION) S"INT( (TP( 2) -TP(4) ) 

*100+.5)/100 
PRINT "NOTE: NEGATIVE VALUES MEAN YOU WILL BE" 
PRINT " PAYING ADDITIONAL HONEY." 
END 
REf . ft********************************************** 



THE FOLLOWING ROUTINE DETERMINNES THE 

ACTUAL INTEREST (AI) .TOTAL INTEREST (TI 

ACTUAL PAYMENT (AP) , TOTAL PAYMENT (TP) 
AND DETERMINES IF WE HAVE THE LAST 
PAYMENT (LP) FOR ALL VALUES OF X. 



993 REtl 

994 REM 

) 

995 REM 

996 REM 

997 REM 

998 REM 

***** 

1000 AI(X)-K*PL(X) 

1001 AP(X) - E 

1002 IF X>2 THEN AP(X)-G-fMP 
1006 LP(X)-PL(X) 

1008 IF LP(X)-0 THEN GOTO 1070 

1009 IF PL(X)<AP(X) THEN AP(X)-AI(X) :GOSUB 6000:GO*" 
020 

1010 PL(X)- PL(X) - (AP(X) - AI(X)) 
1012 IF PL(X)<-0 OR CO=Z THEM C.OSUB 6flflfl 
1020 IF X/2 <> INT(X/2) THEN GOTO 1050 
1030 AI(X) ■ AI(X) * DO 

1040 AP(X) - AP(X) * DO 

10S0 TP(X) ■ TP(X) ♦ AP(X) 

1060 TI(X) - TI(X) * AI(X) 

1070 REM 

1080 RETURN 

1090 REM ********************************************* 



THE FOLLOWING ROUTINE ROUNDS THE 

PRINCIPAL LEFT (PL) .ACTUAL INTEREST THI 



1092 


REM 


1094 


REM 


1096 


REM 




S 


1098 


REM 


2000 


REM 


2002 


REM 


2004 


REM 



PERIOD (AI),AND THE PRINCIPAL PAID 
THIS PERIOD (TP) TO 2 DECIMAL PLACES. 



2010 AI(X) - INT( AI(X) * 100 ♦ .5)/10O 

2020 TP - INT( ( AP(X) - AI(X) ) * 100 + .5 )/100 

2030 RETURN 



2800 REM 

* 

2810 REM 
2820 REM 
28 30 REM 
28 40 REM 
2850 REM 
2860 REM 
2870 REM 
2880 REM 



THE FOLLOWING ROUTINE PRINTS THE VALUES 
FOR THE CURRENT PERIOD (CO) , THE 
PRINCIPAL LEFT (PL) AND 
THE INTEREST THIS PERIOD (AI) AND 
THE PRINCIPAL PAID THIS PERIOD (TP) 



3000 REMARK 

301P PRINT CO;TAB(ll);INT( PL(X)*10O + . 5)/l 00; TAB( 29 ) ; 

AI (X) ;TAB(48) ;TP 
3090 RETURN 



3900 






3910 


REM * 




3920 


REM * THE FOLLOWING ROUTINE ALLOWS THE USER 


3930 


REM * 


TO KEEP A SCREEN UNTIL HE OR SHE 


3949 


REM * 


IS READY TO CHANGE IT. 


3950 
3969 


REM * 








4000 


REM 




4010 


PRINT 


■PRESS ANY KEY TO CONTINUE." 


4020 


AS- INKEYS: IF AS-"" THEN GOTO 4020 


4022 


PRINT 




4030 


RETURN 




4900 






4910 


REM * 




4920 


REM * 


THE FOLLOWING ROUTINE ROUNDS 


4930 


REM * 


AI,TI,TP AND E FOR ALL VALUES OF X. 


4940 
4950 


REM * 








5000 


REM 




5010 


FOR X- 


1 TO 4 


5020 


AI(X)-INT( AI(X)*100 +.5J/10O 


5030 


TI(X)-INT( TI(X)*100 + .5J/100 


5040 


TP(X)=INT{ TP(X)*100 + .5)/100 


5042 


E=INT(E*100 +.5)/100 


5050 


NEXT X 




5060 
5900 


RETURN 










** 




5910 


REM * 




5920 


REM * 


THE FOLLOWING ROUTINE DETERMINES 


5930 


REM * 


THE FINAL VALUES OF AP,LP 


5940 


REM * 


AND LP. IT ALSO SETS THE 


5950 


REM * 


ENDING PERIOD (B) TO THE CURRENT 


5969 


REM * 


VALUE OF THE PERIOD (CO) FOR 


5970 


REM * 


FOR ALL VALUES OF X. 


5980 
5990 


REtl * 





6000 REM 

6002 IF PL(X)>0 THEN GOTO 6050 

6010 AP(X)»PL(X)-AI(X) 

6040 GOTO 6060 

6050 AP(X)-AP(X)+PL(X) 

6060 PL(X)-0 

6062 B(X)-CO 

6070 LP(X)-0 

6100 RETURN 



CHURCH DONATIONS 

TRS-80 MODELS I &. II 

Manages, stores and reports on the 
offerings made by a church congrega- 
tion. 

Model I handles up to IOOO members 
and 4 categories of offerings. Operates 
under TRSDOS 2.3 or Newdos. $ 1 25.00. 

Model II handles up to 3000 members 
and 1 5 categories of offerings. Includes 
Mailing list and operates under TRSDOS 
2.0. $175.00. 

CUSTOM DATA 

P.O. Box 1066 

Alamogordo, NM 883 1 

Phone (505) 434- 1 096 

^412 



M 



NEW! 

The Wizard's City' 



8K 



*. 



A FANTASY ADVENTURE GAME 

Search for gold as a Fighter, Dwarf, Elf, 
HarfNng or Magic-User in the dungeons 
beneath the Wizard sCity or surrounding 
forest Evi monsters lurk everywhere to 
protect the gold. All in graphics! 
Cassette $12.95 Disk S 16.95 

Financial Statement 1 6K $14.95 

Income Tax 8K 19.95 

Income/Deductions File 8K 10.95 

Stock Charting 8K 15.95 

Mai List Labier 32K disk only 22.95 

Add $4 for disk except Mai List 

Add S1.SO (htpktg * handing 

All programs for TRS-80 Mod. 1 Lev. 2 

BAPS Software 

6221 Richmond, Suits 220 

Houston, Texas 77057 

713/783-3433 

TRS-80 I* • f«g. tradamarii ol tha Tandy Corp. 



FLOPPY DISK DRIVES 

s 275 

Famous make 40 Track drives, in grey 
textured enclosure with power supply. 
Fully tested and guaranteed. 

ADD $20 FOR "FLIPPY." 

80 TRACK "FLIPPY" $395 

40/40 DOUBLE SIDED $395 

EPSON PRINTERS $CALL 

C. ITOH PRINTERS $CALL 

CORSAIR COMPUTER CORP. 
7952 Highway 80 West 
Fort Worth, TX 76116 
817-244-8051 ^ 



►*See List ol Advertisers on page 402 
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to an octal 4 and a binary 1 is 
equivalent to an octal 1. If we 
look up an octal 41 in our table 
we find miraculously that it is 
equivalent to a binary 100001. 

This method will always work 
so that if we have a binary num- 
ber such as 110001101 which is 
too large for our table we can 
still convert it to octal or hex. 
The numbers 1, 1000, 1101 are 
equivalent to 1, 8, D in hex, so 
binary 110001101 equals 18D in 
hex. The numbers 110, 001, 101 
are equivalent to 5, 1, 3 in octal, 
so binary 110001101 is equal to 
513 in octal. 

For those of you who would 
like to know why this works, we 
have to explain a little bit about 
the three numbering systems. 
First of all binary is a two-digit 
numbering system (0,1) which 
means that every binary number 
is actually some power of 2. Oc- 
tal is an eight-digit numbering 
system (0-7) so every octal num- 
ber is a multiple of a power of 
eight, and hexadecimal is a 
16-digit numbering system (0-F) 
which means that every hexa- 
decimal number is related to a 
power of 16. Now, if we think 
about these statements, we re- 
member that 8 is a power of 2 
and so is 16. (2 raised to the third 
power is 8 and 2 raised to fourth 
power is 16.) Although this 
doesn't entirely explain why the 
above technique works, I think 
some of the mathematicians out 
there are turning back around. 



The program that I have in- 
cluded at the end of this article 
is one I call Mortgage Program 
Plus. The main body of it is virtu- 
ally the same as many other 
mortgage programs. It involves 
no graphics nor does it use 
any unusual Basic capabilities. I 
use it with those students who 
feel that learning about comput- 
ers has to involve a lot of pain, 
agony and number crunching. It 
uses a whole slew of variables. 
The uses of these variables are 
all explained within the program. 

The difference between this 
program and most mortgage 
programs is that it takes the in- 
flation rate into account. I 
strongly urge those of you who 
have loans and are considering 
paying them off early or those of 
you who are paying a little bit 
more than the required payment 
towards your mortgage to run 
this program first. By paying a 
little bit more than the required 
payment you will pay off your 
loan quicker. However, you may 
be losing money because of the 
inflation rate. 

As you might have already 
guessed, this program has noth- 
ing to do with numbering sys- 
tems. However, numbering sys- 
tems are an intricate part of all 
programming activities. For 
those involved with assembler 
programming and those of you 
who will be required to interpret 
dumps, I hope that this article 
will be useful. 



For those who are mathemati- 
cians I think that you will have a 
good time dissecting the mort- 
gage program. For those who 
are teaching data processing, I 



hope I have provided some tech- 
niques that you will find useful 
in your classes. If you are data 
processing students. . .good 
luck!! 



Decimal 


Binary 


Hexadecimal 


octal 






1 
10 




1 




i 


1 

2 


2 


2 


3 


11 


3 


3 


4 


100 


4 


4 


5 


101 


5 


5 


6 


110 


6 


6 


7 


111 


7 


7 1 


8 


1000 


8 


10 


9 


1001 


9 


11 


10 


1010 


A 


12 


11 


1011 


B 


13 


12 


1100 


C 


14 


13 


1101 


D 


15 


14 


1110 


E 


16 


15 


1111 


F 


17 


16 


10000 


10 


20 ! 


17 


10001 


11 


21 


18 


10010 


12 


22 


19 


10011 


13 


23 


20 


10100 


14 


24 


21 


10101 


15 


25 


22 


10110 


16 


26 


23 


10111 


17 


27 


24 


11000 


18 


30 


25 


11001 


19 


31 


26 


11010 


1A 


32 


27 


11011 


1B 


33 


28 


11100 


1C 


34 


29 


11101 


1D 


35 


30 


11110 


1E 


36 


31 


11111 


1F 


37 


32 


100000 


20 


40 


33 


100001 


21 


41 


34 


100010 


22 


42 


35 


100011 


23 


43 


36 


100100 


24 


44 


37 


100101 


25 


45 


38 


100110 


26 


46 


38 


100111 


27 


47 


40 


101000 


28 


50 


Table 3. Chart of Decimal, 


Binary, Hexadecimal and Octal 


Numbers 









TRS-80* COLOR Computer 

BORED 

with SLOW Cassettes 

Put your BASIC program into 
a ROM CARTRIDGE. Instant 
run at power-up! More data 
space! IT'S EASY! Send us your 
program on cassette and we'll 
quickly return it in a ROM 
CARTRIDGE. 

Prices start at $45.00 

(Quantity Discounts Available) 



Elgen 
Syst 



-510 



ems P- O. Box 10234 

Austin, Texas 78766 
(512) 837-4665 

—Assembly Language Rom Cartridges 
— Custom Programming Services 
TRS*-80 is a trademark of Tandy Corp. 



MODEL III 
TREASURE HUNT 

FIND THESE: 

Relocating macro assembler, linking 
loader, symbolic debugger, text editor, 
print spooler, interactive editor/assem- 
bler, disk-disassembler, command 
processor, disk exam/modify, disk 
utilities 

ALL FOR $99.00 

Clue: -*•*-» 

PDS " 413 

ALLEN ASHLEY 

395 SIERRA MADRE VILLA 

PASADENA, CA 91 107 

(213)793-5748 

Also: Cross assemblers for 8048, Z-8, 1802, 3870, 
S-2000. COP-400 - $75.00 each. Call for details 




TRS-80** 

COLOR GAME 

LIMITED OFFER! 



WE LI SEND VOU OUR BONUS GAME OF TMI MONT* 
WHIN YOO SENO US A SCI* "ODIESSSD STAMPED 
ENVELOPE FOR OUR FREE COLOR PROGRAM UST 



leKiftfCo.oHi-RESOLUTION GAMES" 

STARBASE ATTACK 1 ' 295 

IB* S 12.95 



BT&mmsmmm s 12.95 



IIGM SPEED ARCADE GAME 



KQ5W1C KMUKAZE 18.95 

JOYSTICKS REQ'D "**£*<££ °' 

CCRTIFICO CHECKS OR MONE< ORDERS OHLV 

illustrated men-ory banks 

P.O.BOX 289 

WIUIAMSTOWN. MA. 01267-0289 
EXPIRES 12-15-81 "CASSETTE 
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Spelling Errors? Does your TRS-80* wordprocessor need help? 




T.M. 



CAN SPELL rendezvous AND mnemonic AND OVER 38,000 OTHER WORDS 

Now let TRS-80 and Proofreader by Aspen Software Company check your Scripsit*, Electric Pencil, or other 
documents tor spelling and typographical errors. It has all the features needed to meet your proofreading requirements. 



Checks every single word of even your biggest 

document in under 5 minutes. 
The 38.000 word dictionary is one of the 

largest available. 
Dictionary can be easily extended to add more 

words such as technical terms or names. 



• All unknown words are listed on the screen and 

can be saved on a file for printing. 

• Works with almost any TRS-80 wordprocessor 

including Scripsit and Electric Pencil. 

• Comes with complete and easy to understand 

User's Manual. 



• Proof-Edit™, optional interactive corrections feature for Model l/ll 

QRAMMATiK" 



BEYOND SPELLING CHECKING 



A spelling checker may not be enough! This paragraph 
contains a number of common errors (indicated by 
underlining) that will be discovered by Grammatik that 
would seldom ever be caught by a spelling checker. 
FOr example. Grammatik checks for improper word 
usage as identified by a number of writing style man- 
uals (such as ^seldom ever). Grammatik will check for 
the presence of certain words such as jargon or sexist 
terms, jr. also checks- for consistant punctuation, cap- 



italizAtion. balanced quotation marks and parentheses. 
and and repeated words. In addition, it will produce a 
list of all unique words found in your document with the 
number of times each was used. Grammatik comes 
with a dictionary of commonly misused phrases and a 
dictionary of sexist terms. It also includes a complete 
set of utilities to build., sort, and merge phrase and 
jargon dictionaries of your own. Works with Scripsit. 
Electric Pencil, and other standard TRSDOS text files. 



MODEL I Requires J2K RAM. I disk drive. TRSDOS or NEWDOS 
MODEL II Requires 64K RAM. I disk drive. TRSDOS 2.0 

(can check 1.2 files using XFERSYS) 

MODEL III Requires J2K RAM. I disk drive. TRSDOS 

Manual only, specify model (refundable) 



Proofreader 

$54. 00 

$109.00 

$64.00 
$3.00 



Proof-Edit 
$30.00 

N/A 

$30.00 

$5.00 



Grammatik 
$49.00 

$99.00 

$59.00 

$500 



Aspen Software programs are professional quality 
software tools developed for the TRS-80 by a Ph.D. in 
Computer Science. Other tools include: 



— SOFT-SCREEN ™. a powerful, state of the art full 
screen text editor. Over a year in development, Soft- 
Screen is compatible with all TRS-80 programming 
languages, including BASIC. FORTRAN. MACRO. 
Ratfor. and COBOL. Easy to use. comes with tutorial 
and full documentation. 



— RATFOR. a structured language preprocessor 
for Fortran developed at Bell Labs. Aspen Software 
Ratfor provides a number of extensions, including 



"case" and "string". Includes complete manual with 
all the information needed to learn and write Ratfor 
programs. Requires FORTRAN. 

— PP-RATFOR. a pretty printer for use with Aspen 
Software Ratfor. Automatically formats and indents 
Ratfor source programs. 





Ratfor 


PP-Ratfor Both 


Soft-Screen 


MODEL 1 


$49.00 


$30.00 $74.00 




$69.00 


MODEL II 


$99.00 


$49.00 $139.00 




$99.00 


MODEL III 


$59.00 


$34.00 $84.00 




$75.00 


Manual onlyfref 


undable 


$12.00 




$15.00 


MODEL 1. 


II require 


48K. 2 drives. TRSDOS 






MODEL II 


requires 


64K. 1 drive. TRSDOS 2 







Please call o 


r write for details about our wordprocessor 





«T.M. 




Formerly 
SOFT-TOOLS 



ASPEN SOFTWARE 

• 449 



Orders sent postpaid by first class mail. 

Terms: Cash, check, money order, VISA, or 

Master Card. NM residents add 4% tax. 

When ordering, specify modek memory size, 

number of drives, and operating system. Dealer inquiries invited 

Trademark of Tandy Corporation Proofreader. Grammatik, and Soft-Screen are trademarks of Aspen Software. 



P.O. Box 339 
Dept. M 

TIJeras, NM 87059 
(505) 281-1634 



^ See List of Advertisers on page 402 
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Aerocomp's 
Proven 
Best-By Test! 
The 



: • * 



it 



in 




..-^' , 






.-v 



Double Density Controller 

• Technical superiority 




N. 






4&fi 



At last! a double density controller for Model i with higher probability of data recovery than with any other 
double density controller ON THE MARKET TODAY! The "DDC" from Aerocomp. No need to worry about the pro- 
blems that keep cropping up on existing products. AEROCOMP'S new analog design phase lock loop data separator 
has a wider capture window than the digital types currently on the market. This allows high resolution data center- 
ing. The finest resolution available with digital circuitry is 125 ns (nano seconds). The DDC analog circuit allows in- 
finately variable tuning. Attack and settling times are optimum for 5-1 /4 inch diskettes. 
The units presently on the market use a write precompensation circuit that is very "sloppy ". Board to board 
tolerance is extremely wide - in the order of + 100 ns. The "DDC" is accurate to within + 20 ns. 
The bottom line is state of the art reliability! 

* Test Proven 

Tests were conducted on AEROCOMPS "DDC", Percom's "Doubler A"* and "Doubler \\" and lnws "LNDoubler"** using 
a Radio Shack TRS80*** Model I, Level 2, 48 K with TRS80 Expansion interface and a Percom TFD100* disk drive 
(Siemens Model 82). Diskette was Memorex 3401. The test diskette chosen was a well used piece of media to deter- 
mine performance under adverse conditions. The various double density adapters were installed sequentially in the 
expansion interface. 

The test consisted of formatting 40 tracks on the diskette and writing a 6DB6 data pattern on all tracks. The 6DB6 
pattern was chosen because it is recommended as a "worst case" test by manufacturers of drives and diskettes. An 
attempt was then made to read each sector on the disk once - no retrys. Operating system was Newdos/80, version 
1.0, with Double zap, version 2.0. unreadable sectors were totalled and recorded. The test was run ten times with 
each double density controller and the data averaged. Test results are shown In the table. 



• Features 

TRS80 Model I owners who are ready for reliable double 
density operation will get (1) 80% more storage per 
diskette, (2) single and double density data separation 
with far fewer disk I/O errors, (3) single density com- 
patibility and (4) simple plug-in installation, compatible 
with all existing double density software. 

* value 

$149.95 for the best double density 
controller on the market. 

S189.95 for "DDC" complete With DOSPLUS 3.3D 
$239.95 for DDC" complete with LDOS 



• TEST RESULTS * 



MFR & PRODUCT 


SECTORS LOCKED OUT<avg> 


AEROCOMP "DDC" 





PERCOM "DOUBLER II" 


18 


PERCOM "DOUBLER A" 


250 


LNW "LNDOUBLER" 


202 



Note: test results available upon written request. All tests conducted prior to 8-25-81 

Aerocomp s 14 day money back guarantee applies to hardware only 

Specials will be prorated, snipping S2.00 In Cont. US. See opposite page for details. 



THE FIRST PRODUCTION RUN WILL GO FAST - ORDER TODAY! 



Data Separators 

The advances that make the "DDC' great are incorporated in the new AEROCOMP Single Density Data Separator ( "SDS") 
and Double Density Data Separator ("DDS"). 



* Has your original manufac- 
turer left you holding the bag? 

If you already own a Percom "Doubler A". "Doubler II" or LNW 
"LNDoubler . the aerocomp "dds will make it right. Look at the test 
results-. 



MFR. & PRODUCT 


SECTORS LOCKED OUT 


WITHOUT "DDS 


WITH "DDS" 


PERCOM "DOUBLER II" 


18 


1 


PERCOM "DOUBLER A" 


250 





LNW "LNDOUBLER" 


202 






Note: Same test procedures as "DOC'. 

* Trademark of Percom Data Co. 

* * Trademark of LNW 

* * * Trademark of Tandy Corporation 



• "DDS" $49.95 

(Use 1791 chip from your DO Con- 
troller) 

T^ DDS with disk controller 

chip included 579.95 

* Disk controller 

Chip $34.95 

(Shipping $2.00 Cont US - see opposite 
page for details) 



Plugs directly into your existing 
Double Density controller. 



do you need a 
single Density Data 
separator? 

The Internal data separator In the 
WD1771 chip (R/S Expansion interface) 
is NOT recommended by WD for 
reliable data transfer. Do you have any 
of these problems: Lost data, tracks 
locked out. CRC errors, disk retry? YOU 
NEED ONE! 

• "SDS" $29.95 

(For Mod. I; shipping $2.00) 

• 387 

see opposite 

pageMMM 
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TRS 80* 



DISK DRIVES 

40 & 80 TRACK 



as low as 



$299 



■95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along We offer the best 
disk drive value in the market place 
Reliability, features and cost tough to 
beat We deliver... and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIALI Buy 
Aerocomp drives today You deserve the 
best. 

BEST FEATURES 

• Fast 5 ms. track-track access time. 

• Operates single or double density. 

• "FLIPPY" feature for lower media cost 
(40-1 &80-I). 

• Head load solenoid. 

• Disk ejector 

• Easy entry door. 

• NEW EXTERNAL DRIVE CABLE 

CONNECTION, ino longei new io lemove me 
cover io hook up edbie| 



EPSON 

MX80 

PRINTERS 

$479.00 

TRS80 Cable (I & III) S29.95 

APPLE Cable & Interface. . $96.00 

RS232 Interface $69.95 

Ribbon Cartridge. Black. .. $13.95 
Print Head (STD) $26.95 

Add $6.00 shipping (Cont U.S.J does not 
include cable. 

MX80 F/T 

All the features of MX80 plus Friction 
Feed Shipping & cables as above. 

S 599.00 

A<J) "> i CO hn shipptiy & handling 



ORDER TODAYI 

• 40-Track Drive ' $299.95 

• 80-Track Drive S429.95 

• 40-Track "FLIPPY" Drive. . $329.95 

• 80-Track "FLIPPY" Drive . . $449.95 

• 40-Track Dual-Head Drive $449.95 

• 80-Track Dual-Head Drive. . $579.95 

Al <*ove drives Mr lomotete wiih tfvef enclosure power supply 
■tndexetn.* drrve ccnecormecnon I IS VAC SO60H? 7WVAC 
SO60 Hi ,tv<< MU<" on spet ul order 

• 40-Track Bare Drive $269.95 

• 80-Track Bare Drive $399.95 

• 40-Track "FLIPPY" Bare Dnve$299.95 

• 80-Track "FLIPPY" Bare Dnve$4 19.95 

• SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive. 2-dnve cable. TRSDOS 
2 3 Disk & Manual. Freight & Ins 

SRARTER B $369.95 

40-Track "FLIPPY" Dnve.cable. TRSDOS 
2.3 Disk & Manual. Freight & Ins. 

COMBO C $465.00 

40-Track "FLIPPY" Drive. 2-dnve cable. 
LDOS • Freight & Ins. 

COMBO D $585.00 

80-Track "FLIPPY" Drive, 2-dnve cable, 
LDOS- Freight & Ins. 

COMBO E $709.00 

Two 40Track "FLIPPY" Drives. 4-Drive 
cable. TRSDOS 2.3 Disk & Mannual. 
Freight & Ins. 

COMBO F $999 CO 

Two 80-Track "FLIPPY" Drives. 4-dnve 
LDOS . Freight & Ins. 

COMBO G $909.00 

Two 40-Track Dual-Head Drives, cable. 
TRSDOS 2.3 Disk & Manual. Freight & 
Ins 

COMBO H SI 299.00 

Two 80-Track Dual Head Drives, cable. 
LDOS . Freight & INS. 

DOSPLUS 3 3 or NEWDOS / 80.2 
available with any package 

AddSS 00 pet drrve lor srappmg & runotng |Cont US| 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days If you are not satisfied for ANY 
REASON {except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund. ! Speini packages wii be prorated I We have 

complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 



WARRANTY 

We offer you a 1 20 day unconditional 
warrenty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary. our service depart- 
ment is fast, friendly and cooperative 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive AEROCOMP 
MEANS RELIABILITY!! 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order. VISA or 
MASTERCHARGE card number and ex- 
piration date, or reguest COD. ship- 
ment. Texas residents add 5% sales tax. 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD shipments-cash, money orders or 
certified checks only You will receive a 
card showing the exact C O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship. 1 1 

DRIVE CABLES ~ 

2-DRIVE S24 95 

4-DRIVE S34 95 

WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824-7888, OPERATOR 24 

POt VISA/MASTfKHAtOE/C.O.D. OROIRS 
California dial (800) 852-7777. Operator 24 Alosko 
ond Hawaii dial (800) 824 7919. Operator 24. 
TOLL PMI LINIS WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us o cord 



Dealt 



"ted 



AE3GCGIil? 

Redbird Airport, Bldg. 8 
P.O. Box 24829 
Dallas, TX 75224 



• 387 



AROCOMP/23 
AROCO MP/24 



^See List ol Advertisers on page 402 



80 Microcomputing, November 1981 • 283 



UTILITY 



Tie a few tapes together. 



Merge For Level II 



William J. Dalesandry Jr. 

355 Rock field Rd. 
Pittsburgh, PA 15243 



Until now, Merge was only 
available to DOS users, but 
now you can have It on Level II. 
Merge offers an extremely use- 
ful additional command state- 
ment to an already powerful rep- 
ertoire of commands available. 
The program Is also compatible 
with Microsoft's Level III 
cassette Basic. 

Normally when you CLOAD a 
program, it writes over any pro- 
gram already in memory and the 
resident program is lost. This 
new command, used either from 
the keyboard in command mode 
or as a program statement, 



loads two or more Basic pro- 
grams Into memory at the same 
time. The second program and 
all subsequent programs will 
merge with the root program or 
programs to form one contigu- 
ous program. 

Because the program loads 
into memory at location 28000 
(6D60H) then relocates itself to 
the bottom of Basic's user RAM 
area, it is compatible with Level 
III, Level II and other Basic ex- 
tension programs. This relieves 
the inconvenience of reserving 
space in high memory. It re- 
quires no modification because 
of the size of your system. Basic 
starts at the same place in a 4K 
system as it does in a 48K sys- 
tem and because it requires no 
memory to be reserved, you can 
load it at any time without an- 
swering the question memory 
size? 

Merge is such a useful com- 
mand I cannot understand why 
it wasn't included in Level II or 
Level III. 
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Save Programming Time 

Considerable programming 
time can be saved by keeping a 
cassette tape file of commonly 
used subroutines and merging 
them Into your programs as you 
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need them. 

One subroutine that comple- 
ments Merge is shown in Pro- 
gram Listing 3. It computes and 
displays the length of any pro- 
gram currently in memory. If 
several programs have been 
merged, the display will reflect 
the total length of the compos- 
ite program. Merge the subrou- 
tine into memory and run or 
GOTO 60000. 

The usual 715562-MEM 
doesn't always yield the same 
number. The number displayed 
before running a program is not 
the same as the number dis- 
played after running it. Any pro- 
gram, run either from the key- 
board in command mode or 
through the interpreter, requires 
about 10 bytes of overhead. 
Therefore, I subtracted from 
15562, not the usual 15572 (I 
have a 16K system). 

The subroutine first gets the 
start-of-variables address, 
which is the last byte of the resi- 
dent Basic program plus two. It 
then subtracts the start-of-Ba- 
sic address, two bytes at the 
end of a program, and its own 
length. The result of this compu- 
tation Is then sent to the CRT 
screen and printer. If your 
system does not include a 



printer, delete the LPRINT state- 
ment. 

The Game Sea 

You may be drowning In a sea 
of game tapes. Why not merge 
several similar games into one 
program? Just write a short sub- 
routine that asks the player 
which game he or she wants to 
play. Load the subroutine and 
merge all your similar games on- 
to it. 

Merge can be used the same 
as a CLOAD to load the root pro- 
gram, so you can store this sub- 
routine with your other subrou- 
tines. 

Another useful feature of 
Merge is that you can add and 
delete data lines quickly without 
entering them by hand. 

Modular Programming 

One use for the routine, possi- 
bly the most valuable, allows 
you to develop programs in 
short modules. The modular ap- 
proach will save time loading 
and saving during the program 
development. 

Modular programming tech- 
niques also allow easier main- 
tenance and smoother program 
flow. Program sections will no 
longer seem to blend into each 



other. 

How It Works 

The assembly language Pro- 
gram Listing 1 was written in 
standard Zilog Z-80 mnemonics 
for a Level II system. It can be 
assembled as shown or poked in 
one byte at a time using T- 
Bug or a similar debug monitor. 
The program is initially located 
in an area of memory that 
doesn't interfere with T-Bug. By 
using the #J 6D60 command, 
you can relocate the program 
below T-Bug, but merging in any 
program over 20 bytes will write 
over a section of T-Bug. 

If you do not have access to 
an assembler or debug monitor, 
you can use the Basic program 
shown in Program Listing 2 to 
load it. The merge and relocate 
routines are contained in deci- 
mal form in the data lines 100 to 
190. Line 10 POKEs the program 
into the proper locations, and 
line 20 deletes the program, 
opening Basic user RAM for our 
use. 

Merge is written in two mod- 
ules. The first module relocates 
the merging module to the bot- 
tom of Basic's user RAM area. 
After relocation, this module is 
scrapped by letting it drift in the 
area of variables and strings. 
The second module is the actual 
Merge routine. 

Normally, when you type and 
enter Merge an ?L3 error mes- 
sage is displayed on your CRT 
screen. However, Level II Basic 
was clearly written to allow for 
all kinds of expansions. 

The various commands used 
by Level II are stored in mem- 
ory in the form of a one byte 
code number. In this case, 
168 (A8H)= MERGE. (For a list 
of these codes see "New Re- 
stored" and Hidden Codes & 
Missing Chips" in the January 
1980 issue of 80 Microcom- 
puting.) 

When Basic encounters one 
of these code bytes, it goes to a 
vector list, which in effect is a 
GOTO table to find out where 
the appropriate routine is 
stored. The jump vector (or 
GOTO) for Merge, stored at 
memory locations 16779 
(418BH) to 16780 (418DH) nor- 
mally points to the ?L3 error rou- 
tine at location 012DH for Level 



II and 4A07H for Level III. We are 
going to change this jump vec- 
tor to point to our Merge routine, 
bypassing the ?L3 error mes- 
sage. 

Level II also maintains a list of 
addresses used in the normal 
operation of its business. The 
list is stored in the reserved 
RAM area just below Basic 
RAM. Table 2 is a partial list of 
these addresses. The address at 
16548 (40A4H) and 16549 
(40A5H) is where the first byte of 
a Basic program will start load- 
ing and one at 16633 (40F9H) 
and 16634 (40FAH) where 
variable storage starts. 

The Relocation Module 

Lines 00230 and 00240 get the 
start -of-Basic pointer from loca- 
tions 40A4H and 40A5H and 
plug it into locations 418CH and 
418DH as our new jump vector. 

Basic user RAM starts at 
17129 (42E9H) for Level II and at 
22208 (56COH) for Level III. Be- 
cause of this difference in start- 
ing locations, we must calculate 
the distance from where the pro- 
gram is to where we want it to 
be. The displacement value is 
computed in lines 00260 to 
00290 by subtracting (SBC) the 
Basic-start-address, already in 
register pair DE, from the unrelo- 
cated address of the Merge 
module, which we put into regis- 
ter pair HL in line 00260. The re- 
sult of this subtraction is auto- 
matically put into register HL. 
Save the address of the Merge 
module for use later by pushing 
it into the stack in line 00280. 

Lines 00300 and 00310 trans- 
fer the displacement value from 
register pair HL to register pair 
BC. Then in lines 00320 to 00370 
we get the address of the 
LDBYTE subroutine and sub- 
tract the displacement value to 
get the new LDBYTE address. 
Then plug it into the subroutine 
calls in lines 00660, 00690, 00720 
and 00840. A call in assembly 
language is the same as a 
GOSUB in Basic. 

Relocation of the Merge mod- 
ule data block will be done for us 
by one of those elegant com- 
mands for which the Z-80 micro- 
processor is famous. The LDIR 
command (LDIR stands for load- 
increment repeat) takes care of 
all the details of a complete 



block move. 

It works like this: The byte of 
the data located in the address 
pointed to by the HL register 
pair is moved to the address 
pointed to by the DE register 
pair. One is added to both the 
HL register and the DE register 
pair and one is subtracted from 
the BC register pair. The BC reg- 
ister pair is used as a down- 



counter. We set it to the length 
of the Merge module (80 bytes = 
50H) in line 00390. BC is then 
checked for zero. If it has not 
downcounted to zero, the cycle 
is repeated until a zero is found. 
At that time, both the HL regis- 
ter pair and the DE register pair 
are incremented one more time 
and the program falls through to 
the next program line. 
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LEVEL 


2 MERGE • 




88138 


• 
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88148 

eeise 

88168 


• 






• 


6068 




OM 


6068H 


'28808 (131 BYTES) 


«M 


88178 STORC 


CQU 


4BABH 


THIS LOCATION IS RND SEED 




88198 


. 






, 




88288 


• 


THIS 


BLOCK IS THE RELOCATION NODULE • 




eezie 

88228 
002 38 


• 






• 


eoee cosmos 


wxoc 


LD 


DE . < 40A4H ) 


PUT BASIC START IN DE 


6D64 EDS38C41 


88248 
B82S8 




to 


1 4iecH),oc 


AND PLUG IT IN AS HEM 
DOS LCCTOR ADDRESS 


6066 Z1946D 


88268 
88278 




LD 


HL. MERGE 


PUT ADDRESS OT UNRELOCATED 
MERGE PRuCRAH IN HI AS SOURCE 


6D6B ES 


88288 




PUSH 


HL 


ADDRESS AND EMM TOR LATER 


SD6C EDS? 


88298 




SBC 


HL.DE 


HL NOU HHS OISPl ACFNTNT hi in 


6DSE CS 


88388 




PUSH 


HL 


TRANSFfR IT 


6D6F CI 


ea.iie 




po»- 


BC 


TO BC 


6D78 Z1036D 


8o:-<78 




LU 


HL. LDBYTE 


PUT ADDRESS OF CALL IN HL 


6073 ED42 


88338 




SBC 


HL.BC 


SUBTRACT DISPLACEMENT 


6D7S 22AC6D 


88348 




LD 


( NEXT* D.HL, PUT CORRECTED 


6D78 22B16D 


B8358 




LD 


(L0AD*1),HL; CALL ADDRESS 


6D7B 2ZBSB0 


88368 




LD 


<look*1).hl; rt four 


607E 22CC6D 


O036S 




LU 


( ZERO*! ) , HL i CALL L0CATI ONS 


6081 El 


88378 

B0JIJO 




POP 


HL 


POINT HL TO MERGE LOCATION 
(BASIC START IS IN DE) 


6062 eisoca 


88390 




LD 


K.MMH 


SET COUNTER TOR 88 BYTES 


6D8S EOBC 


88488 




LOIR 




NOUE TO NEW LOCATION 


6DB7 E053A44B 


084 18 
88428 




1 D 


( 48A4H ) , DE 


CE NOW POINTS TO LAST PROGRAM 
L7NE«l -THIS IS NEW BASli' START 


60eB 13 


084 33 




INC 


DE 


COUNT 2 MORE TO GET 


SDK 13 


884 40 




INT 


DC 


NEK STHRT OT UARTABLES 


6D8D EDS3T948 


884SH 




LD 


(4«f 9H1.DE 


PLUG IT IN 


6061 C37A2C 


004R0 
88470 
884B0 
88498 




If 


2C7AM 


A BIT OF HOUSEKEEPING AND 
ME HAVE a LiFTorr 




i , 






. 




6OS08 


1 • 


THIS BLOCK IS 


THE MERGE PROGRAM • 




3P918 


• 






. 


6B94 C09382 


BOS7B 

(t''-"'.l 










mepce 


CALL 


8293H 


TURN ON CASSETTE. REBO LEADER. 




88S48 








FIND SYNC BYTE (AS). TURN OH •• 


6097 8684 


aussa 




10 


B.84H 


SKIP NEXT FOUR BYTES 


6B39 C03S82 


eesco 


SKIP 


CALL 


B23SH 


(3-D3 HEADERS • FILE NANE ) 


60SC lera 


8CS78 




DJN? 


SKIP 


FILE MANE IS IN 8 


603C 323E3C 


•J8SA9 




LO 


(3C3EJ41.A 


DISPLAY TILE NANE (LETT •) 


6DA] 2AT340 


88598 




LC 


HL.(48F3H) 


GET VARIABLES POINTER 


EDA4 It 


■MM 




ore 


HL 


SUBTRACT 2 TO GET THE STARTING 


60A5 2B 


88618 




D«( 


HL 


i ADDRESS OF THE PROGRAM TO BC 


60A6 S4 


88620 




LO 


D.H 


MERGED AND SAVE IT IN DE 


6DA7 SD 


98638 




LD 


E.L 


; AS LAST -NEXT LINE POINTER- 


60AB 28 


88648 




DEC 


ML 


SET HL TO START ADDRESS - 1 


PM9 8t04 


oecoe 


ri«si4 


LO 


B.84H 


GET AMD LOAD FIRST 


eofih coo^so 


OC6«l 
88678 


ICXI 


CALL 


LDBYTE 


4 BfTES OT LINE (NEXT LINE 
; ADDRESS AND LINE NUMBER) 


s:«l 1B)B 


88688 




DJN2 


NEXT 


: - LOOK FOR THO ZEROS - 


6DB8 CP096tl 


08698 


LOAD 


CALL 


LDBYTE 


•.GET AND LOAD A BYTE 


6C63 28TB 


88788 




JR 


NZ.LOAE 


i ir NOT ZERO LOAD NEXT BYTE 


SUBS C02C82 


8C71B 




CALL 


e22CH 


: IF ZERO -END OF LINE- BLINK • 


C.DB8 CDU96D 


88728 
80738 


LOOK 


CALL 


LDBYTE 


: THEN LOOK FOR A SECOND ZERO 
: (CP USED LATER) 


60SB CS 


88748 




PUSH 


HL 


;save current address pointer 


6DBC 22AS48 


807S8 




LO 


(STORE ),HL 


; STORE ADORESS POINTER, ( HL ) 


60f»" 2IAB40 


88768 




LD 


ML. STORE 


; AND POINT HL TO IT 


BDC-- EOA8 


8877B 




LDI 




:M0UE ADDRESS Of CURRENT LINE 


6DC-4 edab 


88788 




L0| 




; TO FIRST 2 BYTCS OF LAST LINE 


6DC6 CI 


88798 




POP 


HL 


:GET CURRENT MEMORY ADDRESS 


6DC7 S4 


88088 




LC 


D,H 


: AND PUT IT 


C0C8 SO 


88AI0 




LD 


E.L 


; IN DE 


SOUS 28DC 


88028 




JR 


NZ.FIRST4 


; (2 FLAG STILL RESET) 
! IF NZ LOAD NEXT LINE 


G0CB CDD96D 


88848 


ZERO 


CALL 


LDBYTE 


iLOAD NEXT BYTE 


6DCC 0683 


0004', 




LO 


B.B3H 


i FIRST4 IS NOW FIRSTS 


60D0 28D9 


80HH8 

MBM 




JO 


N2.NEXT 


i NOT THIRD ZERO. LOAD NLXT LINE 
; END OF PROCRAM 


6DD2 23 


88878 




INT 


HL 


; THIRD ZERO «1 IS THE 


60D3 2ZT948 


80068 




LD 


<4Bf"9H),HL 


; NEN VARIABLES START ADDRESS 


GCD6 C37A2C 


bphsb 




JP 


2C7AH 


;ADJUST MEMORY SIZE POlNTtRS 
; TURN OFr CASSETTE AND GO HONE 


6D09 C03S82 


93S10 


LOBYIC 


CALL 


823SH 


•.GET « BYTE 


GODC 23 


88928 




INC 


HL 


i INCREMENT ADDRESS POINTER 


6000 77 


88338 




LO 


(HL>.A 


; AND LOAD THE BYTE 


SDDc rcoe 


88948 




CP 


88H 


; IF ZERO. SET Z FLAG 


6DE8 C9 


B8958 




RET 




; AND BACK AGAIN 


SCEI 08 


ewsa 




OfTB 


MM 


: THESE ARE THE THREE 


*CE2 8C 


88978 




DEFB 


0ei< 


i ZEROS WHICH INDICATE THE 


"i3€3 08 


80368 




DEFB 


88H 


1 END OF THIS PROGRAM 


COM 


089-W 




END 


RELOC 




i"3C(»o iota-., errors 










riRsn 6DAg 












SKIP 6099 












^RO 60CB 












LOOK SDB8 












I 0AO 60B8 












NEXT 6DAB 












LOBYTE 6009 












■ r-WX 6094 












ffELOC 606* 












STORE 48AB 
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Our Merge module has now 
been moved to low memory, in- 
cluding the three zeros indicat- 
ing the end of a program. The 
routine sometimes crashes 
without them. 

Register pair HL now points 
to one address past our routine. 
This address is plugged into lo- 
cations 40A4H and 40A5H as 



our new start -of -Basic address. 
We then add two by increment- 
ing register pair HL twice and 
plug this address into locations 
40F9H and 40FAH as our new 
start-of-variables address. 

The only thing to do now is 
reset the various memory size 
pointers to allow for the 80 bytes 
just added. This chore is done 





1 


00 


LEADER 


THESE 


J 


00 I 


, CONSISTING OF 


BYTES 


— < 


■^-• , 




DO NOT 




00 


255 2ER0S 


LOAD 




A5 


SYNC BYTE 


INTO 




D3 


THREE 


MEMORY 




D3 


D3 






03 


HEADERS 






41 


FILE NAME "A" 


STfiRT OF 


42E9H 


F5 


42F5H IS ADDRESS 


BASIC 




42 


OF NEXT LINE 


STORAGE 




0ft 


000AH - LINE 10 


flREfi 




00 








B2 


PRINT 






22 


• 




42EFH 


54 


T 




42F0H 


45 


E 






53 


S 






54 


T 






22 


• 






00 


END OF LINE 




42F5H 


02 


4302H IS ADDRESS 






43 


OF NEXT LINE 






14 


0014H - LINE 20 






00 








B2 


PRINT 






22 


* 






50 


P 






52 


R 






47 


G 






4D 


M 




42FFH 


2E 


. 




4300H 


22 


• 






00 


END OF LINE 




4302H 


00 


0000H - DUMMY 






00 


LINE NUMBER 


START OF 


4304H 


XX 


VARIABLE TYPE 


VARIABLE 




XX 




STORAGE 


7 


XX 

ablet 





16S2B 


408EH 


ENTRY FOR USR 


16539 


409BH 


PRINTER CARRIAGE POSITION 


165^0 


4e9CH 


DEVICE - TAPE-FFH UIDCO-00H PRINTER-B1H 


16544 


48ABH 


START OF STRING SPACE 


16S48 


4BA4H 


START OF BASIC USER RAM 


16550 


40A6H 


LINE CURSOR POSITION 


15554 


48AAH 


SEED FOR RND AND RANDOM 


16559 


40fiFH 


NUMBER TYPE - INT-02H SINGLE-84H BOUBLE-08H 


16561 


40B1H 


TOP OF BASIC MEMORY 


16563 


48B3H 


STRING WORK AREA POINTER 


1656S 


40B5H 


STRING WORK AREA 


16598 


4BD6H 


MEMORY SIZE 


16629 


40F5H 


LAST LINE NUMBER EXECUTED 


16633 


40F9H 


START OF VPRIABLES 


16635 


40FBH 


ARRAYS POINTER 


16637 


40FDH 


FREE SPACE 


16639 


40FFH 


NEXT DATA BYTE TO BE READ 


16722 


4152H 


LEUEL 2 VECTOR TABLE 

Table 2. 



by the Level II ROM routine 
located at address 2C7AH. That 
routine also sends us back to 
the Level II ready prompt, and 
Merge is operational. 

The Merge Module 

To understand how the sec- 
ond module works, we must 
examine how CSAVE formats 
cassette tapes and how this in- 
formation is loaded back into 
the computer as a coherent pro- 
gram. Save Program Listing 4 on 
a cassette using the file 
name "A". 

Table 1 demonstrates the 
CSAVE format. The first column 
contains some explanatory 
comments. The second column 
is the memory location where 
the byte on tape will load. The 
third column is a representation 
(in hex) of the data that is con- 
tained on the cassette tape. The 
last column is a brief descrip- 
tion of what the byte is or its 
function. 

A saved tape starts with a 
leader of 255 zeros, then a sync 
byte (A5H) synchronizes the 
loading of all following data. 
Next comes a three-byte leader 
of three D3H bytes, followed by 
a one-byte file name for the fol- 
lowing program, in this case 
41 H, an ASCII "A". 

All the data to this point has 
been CSAVE housekeeping 
overhead and does not load into 
memory. The next two bytes are 
the first two of the program and 
will be the first two bytes to be 
loaded into memory. These 
bytes point to the address of the 
next program line. After Basic 
has finished with a program line, 
this is how it knows where to go 
for the next line. The two bytes 
are arranged in standard Z-80 
format with the least significant 
byte (LSB) first, followed by the 
most significant byte (MSB). To 
read the address, read the last 
byte first (in hex). 

The next two bytes are the 
program line number, again ar- 
ranged LSB first. The following 
bytes in Table 1 are the various 
command codes and ASCII 
characters making up the pro- 
gram. 

A zero indicates the end of a 
program line. If you have used 
multiple statement program 
lines, a zero will not be put be- 



tween the statements. Instead, 
a 3AH byte (ASCII colon) will be 
there. The zero only appears at 
the end of a numbered program 
line. The end of a program is in- 
dicated by two more zero bytes 
following the end of line zero. 
These two zeros form a dummy 
line number. The next sequen- 
tial address starts the area used 
for simple variable storage. 

To see how Merge works, we 
will first call the very useful Lev- 
el II ROM routine located at ad- 
dress 0293H. First, it turns on 
the cassette motor and selects 
default drive number one. Then 
it reads the 255 zero byte leader, 
locates the sync byte (A5H), and 
turns on the two asterisks in the 
upper right hand corner of the 
screen for us. Since Merge 
doesn't search for a particular 
file name, we can skip over the 
next four bytes in lines 00550 to 
00570. 

The DJNZ (decrement-jump 
(if) not zero) command in line 
00570 creates the assembly lan- 
guage equivalent of a For... 
Next loop, using register B as a 
downcounter. When counting Is 
to be done, it is always done 
through the B register or for 
counts longer than 255, through 
the BC register pair. In line 
00550 we set register B to four 
(04H). When the B register has 
downcounted to zero, the com- 
mand falls through to the next 
program line. 

The byte in the accumulator, 
(register A) is the last byte load- 
ed and the name of the program 
about to be merged. We can use 
that byte to replace the left 
asterisk (Listing 1, line 00580). 

Next, we need to know where 
in memory to load the new pro- 
gram. Lines 00590 to 00640 give 
us this address by taking the 
start-of-variables address, 
which is in register pair HL and 
subtracting two. Register pair 
HL now points to the next ad- 
dress past the last zero byte of 
the last line of the resident pro- 
gram (see Fig. 1). This is where 
the program to be merged will 
start. We will use this address 
later to adjust the next-program- 
line pointer. For now, we will 
save it in register pair DE. 

Later, we are going to look for 
the zero byte, which represents 
the end of a program line. If you 
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PROFESSIONAL 




INCOME TAX SYSTEM 

FOR TRS-80* MODEL I, II or 

For four successive years! 



Our system, running on the magnificent line of TRS-80 computers, has 
prepared thousands of lightning-fast, error-free tax returns a day in 
accounting offices nationwide. 

Now we introduce! 

SYSTEM THREE! 

SYSTEM THREE is an improved, still more interactive version — Totals W-2's and 
computes FICA overpayment — Includes "QWIKTAX," a fast tax calculator for tax 
planning — Has automated Client Billing — More! 

And, as always— 

1. Full interactive user control, in tax-form language only, line-by-line. 

2. Screen display of full 1040 and all schedules, prior to printout. 

3. All formats IRS and State approved. 

4. Schedule amounts automatically entered on Form 1040. 

5. Your Preparer's Information automatically printed at bottom of Page 2, Form 1040. 

6. Built-in Validation Check tests entire system, hardware and software. 

7. Special printer adjustment routines: Margin Offset, Text Position, etc. 

8. Fills in pre-printed forms (we supply) or use overlays. Your choice. 

9. AUTOMATICALLY COMPUTES: Tax — Earned Income Credit — Maximum/Minimum Tax — Least Tax 
Method — All Percentage of Income Limitations — All Fixed Limitations. 

DOES INCOME AVERAGING IN EIGHT SECONDS! 

10. Full support through the tax season, no charge. 

11. Inexpensive yearly updates in accordance with tax-law changes. 

SYSTEM THREE comes in four modules. You select the ones you need. There is no 
system like it, for any computer, and the cost is literally nothing. In one season, our users 
have paid, out of savings, for the software and the computer. 

35-page Descriptive Manual - $7.50 

(Refundable on order) 

MINIMUM SYSTEM REQUIRED: Model I, 48K, 1 Disk Drive 

CONTRACT SERVICES ASSOCIATES 

706 SOUTH EUCLID • ANAHEIM, CA 92802 • TELEPHONE: (714) 635-4055 

* TRS-80 is a trademark of Tandy Corp. 



• See List ol Advertisers on page 402 
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refer to Table 1, you will see that 
the fourth byte to come in is a 
zero. Avoid confusing this zero 
with an end-of-line zero by load- 
ing the first four bytes without a 
zero search in lines 00650 to 
00680, using the DJNZ com- 
mand again. 

Lines 00910 to 00950 contain 
the subroutine, labeled LD- 
BYTE, which gets one byte of 
data from tape by calling the 
Level II ROM subroutine located 
at address 0235H and loads that 
byte into the memory location 
pointed to by the HL register 
pair. 

Register pair HL is increment- 
ed by one to point to the next 
memory location and the last 
byte loaded (which is in the ac- 
cumulator) is compared with 
zero in line 00940. If the result of 
this comparison is true (byte = 
0), the Z flag (the seventh bit of 
an eight-bit binary number in the 
F register) will be set to one. If 
the result is false (byte ^ 0) the Z 
flag will be reset to zero. We can 
now return to the main program. 

Line 00700 checks the status 
of the Z flag. If the last byte com- 
pared was not a zero (NZ), the 
program jumps back to the label 
specified by the operand of the 
command. Another byte is load- 
ed and another and another, un- 
til the last byte loaded is a zero, 
at which point the program falls 
through to line 00710, which 
calls a Level II ROM subroutine 
to blink the right asterisk. 

We have found a zero that 
means the end of a program 
line. If the next two bytes are 
also zeros, we have arrived at 



the end of the last line of the pro- 
gram. Now we must adjust the 
next-line-pointer in the first two 
bytes of the last line loaded to 
point to the last byte loaded, 
which is the first byte of the next 
line. 

The LDI commands in lines 
00770 and 00780 work the same 
as the LDIR command except it 
does not use the BC register pair 
as a downcounter. It transfers 
data once and only once. This 
way not only saves a byte of pro- 
gram memory, but demon- 
strates both commands as well. 
We are moving two bytes, the 
LSB and MSB of the address. 
Therefore, we must use LDI 
twice. 

We have already put the ad- 
dress of the first byte of the last 
line, in register pair DE, back in 
lines 00620 and 00630. Register 
pair HL holds the address of the 
current line. We must store the 
current line address somewhere 
and point register HL to it in 
order for LDI to do Its job. The 
problem is where to store it. Lo- 
cations 40AAH to 40ACH hold 
the seed used in the random 
number generator for Basic's 
RND and Random statements. 
We can store the address here 
without worrying about interfer- 
ing with any of Basic's normal 
functions. 

With all the housekeeping 
done, the two LDIs move the 
LSB and MSB of the address to 
the first two bytes of the last 
line. Now POP the current line 
address out of the stack and 
back into the HL register pair. 
Lines 00800 and 00810 transfer 



10 FOR P 
20 NEW 
100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
ISO DATA 
160 DATA 
170 DftTfl 
188 DATA 
130 DATA 



-28000 TO 26131 : REA0 B:POKE P.BiNOT 

237.91,164,64,237,83, 140.65.33. 1 4e, 109,229,237.8? 
229. 193,33,217, 109.237.66.34, 172, 109.34,177,109,34 
185, 109.34,284, 109, 225. 1 . 88.0. 237, 176,237,83, 164 
64, 19. 19. 237. 83. 249. 64. 13S. 122. -44. 285. 147, 2, 6 
4. 20S. S3, 2, 16.251 .50. 62.80. 4?, 249. 64 , 43. 43 
84,93.-43,6.4.205.217. 109. :6. ?51 .20S.217, 109. 32 
2S1.20S. 44,2.205.217. 109.Z23.34. 171 ,64. 33. 171 . 64 
237.160,237, 160. 22S. 84. 93. 32.222. 205.217. 189. 6. 3 
32. 21 7. 3S. 34, 249. 64. 133. 122. 44. 205. S3. 2, 35. 119 
254.0,281.0.0,0 
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60888 ZZ»- 'PROGRAM BYTES -* :ZZ-(PEEKt 16634 >»256*PEEKl 16633) )-<PEEK 
( 16549 >»256+PEEK( 16S4B ) )- 193: PRINTZZ«;ZZ:LPRINTTAB( 10)ZZt:ZZ 

Program Listing 3. 



it to the DE register pair for later 
and the adjustment is complete. 

The Z flag is still set or reset 
from the last compare. We will 
use the flag now to either load 
the next program line or look for 
another zero. If the zero flag test 
in line 00820 is true, we load an- 
other byte and set register B to 
03H. This makes the First 4 rou- 
tine into a First 3 routine, other- 
wise our downcount would be 
off by one if this bit isn't a zero. 

If the last byte was a zero, the 
flag test in line 00850 will fall 
through to the next program 
line. Increment register pair HL 
one last time and put that ad- 
dress into locations 40F9H and 
40FAH as the new start-of-vari- 
ables pointer. 

Remember the Level II ROM 
routine starting as address 
2C7AH that was used in the relo- 
cation module? Use it again to 
adjust memory size to allow for 
the Basic program we just 
merged, then we are done. 

The ROM routine at 2C7AH 
contains a call to another ROM 
routine at location 01F8H that 
turns off the cassette motor. 
The reason I mention this now is 
that many useful Level II rou- 
tines contain calls to other sub- 
routines. When using these rou- 
tines, careful consideration 
must be given to what effect the 
subroutine will have on your pro- 
gram or the registers you are us- 
ing. If the extra calls will not af- 
fect your program or registers, 
use them! If the subroutine af- 
fects your registers but not your 
program, push the registers in 
jeopardy into the stack and pop 
them back after the subroutine. 
Remember for every PUSH there 
must be a POP. 

Using The Program 

In response to the memory 
size prompt, press Enter, if you 
need memory for some other 
purpose, reserve it. If you are us- 
ing Level III, load and initialize it; 
if not, it would be a good idea to 
load a line renumbering pro- 
gram into high memory. If you 
have assembled the program or 
punched it using T-Bug, load it 
using the System command. Ini- 
tialize Merge by typing "/" or 
/28000 and pressing Enter. 

If you are using the Basic pro- 
gram shown in Program 2, 



10 PRINT-TEST' 
20 PRINT-PRGM." 

Program Listing 4. 



CLOAD and run it. After it has 
run, the New statement in line 20 
will clear It out of memory. Type 
system and press Enter, then 
type /28000 and press Enter. 
When the Ready prompt ap- 
pears, you're in business. 

Some Precautions 

CLOAD the first program, but 
before merging in another pro- 
gram, some precautions should 
be observed. The next program 
should have line numbers higher 
than the line numbers of the root 
program. Actually the higher 
line numbers can be loaded first 
and the program renumbered 
but if line numbers are dupli- 
cated in the two programs, line 
statements such as GOTO or 
GOSUB will not renumber 
properly 

If the earlier line numbers are 
higher, always renumber or un- 
predictable results can occur. 

Merge does not have file se- 
lection ability. You must locate 
your cassette at a point just be- 
fore the program to be merged. 
Be sure the volume on your cas- 
sette is properly set, then type 
Merge and press Enter. Two as- 
terisks will appear in the upper 
right hand corner of your CRT 
screen. The left asterisk will be 
replaced by the file name of the 
program that is loading. Verify 
that it's the proper program. If 
the wrong program is loading, 
the routine can be aborted with 
the reset switch. The blinking 
asterisk will signal that the pro- 
gram is loading. When loading 
is complete, the ready prompt 
will appear. If you have loaded 
the wrong program, simply de- 
lete the unwanted lines and 
start over. 

All other normal commands 
will operate as usual. Finally, 
list the composite program for a 
final verification that you have 
merged all the separate pro- 
grams in the right order. Renum- 
ber the new program, if neces- 
sary, and save it on tape.B 



268 • 80 Microcomputing, November 1981 



Your best 

Model l/lll 

peripheral buy 

is a modem. 



Your best 

Model l/lll 

modem buy 

is LYNX. 



Considering expanding your TRS-80 
Model I or III? Then you should know 
that only one kind of peripheral can 
give you all these extra capabilities 
... in a single unit: 

• Computer-to-computer data 
communications, for better 
personal or business manage- 
ment. 

• Access to free "bulletin board" 
resources. 

• Access to Source, Compu- 
Serve and other time-sharing 
systems. 

• Services like electronic mail, 
instant news and financial re- 
ports. 

• An almost limitless supply of 
new games and other enthusi- 
ast activities. 

Of course, we're talking about a 
modem. A far more sensible first 
step in expanding than, say, joy- 
sticks, or a voice box, or a printer. 
And, therefore, your best peripheral 
buy. 

A modem opens up a whole new 
world to you. A world of thousands 
of computers and computer people 
just like you, in homes and busi- 
nesses around the block and across 
the country. A world you tap through 
your telephone. 

But don't simply settle for any mo- 
dem. For the most modem satisfac- 
tion, you need to make the best mo- 
dem buy. 

And that's LYNX. 




Lyr« to» 

Mod* I* 



The new LYNX for TRS-80 Model I and Model 
III. It's the latest innovation from the people who 
are making data communications affordable. It's 
the best first step you can take in expanding. It 
makes your microcomputer a whole new animal. 




DLYISTX.O 



123 LOCUST STREET LANCASTER, PENNSYLVANIA 17602 
Phone 717/291-1118 

TRS-80 is a trademark of the Radio Shack Division ol Tandy Corporation. 
FCC Regstratton Number: A909KE-68171-DM-N 
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The new LYNX is the ideal modem 
for your Model I or III. That's because 
it's the key element of a total direct- 
connect telephone communica- 
tions package. 

This package includes all serial 
and computer bus interfaces, cables 
and terminal software . . . and comes 
to you with these remarkable fea- 
tures: 

• SINGLE PRICE: $299,951 

• Compatible with both Model I 
and III. 

• No separate purchases 
quired. 

• One-year warranty. 

• Auto dial/auto answer. 

• Works with any software, 
eluding ST-80 by Micklus. 

• Active clear, break, and "con- 
trol" keys. 

• Half or full duplex, variable word 
length, parity and stop bits. 

• Dial from phone, keyboard, or 
memory. 

• Works with or without Model I 
expansion Interface. 

• Works with or without Model III 
RS-232 card. 

• Can be placed on either side of 
Model III. 

• No tools needed to install. 

No other modem gives you so much 
in a single package. And when you 
compare the LYNX price with the to- 
tal cost of bringing any other modem 
on line, it could save you OVER $1 00! 
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Consult your local microcomputer retailer, or call one of these LYNX handlers today— TOLL FREE: 



ADVENTURE INTERNATIONAL 
Longwood, FL 
800/327-7172 

THE PROGRAM STORE 
Washington, DC 
800/424-2738 

• See List ol Advertisers on page 402 



ADVANCED COMPUTER PRODUCTS 

Irvine, CA 

800/854-8241 

STEVENS RADIO SHACK 
Phoenixvilte, PA 
800/345-6279 



TSE HARDSIDE 
Milford, NH 
800/258-1790 

SIMUTEK 
Tucson, AZ 
800/528-1149 



COMPUTER PLUS 
Littleton, MA 
800/343-8124 

PROGRAMS UNLIMITED 
Jericho, NY 
800/645-6038 
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Encyclopedia for the TRS80* 

What's the key to getting the most from your 
TRS-80*? No, it isn't disk drives or printers or joy- 
sticks. It's information. Without a continual sup- 
ply of information and ideas, you cannot realize 
the full potential of the TRS-80*. 

Our response to the clamor for additional infor- 
mation is the Encyclopedia for the TRS-80*, a ten- 
volume reference work of programs and articles 
carefully selected to help you make the most of 
your microcomputer. You can consider the 
volumes of the Encyclopedia to be an extension of 
the documentation that came with your TRS-80* 
Each book is full of material on programming 
techniques, business, language, hardware, games, 
tutorials, education, utilities and interfacing. 

Unlike conventional encyclopedias, the 
Encyclopedia for the TRS-80* will never become 
stale or out of date. That's because the volumes of 
the Encyclopedia are being issued one-at-a-time, 
approximately six weeks apart. This means that 
each new volume will reflect the latest develop- 
ments and discoveries, making this a living ency- 
clopedia for TRS-80* users. 

The first four volumes are being issued during 
1981. The remaining volumes will be issued during 
the first half of 1982. The deluxe COLLECTOR'S 
EDITION has a handsome green and black hard 
cover with a dust jacket. 
A soft cover edition is also available. 

DEALERS Please request discount information 
and catalog when ordering. Mail Dealer orders 
ATT: Wayne Green Books Dealer Sales. 

WAYNE GREEN BOOKS 

A division of Wayne Creen Inc j 

Pine Street 
Peterborough. NH 03458 
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Encyclopedia Loader 

The editors at Wayne Green Books want to help 
you use the programs in your Encyclopedia for the 
TRS-80*. So to help you maximize the use of your 
microcomputing time, we created Encyclopedia 
Loader™. 

By a special arrangement with Instant Soft 
ware™, Wayne Green Books can now provide you 
with selected programs contained in each volume 
of the Encyclopedia tor the TRS-80* on a special 
series of cassettes called Encyclopedia Loader™. 
Your encyclopedia provides the essential docu- 
mentation but now you'll be able to load the pro- 
grams instantly. 

With Encyclopedia Loader™ you'll save hours 
of keyboard time and eliminate the aggravating 
search for typos. 

Save money with this introductory offer 
Encyclopedia Loader™ for Volume 1 of 
Encyclopedia for the TRS-80* which will normal- 
ly cost $1 4.95 is available for a limited time only at 
the introductory price of $12.95. 

To order specify EL8001 $12.95 



The Encyclopedia for the TRS-80 
is a Wayne Green publication 
Encyclopedia loader is manutac 
tured by Instant Software, a 
division of Wayne Creen Inc 
* TRS-80 is a trademark of Radio 
Shack division of Tandy Corp 
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SPECIAL OFFER 




If you order the entire 
ten volume set of the 
Encyclopedia for the 
TRS-80,* you'll receive 
the tenth volume FREE! 

10 Volume deluxe 
hard cover COLLECTOR'S 
EDITION -a $199.50 value 
$164.00 EN8100 postpaid 

10 Volume soft cover 
edition, a $109.50 value. 
$83.00 EN8080 postpaid 



YES, I want your special offer! 




10 Volume deluxe hard cover 

COLLECTOR'S EDITION-a 
S199 50 value. EN8100 $164.00 

To order single hard cover volumes 
of the Encyclopedia please specify: 



10 Volume soft cover edition 

-a $109 50 value. EN8080$83 00 



To order single soft cover volumes 
of the Encyclopedia please specify: 



>AAII A fOPY OF THIS FORM 
r MAIL A COPY OF THIS FORM 

OR THE CARD PROVIDED TO: 

WAYNE CREEN BOOKS 

SALES DEPT, PINE ST. 

PETERBOROUGH,NH 03458 

OR CALL TOLL FREE 

1-800-258-5473 

To order Encyclopedia Loader™ 

cassettes please specify: 



Volume 1 


EN8101 $19.95* 




Volume 1 


EN8081 $10.95* 


Volume 1 


EL8001 $12.95* 


Volume 2 


EN81 02 $19.95* 




Volume 2 


EN8082 $10.95* 


Volume 2 


EL8O02$14 95* 


Volume 3 


EN8103$19 95* 




Volume 3 


EN8083 $10.95* 


Volume 3 


EL8003 $14.95* 


Volume 4 


EN81 04 $19.95* 




Volume 4 


EN8084$10 95* 


Volume 4 


EL8004 $14.95* 


Volume 5 


EN81 05 $19.95* 




Volume 5 


EN8085$10 95* 


Volume 5 


EL8005 $14.95* 


Volume 6 


EN81 06 $19.95* 




Volume 6 


EN8086$10 95* 


Volume 6 


EL8006$14 95* 


Volume 7 


EN81 07 $19.95* 




Volume 7 


EN8087 $10.95* 


Volume 7 


EL8007$14 95* 


Volume 8 


EN81 08 $19.95* 




Volume 8 


EN8088$10 95* 


Volume 8 


EL8008 $14.95* 


Volume 9 


EN8109$19 95* 




Volume 9 


EN8089 $10.95* 


Volume 9 


EL8009 $14.95* 


Volume 10 


EN8110 $19.95* 




VolumelO 


EN8090 $10.95* 


VolumelO 


EL8010 $14.95* 


PAYMENT ENCLOSED 


PLEASE CHARGE T 


DMY VISA 


MASTERCARL" 
EXPIRE 


) AMFX 


CARD* 




INTERBANK* 


S 


NAMF 


ADDRFSS 


CITY 








STATE 


ZIP 




SIGNATURE 
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TUTORIAL 



Chop and channel some 

machine-code subroutines for more powerful Basic. 



Customized Commands 



Dale W. Rupert 
76 Virginia Ave. 
Bridgeport, CT 06610 



Every machine code utility, 
in a sense, customizes your 
computer. I have developed a 
method which increases the 
number of Basic commands and 
functions available to you in 
your Level II or Disk Basic ma- 
chine. These functions are ma- 
chine code subroutines. They 
are called by commands which 
are recognized but not utilized 
by the Level II Basic interpreter. 

Some Background 

A major advantage of ma- 
chine language routines, aside 
from their speed, is their per- 
manence. Impervious to New 
and CLOAD commands, which 
wipe out a Basic program in an 
instant, machine code pro- 
grams remain protected beyond 
the boundary set up by your re- 
sponse to the memory size 
query. Only an erratic POKE or a 
System tape loaded into the 
same memory locations can al- 
ter your machine code routines. 

With that important distinc- 
tion understood, consider a 
command that would be useful 
in our customized computer— a 

292 • 80 Microcomputing, November 1981 



Merge command. After we have 
loaded or typed in one program, 
this command will adjust some 
pointers. We may then CLOAD a 
second program which is ap- 
pended to the first, rather than 
overwriting it. Once the second 
program is loaded, the Merge 
command must readjust a point- 
er before the combined pro- 



grams are run. 

The procedure for merging 
has been clarified in Roger 
Pape's article "Whip File 
Wipeouts" (Kilobaud Microcom- 
puting, July 1979). My machine 
language version of this pro- 
gram is shown in Program 
Listing 1, lines 310-380. The 
comments in the listing explain 



the procedure. 

Once this routine is stored in 
memory, we simply call it rather 
than using the cumbersome 
Basic sequence of PEEKing and 
POKEing to merge two pro- 
grams. 

A New Command 

Before putting the Merge rou- 







00100 


;*** CUSTOMIZED 


COMMANDS: MERGE 


ROUTINE ****** 








00110 


; DALE W. RUPERT 07/06/80 










00120 


1 














00130 


;THIS PROGRAM ALLOWS THE USE OF 


THE MERGE COMMAND 






00140 


;IN LEVEL II BASIC. 










00150 


f 














00160 


;T0 MERGE TWO BASIC PRGMS.: 










00170 


; 


1 ) HAVE 


FIRST PRGM. IN MEMORY 








00180 


; 


2) TYPE 


MERGE (ENTER) 










00190 


; 


3) CLOAD SECOND PRGM. 










00200 


J 


4) TYPE 


MERGE2 (ENTER) 










00210 


•THE TWO PRGMS. 


ARE NOW ONE. 










00220 


» 










7F02 




00230 




ORG 


7F02H 


;S. A. -32514 








00235 






; CHANGE 


LINE 240 TO RELOCATE 


7F02 


210B7F 


00240 


PATCH 


LD 


HL,START 


; PATCH TO START 




7F05 


228C41 


00250 




LD 


(418CH) ,HL 


; MERGE VECTOR 




7F08 


C37200 


00260 
00270 


. 


JP 


0072H 


;TO BASIC 




7F0P 


7E 


00280 


START 


LD 


A,(HL) 


;GET ARGUMENT 




7F0C 


B7 


00290 




OR 


A 


;SET FLAGS 




7F0D 


200B 


00300 
00305 


• 


JR 


NZ.MERGE2 


;ARG. <> 




7F0F 


2AF940 


00310 


MERGE 


LD 


HL,(40F9H) 


;NEXT LINE PTR. 




7F12 


2B 


00320 




DEC 


HL 


; SUBTRACT 2 ... 




7F13 


2B 


00330 




DEC 


HL 


»... FROM IT 




7F14 


22A440 


00340 




LD 


(40A4H) ,HL 


;INTO FIRST LINE 


PTR. 


7P17 


C37200 


00350 
00355 


1 


JP 


0072H 


;BACK TO BASIC 




7F1A 


21E942 


00360 


MERGE2 


LD 


HL,42E9H 


; NORMAL 1ST LINE 


ADDR. 


7F1D 


22A440 


00370 




LD 


(40A4H) ,HL 


ilNTO 1ST LINE PTR. 


7F20 


C37200 


00380 




JP 


0072H 


fBACK TO BASIC 




0000 




00390 




END 
















Program Listing 1. 







MODEL II 




BUY 
DIRECT 



26-4002 

64K 1 Drive 

$3297.00 

26 4160 1 Drive Exp $1034.00 

26-4161 2 Drive Exp 1574 00 

26 4162 3 Drive Exp 21 14.00 

26-4150 Hard Drive 1 3994 004- 

26 4151 Hard Drive -2 3144.00 + 

26-4530 Scripsit I! 265.00 

26-4512 Profile II 162.00 

26-451 1 Visicalc II 265.00 

26-4501 Gen Ledger 180.00 

26-4506 Mail List 72.00 

PRINTERS 



DISCOUNT 

TRS-80® 

COMPUTER SPECIALISTS 

CALL US. . . 
SAVE MONEY 




Wo carry the full line of TRS-80 Computers. All 
other software, furniture, and accessories at dis- 
count from catalog price. We stock most items 
to assure you fast delivery and save you money. 

26 1140 Expansion Interlace $249.00 

26 1141 16K Exp. Interface 339.00 

26- 1 1 42 32K Exp. Interface 429.00 

26 11 45 RS232C Board 84.00 

26-1 160/1 Mini Disk Drive 419.00 

26-1563 Scripsit-Disk 79.00 

26 1566 Visicalc 83.00 



PRINTERS* 



CEIITROniCS 
BEST PRICES 

Text Quality Centronics 
739-1 Printer $729.00 



26 1165 Line Printer V 1710.00 

26-1 167 Line Printer VII 360.00 

26-1 166 Line Printer VI 1080.00 

26-1158 Daisy Wheel II 1799.00 

26 1 168 Line Printer VIII 720.00 



Pocket Computer 

26-3501 1.9KP.C $188.00 

26-3503 Cassette IF 45 00 

14 812 Recorder 72.00 

26-3505 Mini Printer 134.00 

WRITE US FOR A 
FREE CATALOG 



THOUSANDS OF SATISFIED CUSTOMERS 



MODEL 




26 1061 4K I $609.00 

26 1062 16K III 849.00 

26 1066 48K III 

W'2 Drives. RS232 2077.00 

COLOR 




26 3001 4K $318.00 

26-3002 16K Ext. Basic. . . . 400.00 
26-3003 32K Ext. Basic. . . 628.00 

26-3010 Color Video 333.00 

26 1206 Recorder 34.00 




ALL POCKET AND COLOR 

COMPUTER SOFTWARE 

SOLD AT DISCOUNT 



1-800-841-0860 Toll Free Order Entry 



(YIJCHD MANAGEMENT SYSTEMS, INC. 



No Taxes on Out Of DOWNTOWN PLAZA SHOPPING CENTER 



State Shipments 

Immediate Shipment 
From Stock on Most Items 



DEPT. #4 

115 C. SECOND AVE. S.W. 
CAIRO, GEORGIA 31728 
(912) 377-7120 Ga. Phone No. & Export 

T»S-80 It • raglitorod trademark of tho Tandy Corp. 



A copy of the manufacturer's war- 
ranty can be obtained free upon 
specific written request to the 
Electronics Department of our 
Coiro. Georgia Retail Store. 



^See List ot Advertisers on page 402 
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tine into memory, consider how 
we might call it. The traditional 
methods use the System com- 
mand or the USR statement. 
Both are satisfactory, but a bet- 
ter way is to use the Merge com- 
mand! 

In Level II, type: MERGE 
(enter). You didn't get a syntax 
error— that means the computer 
recognized the word merge. The 
computer responded to merge 
with an L3 ERROR. Thus, the 
Merge command is built into the 
Basic interpreter, but it is 
interpreted to be a Disk Basic 
command, not used in Level II. 

In Wes Thielke's article, 
"ROM Routines" (80 Microcom- 
puting, February 1980), a table 
of Disk Basic command vectors 
shows that the Merge command 
sends the computer to address 
418BM. The three bytes begin- 
ning at 418BH (C3 2D 01) cause 
the computer to jump to address 
012DH. This jump leads right to 
the L3 Error dead end in Level II 
Basic. If we replace bytes 2DH 
and 01 H with OBH and 7FH, the 
computer jumps to location 
7F0BH whenever it encounters 
the Merge command. Waiting at 
7F0BH is our Merge routine. 

The Merge Routine 

We must first patch our rou- 
tine into the computer's se- 
quence of steps. The Merge rou- 
tine must put address 7F0BH in- 
to locations 418CH and 418DH. 
The location of this routine is ar- 
bitrary; I chose 7F0BH so it 
won't interfere with other rou- 
tines in upper memory. If you 
have a 4K machine, replace 7FH 
with 4FH so your starting ad- 
dress is 4F0BH. 

This patch causesthejumpto 
our routine: 



LD HL.7F0BH 'get our starling address 
LD (418CH),HL 'store it as the Merge 
vector 



Since the Merge routine con- 
sists of two parts, one before 
the CLOAD and one after It, a 
single Merge command won't 
suffice. We must somehow indi- 
cate whether to jump to the first 
or the second part of the routine. 
We could do some POKEing be- 
fore each Merge command, but 
that defeats the idea of cus- 
tomized, built-in routines. 







00100 




CUSTOMIZED COMMANDS ******* 






00110 


; DALE w. 


RUPERT 


87/06/80 








00120 


; 














00130 


; PROGRAM ALLOWS THE USE 


OF CMD0 


THRU CMD7 IN LEVEL II BASIC 






00140 


;T0 CALL UP THE SOUNDS 


OF DENNIS 


KITSZ' BABYBEEP PRGM. 






00150 


;IN '80 


MICROCOMPUTING, 


4/80, P. 


68 






00160 


• 














00170 


} 














00180 


; 










7E30 




00190 
00200 




ORG 


7E30H 






7E30 


21397E 


00210 


PATCH 


LD 


HL,START 


; PATCH TO S.A. 


7E33 


227441 


00220 




LD 


(4174H) 


,HL 


;CMD VECTOR 


7E36 


C37200 


00230 
00240 




JP 


0072H 




;TO BASIC 


7E39 


23 


00250 


START 


INC 


HL 




;NEXT BASIC LOC. 


7E3A 


E5 


00260 




PUSH 


HL 




;SAVE IT 


7E3B 


FE30 


00270 




CP 


30H 




;ARG. < ■0" ? 


7E3D 


FA557E 


00280 




JP 


M,NEXT 




; INVALID ARG. 


7E40 


FE38 


00290 




CP 


38K 




;IS AROASCII"?"? 


7E42 


F2557E 


00300 




JP 


P,NEXT 




;ARG. > 7 


7E45 


D630 


00310 




SUB 


30H 




;GET VALUE 0-7 


7E47 


21577E 


00320 




LD 


HL, TABLE 


; START OP TABLE 


7E4A 


85 


00330 




ADD 


A,L 




;GET TABLE POSITION 


7E4B 


6F 


00340 




LD 


L,A 






7E4C 


5E 


00350 




LD 


E, (HL) 




;GET LSB 


7E4D 


167D 


00360 
00370 




LD 


D,7DH 




; BABYBEEP STARTS AT 7D00H... 
;...SO MSB IS 7DH 


7E4F 


21557E 


00380 




LD 


HL,NEXT 




; RETURN ADDRESS 


7E52 


E5 


00390 




PUSH 


HL 




;SAVE IT 


7E53 


D5 


00400 




PUSH 


DE 




;SET UP INDIRECT.., 


7E54 


C9 


00410 




RET 






;... SUBROUTINE CALL 


7E5S 


El 


00420 


NEXT 


POP 


HL 




t RESTORE BASIC PTR. 


7E56 


C9 


00430 
00400 


; 


RET 






>BACK TO BASIC 


7E57 


00 


00450 


TABLE 


DEFB 


00H 


; PHASER 


(7D00H) 


7E58 


14 


00460 




DEFB 


14H 


i BEEPS 


(7D14H) 


7E59 


34 


00470 




DEFB 


34H 


j DOODLES (7D34H) 


7E5A 


57 


00480 




DEFB 


57H 


;FANPARE (7D57H) 


7E5B 


B8 


00490 




DEFB 


0B8H 


; SIREN 


(7DB8H) 


7E5C 


DF 


00500 




DEFB 


0DFH 


;1 BLOOP (7DDFH) 


7E5D 


ED 


00510 




DEFB 


0EDH 


;1 BLEEP (7DBDH) 


7E5E 


FB 


00520 




DEFB 


0FBH 


; RASPBERRY (7DFBH) 






00530 


j 














00540 


% 










0000 




00550 




END 








00000 TOTAL 


ERRORS 






















Program Listing 2 





Here is one solution. Con- 
sider the command mode state- 
ment: MERGE2. The computer 
first interprets the Merge com- 
mand, and the two is then stored 
in the A register as 32, its ASCII 
code. 

See for Yourself 

To observe this process, us- 
ing T-Bug: 

• Put OBH into 418CH and 7FH 
into 418DH (type M 418C OB 7F); 
typeX. 

• Put a breakpoint at 7F0BH 
(type B 7F0B). 

• Exit to Basic (type J 0072 or 
use the Reset button); clear. 

• Type and enter. MERGE2. The 
computer goes to 418BH then to 
7F0BH. 

• The breakpoint puts you back 
into T-Bug. Type F to replace 
the breakpoint; then type R to 
display the registers. Notice the 
address in the HL register pair. 
(Also note the 32 in the A 
register.) 

• Type M and the HL address to 
see 32H, the ASCII value for two. 



Consequently, if we use 
Merge and Merge2, we can dis- 
tinguish between our first and 
second entries to the routine. 
The following statements deter- 
mine whether or not there is a 
non-blank character, such as 2, 
immediately after the word 
Merge: 

LD A,(HL) get chr. after Merge 

OR A 'set flags 

JR NZ.MERGE2 'if non-blank, jump to 

part two 

'otherwise do part one 

here 

Thus, if nothing follows the 
word Merge, the computer exe- 
cutes part one. If anything, such 
as two, follows the word Merge, 
there Is a branch to part two. The 
complete Merge programs and 
patch are shown in Listing 1. 
You can use T-Bug to make a 
System tape of this program: 

• Use the M command to store 
the program in memory (type M 
7F02, then type the numbers in 
column two of the Listing: 21 OB 
7F22...etc.) 

• Use the command P 7F02 



7F22 7F02 MERGE to make a 
tape. 

The starting addresses for the 
eight sound subroutines in 
Kitsz' program are shown in 
Listing 2. The CMD vector ad- 
dress is 4173H. Listing 2 first 
sets up the patch to our pro- 
gram. It then decodes the argu- 
ment following the CMD, and 
finally calls the appropriate 
subroutine in the Babybeep pro- 
gram. The final return takes us 
back to the Basic program 
which continues from where it 
left off. 

With this and the Baby- 
beep programs in memory, you 
can generate a sound in the 
command mode by entering: 
CMD0. 

Even more useful, you can 
use the CMD command within 
any of your Basic programs. 
This simple program demon- 
strates some of the possibili- 
ties: 



10 PRINT "PHASER" 
20CMDO 
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niDDEm-aa 

THE TRS-80* DATA COMMUNICATIONS SYSTEM FOR THE EIGHTIES 



• Direct connects to your 
home telephone jack 

• Installs in a minute 

• Program swapping mode 
plus terminal mode 

• All software included 




% 



1 *w 






&&> 



•it 



No RS232C interface is 

required 

Lowest price ever 



The MODEM-80 and your TRS-80 Model I Level 2 
disk or tape system make the perfect combination 
to maximize your data communications capabili- 
ties. 

This direct connect, auto dialing/answering 
modem will transmit programs and data between 
MODEM-80 equipped TRS-80 systems. In addition, it 
will transform your computer into a full-function in- 
telligent terminal. And, no RS-232C interface is re- 
quired, so tape-based systems do not need an ex- 
pansion interface. The result is the lowest priced 
data communications system of its type available 
anywhere. 

Program-swapping with your friends is a snap 
with the MODEM-80. Both machine-language and 
BASIC programs can be easily exchanged over the 
telephone line. And, accessing your favorite com- 
puter club bulletin board or any other Bell 103-type 
compatible time-sharing facility is no problem 
either. 

The TRS-80 to TRS-80 software, included with the 
MODEM-80, extends your system's BASIC language 
with 8 new communications-related functions. 
These can be easily incorporated into your own 
BASIC programs allowing, for example, "computer 
vs. computer" competitions. BASIC programs are 
also provided which support disk, tape and memory 
transfer of programs and data, including automatic 
line error detection and re-transmission. This ap- 
proach combines function with flexibility, reliability 
and ease-of-use. 



When operating in the intelligent terminal mode, 
you have over 35 functions from which to choose. 
These include 8 user-definable function keys, baud 
rate selection from 25 to 300, forward and backward 
buffer scrolling, parity control, full and half-duplex 
operation, disk and tape file load and save, auto- 
matic dialing, parallel printer support. . .the list 
goes on and on. 

You can install a MODEM-80 on your system in 
one minute. The ribbon connector plugs into the 
back of your keyboard or expansion interface. 
Power is provided by your computer's power module 
so no additional 110 V outlets are needed. An exten- 
sion cable with standard miniature phone plugs is 
included for direct connection to the telephone line 
and there is even a spare jack to plug in a phone, if 
desired. Since the TRS-80 bus is extended through 
the MODEM-80, you can leave the unit permanently 
connected and still plug in other devices as you ex- 
pand your system. 

The MODEM-80 complete with all software and User 
Guides is only U.S. $219.00** plus U.S. $5.00 for 
shipping, handling and insurance. We accept 
money orders, VISA and MasterCard. The 
MODEM-80 hardware has a 90 day manufacturer's 
warranty. 

INTRODUCING TOMORROW'S 
PRODUCTS— TODAY! 

"Subject to Canadian rate 
of exchange at time of purchase 



•TRS-80 is a 



masiej cfiaige 



TO ORDER CALL 416-923-7961 ANYTIME 

AND ASK FOR ICROM'S ORDER DESK 
S^^ OR WRITE 

ICROM ENTERPRISES LTD. ** 
Y^*\ 1240 BAY ST.— SUITE 505 

■^"* TORONTO, CANADA M5R 2A7 



yy 

^ 




**See List ol Advertisers on page 402 
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Program Listing 3. 








00100 


.*.*•** CUSTOMIZED COMMANDS ******* 






00110 
00120 


» 


DALE W. RUPERT 07/06/80 








00130 


{PROGRAM ALLOWS 


THE USE OF CMDfl 


THRU CMD9 IN BASIC 






00140 


;TO CALL UP THE 


SOUNDS OF DENNIS KITSZ' BABYBEEP PRGM. 






00150 


;IN 


80 MICROCOMPUTING, 4/80, F 


. 68 






00160 


; 












00170 


; SECOND PART OF 


PROGRAM ALLOWS 


THE USE OF CMDA THRU CMDZ 






00180 


;TO CALL UP SUBROUTINES WITH ADDRESSES STORED IN TAB2 . 






00190 


; THE 


ADDRESSES 


ARE STORED WITH 


LSB FIRST AND MSB LAST. 






00200 


; 


FOR EXAMPLE, CMDA WILI 


CALL THE SUBRTN. 






00210 


; 


AT LOC. 7D00H IF 00H IS 


STORED IN (TAB2+0) 






00220 


} 




AND 7DH IS 


STORED IN (TAB2+1) . 






00230 


1 


CMDB CALLS THE SUBRTN. 


WITH ADDRESS STORED 






00240 

00250 


[ 


IN (TAB2+2) AND (TAB2+3) . 






00260 


1 


CMDZ CALLS THE SUBRTN. 


WITH ADDRESS STORED 






00270 
00280 

00290 


1 


IN (TAB2+50) AND (TAB2+51) . 






' 








7E30 




00300 
00310 


} 


ORG 


7E30H 




7E30 


3A7341 


00320 


PATCH LD 


A,(4173H) 


;CMD VECTOR 


7E33 


324A7E 


00330 




LD 


(STORE) , A 


;SAVE IT 


7E36 


2A7441 


00340 




LD 


HL,(4174H) 


j ' 


7E39 


224B7E 


00350 




LD 


(STORE+1) ,HL 




7E3C 


3EC3 


00360 




LD 


A,0C3H 


7 'JP ' 


7E3E 


327341 


00370 




LD 


(4173H) ,A 




7E41 


214D7E 


00380 




LD 


HL, START 




7E44 


227441 


00390 




LD 


(4174H) ,HL 




7E47 


C37200 


00400 
00410 




JP 


0072H 


;BACK TO BASIC 


0003 




00420 

00430 


STORE DEFS 


3 


;OLD VECTOR STORAGE 






00440 


;** DECODE CMD 


THRU CMD 9 


** 






00450 


1 








7E4D 


E5 


00460 


START PUSH 


HL 


;SAVE BASIC POINTER 


7E4E 


D5 


00470 




PUSH 


DE 




7E4F 


F5 


00480 




PUSH 


AF 




7E50 


FE30 


00490 




CP 


30H 


;IS ARG. < m 9"7 


7E52 


F25B7E 


00500 




JP 


P,OK 


;NO. CONTINUE 


7E55 


Fl 


00510 


QUIT 


POP 


AF 


; RESTORE REG'S. 


7E56 


Dl 


00520 




POP 


DE 




7E57 


El 


00530 




POP 


HL 


; RESTORE HL 


7E58 


C34A7E 


00540 




JP 


STORE 


;USE OLD VECTOR 


7E5B 


FE3A 


00550 


OK 


CP 


3 AH 


jIS ARG.>ASCII"9"7 


7E5D 


F26C7E 


00560 




JP 


P,GT9 


»ARG. > 9 


7E60 


D630 


00570 




SUB 


30H 


;GET VALUE 0-9 


7E62 


218F7E 


00580 




LD 


HL, TABLE 


; START OF TABLE 


7E65 


85 


00590 




ADD 


A,L 


;GET TABLE POSITION 


7E66 


6F 


00600 




LD 


L,A 




7E67 


5E 


00610 




LD 


E,(HL) 


;GET LSB 






00620 


7 PUT MSB INTO D REG. IN THE 


NEXT LINE t 


7E68 


167D 


00630 




LD 


D.7DH 


; (BABYBEEP STARTS AT 7D00H) 


7E6A 


1818 


00640 
00641 


; 


JR 


GO 


;SBTRN. ADDR. IN DE 


7E6C 


FE41 


00642 


GT9 


CP 


'A' 


; VALID ARG. 7 


7E6E 


PA557E 


00643 
00644 




JP 


M,QUIT 


;QUIT IF NOT 






00650 


;** DECODE CHD 


A THRU CMD Z 


• * 






00651 


1 












00659 


»*** 


:hange THE 


COMPARISON BYTE 


IN THE NEXT LINE TO EQUAL 


2 *** 












7E71 


FE42 


00660 

00661 


1 


CP 


'B' 


; VALID ARG.? 


7E73 


CA797E 


00662 




JP 


Z,OKl 


;ARG. IS VALID 


7E76 


P2557E 


00670 




JP 


P,QUIT 


/INVALID ARG. 


7E79 


D641 


00680 


OKI 


SUB 


41H 


;GET 0-25 FROM A-Z 


7E7B 


07 


00690 




RLCA 




; DOUBLE IT 


7E7C 


21997E 


00700 




LD 


HL,TAB2 


; START OF TABLE 2 


7E7P 


85 


00710 




ADD 


A,L 


; TABLE POSITION 


7E80 


6F 


00720 




LD 


L,A 


;HL HAS TABLE LOC. 


7E81 


5E 


00730 




LD 


E,(HL) 


;GET LSB 


7E82 


23 


00740 




INC 


HL 




7E83 


56 


00750 
00760 


I 


LD 


D,(HL) 


;GET MSB 


7E84 


218A7E 


00770 


GO 


LD 


HL,NEXT 


; RETURN ADDR. 


7E87 


E5 


00780 




PUSH 


HL 


;SAVE IT 


7E88 


D5 


00790 




PUSH 


DE 


j SET UP INDIRECT... 


7E89 


C9 


00800 




RET 




; . . . SUBROUTINE CALL 


7E8A 


Fl 


00810 


NEXT 


POP 


AF 


.•RESTORE REGS. 


7E8B 


Dl 


00820 




POP 


DE 




7E8C 


El 


00830 




POP 


HL 


/RESTORE BASIC POINTER 


7E8D 


23 


00840 




INC 


HL 


;NEXT LOCATION 


7E8E 


C9 


00850 
00860 


I 


RET 




;BACK TO BASIC 






00870 


,.** 


USE THIS 


TABLE FOR SUBRTNS. IN SAME PAGE OF MEMORY *** 






00880 


; 


TABLE STORES LSB : D REG, CONTAINS MSB (7DH) 






00890 


; 








7E8F 


00 


00900 


TABLE DEFB 


00H ; PHASER CMD0 


7E96 


14 


00910 




DEFB 


14H ; BEEPS 


CMD1 

Program continues 
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30 PRINT "SOME OTHER SOUNDS": 

CMD1:CMD2:CMD3 
40 CMD7 : PRINT "HOW'S THAT!!!" 



Total Flexibility 

Two shortcomings of the pre- 
vious program are: the eight 
decoded arguments are already 
used, and all the addresses 
must be in the same page of 
memory, that is, the most signif- 
icant byte of each address is the 
same (7DH). 

One final modification of the 
argument-decoding and table- 
lookup scheme will make this 
program even more useful. If all 
of our machine language sub- 
routines are not in the same 
page of memory, we need a two- 
byte address table to locate 
them. Listing 3 allows us to 
create such a table. Fur- 
thermore, this program may be 
used with Disk Basic. 

This program decodes argu- 
ments 0-9 (used with the 
Babybeep subroutine) and argu- 
ments A-Z. For arguments A-Z, 
the program calls the subrou- 
tine identified by the two-byte 
address in the second table 
(TAB2). For the example shown 
in Listing 3, CMDA calls the sub- 
routine at 7D00H, and CMDB 
calls the subroutine at 7D14H. 
After executing the subroutine, 
the computer jumps back to 
Basic for the rest of the pro- 
gram. 

The Inner Workings 

Let's take a brief look at 
Listing 3. First read the com- 
ments and get an overall view 
of it. 

Decoding arguments A-Z be- 
gins at line 650. A is stored as an 

ASCII 41, Bis 42 andZis5A 

with all numbers in hexadeci- 
mal. Subtracting 41 H from each 
value gives a range from 0-19H, 
or 0-25 in decimal. Doubling this 
result (line 690) allows two 
places in the table for each argu- 
ment's address. Thus, positions 
zero and one correspond to A, 

two and three are for B and 

50 and 51 belong to argument Z. 

After adding the table's start- 
ing address to the argument's 
value (line 710), the program 
puts the least significant byte 
(LSB), then the most significant 
byte (MSB), into the DE register 
pair. 



ELECTRIC SPREADSHEET 



NEW Considering VlslCalc™? 

ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run. Results appear 
on the screen, formatted for your printer. Revise. Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen. Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P/L forecast. Personal 
budget. Real estate investment. Net worth forecast. 
Invoice. Cash flow estimate. Sales analysis. Check record 
Business forms. 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34.95 

32/48K Model I or III Tape $64.95 

48K Model III Disk $67.95 

YOU CAN'T LOSE! Calif, orders add 6'/2% tax. 

VisiCalc is a trade mark of Personal Software, Inc. 



Dan G. Haney & Associates, Inc.^oi 
P.O. Box 687. San Mateo. CA 94401 
(415) 493-4094 
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NOW. . .Continuous Checks 

That Can be Used With or Without Your Computer!.' 
The Best in A Home Checking System 



That's right Continuous Checks fan-folded in 
a 3-io-a-page desk set design. And they can be 
computer printed, handwritten or typewritten 
— whichever suits the quantity or situation. 

SPECIAL DESIGN 
Our checks are not a high-volume business 
form adaptation. They're specially designed 
Computer/Manual Checks for the home 
user. And they're easy to use. too No need to 
change printer form width when loading. Our 
checks are the same 9V4" widlh as standard 
tractor feed printer paper Check tear down 
size is the same as the classic personal-sized 
check issued by all banks. 

COMPLETE HOME SYSTEM 
With this system you can print the bulk of your 
monthly checks on your computer using our 
program. Your checks and stubs can then be 
stored in our attractive Data Ring Binder 
Checkbook. Later, if you have a few checks to 
write, there's no need to load them into a 
printer - just write a check at your desk as 
shown above And you can mail your checks in 
our dual windowed envelopes to eliminate 
addressing chores. 

UNIQUE 
You won't find continuous checks like these 
anywhere. And. our special small quantity 
pr i nti ng process wi 1 1 give you excellent quality 
and appearance Standard color-coordinated 
imprinting and encoding is as shown above 



i be omitted! on blue. grey, green, or 



buff checks PR|CEDR|QHT 

Two Hundred checks are just $29.95 (enve- 
lopes $14.95) Five Hundred checks are 
•49.95 (envelopes $27 951 Oata Ring Check- 
books are only $4.95. 

Special "ORDER NOW" Offer 
So that you can start using your computer 
immediately to pay your monthly bills, we'll 
make you a special package offer If you order 
directly from this ad. we can send you 

200 Checks. 100 Envelopes. A Binder, 

and Program for $49.95 

- OR - 

500 Checks. 300 Envelopes. A Binder. 

and Program for $74 95 

You II save as much as $9.85 over the 
separate purchase price And with the special 
package you can begin your monthly check- 
book balancing and bill paying as soon as you 
receive your checks Just enclose a voided 
check (lor encoding information) with your 
payment (VISA - MasterCard orders must 
show signature, expiration date, and account 
number) Or. send today for samples 

SYNERGETIC 471 5 shepherd ro 
SOLUTIONS Mu f 8 P E A B R B T Y M FL NT 3 3860 

PHONE: (81 3) 646-6557 MULBERRY. tl_ 33860 



TRS-80 OWNERS 
— T REJOICE! 




Our professional quality software 
development toots lei you program 
your TRS-80 with more ease end 
ver than you ever imagined possi 
. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 
They have been specially designed to 
enhance the BASIC and ASSEMBLER 
programming languages Oar 
assemblers provide fuM screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
wtth the finest and most extensive 
documentation in the industry ill 
you wil see why programming a 
TRS-80 Is now better than ever 



T ZAl: TAPt BASEO aSSEMBLER Assem- 

We ti mmmi ar tape. CruM retecataDM 
SYSTEM latest ladedas rattening 10A0ER 

. 8 ckaracser syMbets wtti XMTF 

i*des M <Jtsh «rhe«i yoe do! 
HI*. 3 Cat i* 12SO-2I I 41.15 

FIU SCREEN PROGRAM TEXT EDITORS: 
Al CAU I* SCWM afters Upper! Mux way 
cuser molten mi scraiiffg <■*■ tsar seMc 
UMt auto raptat Ml scran speeds. Total* 
vliMl cfcaracter Insert delete, and cnanfo. 
Hack nova cap, delate Gfcfcai fend aad 
cnenge. Editar far MSlC Use prandes 
automatic Una reaueieerini a a* 21 uter- 
datiMbtt macra hays. 
Far Taaa and Disk BASIC: 
Mad 1 CM » 1010-20 S24.B5 
Mad 3 Cat « 1210-21 S2I.9B 
For Mad 1 EOTASM taarca Mat: 
Tape Cat a 1110 30 S24JB 
Disk CM « 1010-31 S34.SS 
tant <nc !»•»*■ aa uaa • 



M ZAl: "•' OISK EDITOR/ ASSEMBLER: 
Medaiar AsseenbMr Language deraMpinent 
system indudes kid screea lert orttor muBi- 
pats issamtiar, and cbtoct medete linker. 
ABown 6 duradar symbeis tax) aaurca Ma 
enmntag/neskng wPJi •INCLUDE and FtM 
sdpeort Mr rattcatton Mi giaBM syrrwoM 
SymtiM tsMa wall cross reference Raq 32K 
Oask systaaj 

Mod 1 CM • 1B5I-1I SI4I.B0 
Mod 3 Cat • 1250-10 S14I.N 

XBU6 DEBUGGING TOOL & MONITOR 

Display - M eddy neemery and rags SM ap M 
10 MtrkuMe and transparent breMpmnti. 
Malt-speed smgM stap. lead/ Copy 'Create 
upas Usas only 2 5K and cm be 
dyniMcaBy ratoceted to My address 
Mad 1 Cat * 1020-10 S1I.I5 
Mad 3 CM « 1220-10 SII.B5 
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N.Y State rastdMtt add appncabM uMa tsi. 
Dealer (nguaies ImnfUd. 
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Program continued 














7E91 


34 


00920 




DEFB 


34H 


DOODLES 


CMD 2 


7E92 


57 


00930 




DEFB 


57H 


FANFARE 


CMD 3 


7E93 


B8 


00940 




DEFB 


0B8H 


SIREN 


CMD 4 


7E94 


DF 


00950 




DEFB 


0DFH 


1 BLOOP 


CMD 5 


7E95 


ED 


00960 




DEFB 


0EDH 


1 BLEEP 


CMD6 


7E96 


FB 


00970 




DEFB 


0FBH 


RASPBERRY 


CMD7 


7E97 


00 


00980 




DEFB 


00H 


PHASER 


CMD 8 


7E98 


00 


00990 
01000 




DEFB 


00H 


PHASER 


CMD9 






01010 


•TAB2 


STORES 


LSD THEN MSB OF ADDRESS 






01020 


; 










7E99 


00 


01030 


TAB 2 


DEFB 


00H 


LSB CMD 


A 


7E9A 


7D 


01040 




DEFB 


7DH 


MSB 




7E9B 


14 


01050 




DEFB 


14H 


LSB CMD 


B 


7E9C 


7D 


01060 
01070 




DEFB 


7DH 


MSB 








01080 


; EXTEND THIS 


TABLE AS NEEDED FOR MORE SUBRTN. ADDRESSES 






01090 


; 










7E30 




01100 




END 


PATCH 


STARTING ADDRESS IS 'PATCH' 



An Underhanded Call 

The section labeled Go is the 
least straightforward part of the 
program. We have the address 
of the subroutine to be called in 
DE. Unfortunately, there is no 
CALL (DE) command for the 
Z-80. But the solution is not dif- 
ficult: Put the DE address onto 
the stack (PUSH DE), then exe- 
cute a return statement. 

Consider what the return 
statement does. It POPs the 
two-byte address from the top of 
the stack into the program 
counter, and the computer 
jumps to that address. But once 
we've gone to the subroutine, 
how do we get back? 

A normal Call would PUSH 
the return address onto the 
stack before jumping to the 
subroutine. Now we must do 
that. 

In line 780, we PUSHed the ad- 
dress labeled Next onto the 
stack. In the meantime, the DE 
address has been PUSHed and 
POPped, so the Next address is 
now on top of the stack. The 
return statement in the called 
subroutine POPs the Next ad- 
dress and jumps back to the 
calling program. 

Finally, the Basic pointer, 
which we PUSHed in line 460, is 
restored to the HL registers and 
the other registers are restored. 
The final return statement 
jumps back to Basic. 

I normally load this program 
when I first start up the comput- 
er. Answer the memory size 
question with 32513 (7F01H) or 
less. Type and enter: SYSTEM 
and MERGE. Once the program 
is loaded, type and enter "/". The 
first part of the program im- 



mediately loads the patch and 
returns to Basic. 

Now whenever you wish to 
merge two Basic programs fol- 
low this simple procedure: 

• Have the first program in 
memory. 

• Type and enter: MERGE. The 
ready signal quickly appears. 

• Type and enter: CLOAD to 
load the second program. 

• Type and enter: MERGE2 
when it is done loading. 

Now your two programs are 
one. Note that the line numbers 
of the second program must be 
higher than those of the first 
program. 

We have created a new com- 
mand for our computer. Once its 
code is in memory, you may use 
it as any other command. This 
routine is so simple and so use- 
ful, you will wonder why it was 
not part of the original com- 
mands. 

Adding Versatility 

The simple decoding scheme 
in the Merge routine allowed on- 
ly two subprograms to be distin- 
guished. A more selective meth- 
od for decoding the argument 
would greatly enhance our use 
of the built-in Disk Basic com- 
mands. For example, we could 
use the CMD command with a 
one-character argument (CMD3, 
CMDF, and so forth) to call 36 
different subroutines (0-9 and 
A-Z). 

As an example, we will use 
the CMD command to call up 
various sound-generating sub- 
routines. Dennis Kitsz' article, 
"Babybeep" (60 Microcomput- 
ing, April 1980) tells how the 
TRS-80 can produce a variety of 



sounds. By using Kitsz' sound 
subroutines along with the 
customizing methods in this ar- 
ticle, we will be able to produce 
a phaser sound as easily as typ- 
ing CMDO. 

Make It Work 

I suggest you put Babybeep 
into memory from 7D00H to 
7E2FH. Then enter Listing 3 into 
locations 7E30H to 7E9CH. To 
make a System tape with T-Bug, 
type: P 7D00 7E9C 7E30 
CUSTOM. Use memory size 
31999. 

You later change the values in 
TAB2 to call your own custom 
commands. As written, CMDA 
and CMDB generate the phaser 
(7D00H) and beeps (7D14H) re- 



spectively. 

For readers who are not as- 
sembly language enthusiasts, I 
have included Basic programs 
in Listing 4. These may be used 
in Level II only, not Disk Basic. 
They POKE the Merge routine 
(Listing 4a) and the CMD 0-7 
routine (Listing 4b) into memory. 
Once the Basic programs are 
run, they delete themselves. The 
routines remain in protected 
memory, however, until the 
power is shut off. 

A Challenge 

This article has developed a 
procedure that creates addi- 
tional Basic commands and 
functions. The format of Listing 
3 may be used in either Level II 
or Disk Basic. There are also 
many other Disk Basic com- 
mands available. 

You could further customize 
your TRS-80 with a screen-fill 
command, a decimal/hex con- 
verter, a pause command, a reg- 
ister display command, a search 
function. 

You could also write routines 
which manipulate, rather than 
merely decode, the arguments. 
How about a memory dump 
called by CMD D 4200,4500, for 
example? Or CMD V 2,8 which 
clears lines 2-8 of the screen? 

You are no longer limited to 
the Level II Basic commands! ■ 



1 '*•* CUSTOMIZED COMMANDS **• 

4 f 

5 ' MERGE ROUTINE: MEM. SIZE? 32522 (OR LESS) 

6 ' 

10 POKE 16780.11: POKE ] 67 81, 127 'PATCH 
15 FOR M-32523 TO 32546: READ B: POKE M,B: NEXT 
20 DATA 126,133,32,11,42,249,64,43,43,34,164,64 
25 DATA 195,114,0,33,233,66,34,164,64,195,114,0 
30 DELETE 1-30 

Program Listing 4. 



'*** CUSTOMIZED COMMANDS *** 

i 

'LEVEL II BASIC VERSION CF LISTING 2: CMD0-CMD7 
' YOU MUST HAVE BABYBEEP IN MEMORY 
BEFORE USING CMD0 THRU CMD7 



10 POKE 16756,57: POKE 16757,126 'PATCH 
15 FOR M-32304 TO 32350: READ B: POKE M,B: NEXT 
20 DATA 33,57,126,34,116,65,195,114,0,35,229,254 
25 DATA 48,250,85,126,254,56,242,85,126,214,48 
30 DATA 33,87,126,133,111,94,22,125,33,85,126,229 
35 DATA 213,201,225,201,0,20,52,87,184,223,237,251 
40 DELETE 1-40 

Program Listing 4a. 
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PORTFOLIO MANAGER 
TRS-80 

FOR COMPLETE PORTFOLIO MANAGEMENT: 

• Fast!!! Auto-Retrieval Of Market Quotes 

• Instant Updating Of One Or More Portfolios 

• Handle Any Combination of Stocks, Options, 
Warrants, Bonds, or Mutual Funds 

(Long and Short Positions) 

• Printed Analysis of Each Position to Show: 

• Current Market Value 

• Value Change from Previous Day 

• Current Gain or Loss 

• Listing of All Quotes Retrieved 

• History File to Maintain Detail Record of All 
Closed Positions 

Please send more information about 
PORTFOLIO MANAGER to: 

Name 



T.M. 



Address- 
City 



State. 



.Zip. 



Mail to: 

Market Management Systems ^593 
P.O. Box 40049 
1080 Madison Avenue 
Memphis. TN 38104 

Or Call Toll Free 1-800-238-7626 
(In Tennessee 1 901-527-8262) 



GOSUB 



GOSUB'S MX80/70 FRICTION FEED KIT 
ONLY $49.95 ppd 

The Gosub MX80770 Friction Feed Kit for the Epson MX80 

printer will give you complete paper control. 

You get easy to follow instructions and all parts necessary 

to give your epson friction feed capabilities. 

No drilling and it installs in about 15 minutes. 

Money back guarantee if not satisfied. 

PLUS: 

• USe SINGLE SHEET PAPER 

• USE INEXPENSIVE ROLL PAPER 

• USE YOUR OWN LETTER HEAD 

• FREE PAPER ROLL RACK INCLUDED WITH KIT 

• DOES NOT AFFECT PINFEED USE 



PRINTERS: EPSON MX80. $515 

STRATEGY SIMULATIONS 
MERCENARY FORCE 

Command a mercenary 
army. Decide the number of 
men, type of weapons, 
armor, air support, medical 
aid and transports. Battle 
the enemy In jungles, 
underwater, on moons and 
In space. (1-4 players) 
TRS-«0 L2 16K 416.95 



EPSON MX100.W50 

FOR THE TRS-80 
SPACE MERCHANT 

Build an Empire in the 
stars. Choose your cargo, 
means of shipping, and 
security. Risk pirates, ion 
storms, engine failure and 
other hazards while you try 
to become a Space 
Merchant. (1-6 players) 
TRS-60 L2/16K $9.85 



KANSAS M S ADO 3% SAIIS IAX (1RS<0 IS A TRADEMARK Of TAND> CORP I 

All PRICf S SUBIICI TO CMANCi WltHOUT NOTKl fRff CA1AIOC UPON RIQUfST 

^■^■k^ SI ND CHICK OR MONEY OIDIt TO: 

■i GOSUB 

P.O. BOX 275-C (316) 265-9992 
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WICHITA, KS 67201 




STOCKCHART - 

MORE THAN JUST A COMPUTER PROGRAM 

IT'S AN INVESTMENT TOOL 



•written for TRS-80" model-l 
•requires 16K RAM for cassette. 32K 
RAM & 1-drive for disk version 
• printer option 

•disk version $50.00 

•cassette version $30.00 

to order, send check, money order, or COD 
to: 



M 



I*US^ Micro-Investment Software 
1 I 9621 Bowia Wsy 
■TA Stockton, CA. 95209 ^ ^ 



APPLE II" & ATARI-800' version available 
soon, write for more information 

'TU ol Tandy Corp Apple Computet Alan 'eipeclively 



•i iPi. 



I i' 



i.i ! ! ii 



till 1 !. 



,!!(! 



•in" 



if 



• generate price-chart from HIGH, LOW. & 
CLOSE PRICES 

• price-trend analysis assist investors in 
BUY/SELL decision 

• auto scaling for price-chart generation 

• accept fractions, allow users to enter 
prices as appear in newspapers 

• SPLIT routine to adjust prices for stock 
split 

• EDIT capability for users to change 
price data 

• STATUS mode to display price-trend 
signals 

• PURGE utility to delete unwanted data 
from disk (disk version only) 



GET THE PRICE - TREND PICTURE 



WITH 



STOCKCHART - I 



DEALERS INQUIRIES INVITED 



•See List ol Advertisers on page 402 
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TUTORIAL 



Some tips on remaining so when in the mode. 



In Command 



Jerry Rut/edge 

Box 123 

Waseca, MN 56093 



How powerful a tool can the 
command mode be? Re- 
cently I was writing a program 
that would be used only one 
time. It involved two different 
lists of 275 insurance agents (by 
four digit agent code numbers, 
like 1473). Some agents ap- 
peared on both lists and on one 
of the lists, some agents ap- 
peared as many as three times. 

The idea was to sort through 
the two lists and delete all of 
the numbers that appeared 
more than once and find out 
who on the second list was not 
on the first list. Since the lists 
were not in numerical order, I 
figured it would be quicker to 
write a short program and input 
all 550 numbers into data 
statements than attempt to go 
through the lists manually. 

It would have been, too, ex- 
cept that my novice program- 
ming ability got in the way. 
When you're writing your own 
sorting or comparing program, 
the TRS-80 is not the fastest 
computer in the world. Con- 
sider that this program was 
comparing one array of 275 
elements with another of equal 
size. That means between 
50,000 and 75,000 compari- 
sons—a process that took 
about an hour. 

The sort went without a 
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hitch, and as I sat waiting for 
the printer to begin the final 
printout, there suddenly ap- 
peared on the screen one of 
those ghastly, dreaded error 
messages: 

SUBSCRIPT OUT OF RANGE IN 2840 

I made three attempts to detect 
where I had gone wrong in 
dimensioning those arrays. 
Each re-run meant a one hour 
wait for that dismal sort, and 
each time the same error 
message happened. When It 
appeared the third time, I did 
not immediately return to the 
edit mode to look at line 2640 
again. Had the computer done 
the sort properly? Were the new 
arrays loaded properly after all 
of those doubled up numbers 
had been deleted? Why not ask 
and see? So I entered: PRINT 
A(275).5260. Voila! There it was 
just waiting to be printed out. If 
the computer will print on the 
screen in command mode, why 
won't It LPRINT the same way? 
Well, it will: LPRINT A(275). And 
sure enough, the printer clacked 
out 5260. 

Thoroughly frustrated at this 
point, I figured nothing could 
be worse than sitting through 
another sort, so I began 
LPRINTA(1), then LPRINTA(2), 
etc. After typing that command 
about five times another thought 
struck me: Would the command 
mode respond to a For. . . Next 
statement and multiple com- 
mands? Only one way to find out: 
FOR X = 1 TO 10:LPRINTA(X): 



NEXT X. Sure enough, out came 
the first 10 numbers. The rest 
was easy. 

Since some of the array 
elements were equal to zero 
(their numbers having been 
deleted in the sorting process) I 
did not want to print those. I 
also wanted the list numbered 
so I didn't have to count the 
printed lists. Could all that be 
done In one set of command 
mode statements? You 
bet . . . here's how It looked: 



C-1: FORX-1T0275: IFA0Q-OTHEN- 
NEXT X ELSELPRINTC,".";A(X):C = C+1: 
NEXTX 



In less than two minutes I 
had my listing that I had been 
sweating for over four hours. It 
took about 30 seconds more to 
rewrite the command to print 
out array B, and another two 
minutes to print it. 

I quickly typed New to wipe 
out any lingering memory of the 
experience. Later, mellowed by 
a couple of cans of beer, it oc- 
curred to me that it had been a 
valuable learning experience. 
Almost any string of com- 
mands can be used in the com- 
mand mode provided they don't 
exceed the 256 byte limit. 

Beware of the Edit Mode 

Like all good things, there is 
a caveat and a limit to using a 
trick like this. There are at least 
two Level II situations where 
your '80 will set all of your 
stored variables back to zero. 
One is when you type Run and 



begin a program, and the other 
is when you execute into the 
edit mode. 

Thus, if you are running a 
program which crashes on an 
error where your computer 
automatically puts you in the 
edit mode (such as a syntax 
error), your variables are auto- 
matically set back to zero and 
this trick will not work. 

A Fix 

If you like to hedge, there is a 
simple way to avoid the auto- 
matic execution Into the edit 
mode when errors occur. For ex- 
ample, suppose you have writ- 
ten this simplistic program: 



10 INPUT A.B.C 
20O = A*B*C 

30E-D/C 
40PRINTE 



Take the program listed above 
and change line 40 so there will 
be a syntax error 40 PLINTE. 
Now run the program. There's the 
syntax error, big as life, and 
you're left in the edit mode on 
line 40. Hit Enter so that you are 
back In the command mode 
and see what happens when 
you ask: PRINT E. 1. See, you've 
lost everything, right? Now add 
the following two tines to your 
program: 



S ON ERROR GOTO 1000 

1000 PRINT-ERROR" 

(Enter and Run) 

RUN 

f 2.3.4 

ERROR 

NO RESUME IN 1000 



ATTENTION 
COMPARISON SHOPPERS 

HOW DOES A $299 BYTEWRITER-1 
STACK UP AGAINST A $650 EPSON MX-80? 

YOU DECIDE! 



FEATURES 



BYTEWRITER-1 



EPSON MX-80* 



The Only 80 Column Dot 

Matrix Printer Under $300. 

Why do we dare to compare the 
Bytewriter-1 to the Epson MX-80, 
the industry leader? Because we 
feel strongly that dollar for dollar, 
the Bytewriter-1 is tough to beat for 
performance and quality. 

Our extensive testing has proved 
that the Bytewriter-1 interfaces 
problem-free to the TRS-80, the 
Apple II and the Atari 400 and 800. 

We are not going to tell you that the 
Bytewriter-1 is better than the 
MX-80, but by comparison, and for 
half the cost, you get more than a 
reliable printer — you get a great 
value. 

Call or write for more information 
today. 

Comparable features. 
Uncomparable price. 






MICROTEK** "* 

9514 Chesapeake Drive 
San Diego, CA 92123 
(714) 278-0633 
Outside CA call 
TOLL FREE (800) 854-1081 

TWX. 910-335-1269 



TRS-80 is a trodemark of Radio Shock, Dtv 

of Tandy Corp. 
Apple II is a trademark of Apple Computer, 

Inc. 
Atari 400 & 800 are trademarks 

of Atari, Inc. 



Print speed 60 lines per minute 



Friction feed 
original plus 3 copies 




Block, cartridge $9.95 



Life 
expectancy 



Dimensions 



Character 
set 

Interface 



Printhead — 100 million char. 
Drive Mech. — 10 million char. 
Ribbon •— 5 million char. 



3.8" x 15" x 9" 



96 ASCII 



Parallel 



Warranty 



90 days 



Printhead 
replacement 



46 lines per minute 

Pinfeed 

original plus 2 copies 



Black, cartridge $14.00 



50 — 100 million char. 
5 million char. 
3 million char. 




Now you know that there was 
an error in your program and 
you have also created a No 
Resume error in line 1000. But 
note that this error has not 
automatically put you back in 
the edit mode. 

Now try the command, Print 
E (or D, A or any of the other 
variables), and there they are. 
Note that the PrinfError" line 
must be the last line of your 
program. Even adding the word 
End to line 1000 will put you 
back in the edit mode! 

You're probably saying to 
yourself at this point, "That's 
fine for a small program like 
this one, but if my program has 
250 lines in it and there is an 
error, how would I know if 
enough of the program has ex- 
ecuted that I could retrieve all 
the variables in the command 
mode?" Good question. And 
there is an answer. 

In your Level II Reference 
Manual there are two error- 
routine functions, ERR and 
ERL, and up to now they looked 
to me like interesting but 



relatively useless functions. 
ERL returns the line number in 
which the error occurred and 
ERR returns the code number 
of the error. So, let's change 
line 1000 to read: 



1000 PRINT-ERROR LINE";ERL;" ER- 
ROR CODE";ERR/2 + 1 
(Run) 
? 2,3,4 

ERROR LINE 40 ERROR CODE 2 
NO RESUME IN 1000 



And there you have it, a syntax 
error in line 40 without being 
dropped into the edit mode 
(look up the error code number 
in the Appendix). In Disk Basic 
there may be a way of printing 
out the actual error message 
using the Error function 
described on page 7-6 of the 
Disk Manual, but so far it has 
eluded me. 

At any rate, perhaps you 
have discovered some ideas for 
different ways to use the com- 
mand mode. If you're lucky, you 
may never need to use them, 
but there is a lot of power there 
at your fingertips. ■ 



MAKE YOUR WORD PROCESSOR DO 
THE THINGS YOU BOUGHT IT TO DO 



8CRIP8IT LAZYWRITER 

YOU LIKE WHAT THEY DO! NOW. 



ELECTRIC PENCIL 

. make tham do •van mora! 



AUTO-WRITER: the ultimate typing aid for the computer 

for: SALES MANAGERS: heap a customer list (by lalesm.n) 
SECRETARIES: sand out customized form letters 
BOOKKEEPERS: prepare reports for the boas 
WRITERS: maintain, organize and sort bibliographies 
B OS SE S : create reports end sort data f ilea 
CLUB REPORTERS: mail out the news latter 
OFFICE MANAGERS: take the load off the MINI 

OUR EXTENSIVE DOCUMENTATION BHOWB VOU HOW VOU CAM 

• Use YOUR WOROPROCE8SOR to create and maintain a mailing list or 
any data esse. 

• Join that mailing list to a form-letter with a wide range of options. 

• Sort your Name S Address files by any key, even whan the last name or 
zip coda are buried in a line! 

• Sort 1000 "NAMES". Use up to 20 items par name. 

• Insert into the test of e form-letter or report command lines thet will 
change the printing format from one line to the next ... in mid 
run. . .EVEN WHEN USING ELECTRIC PENCIL TO CREATE YOUR 
FILES) 

• Uaa the built-in Wordprocessor to edit a latter, or, CREATE e wholly 
new latter or report — and — store it in a file that is loadable by your 
Wordprocessor. 

• Personalize form letters ae you run) Insert "keya" (words or phrases) 
FROM THE MAILING LIST) Automatically insert a name or title or a 
comment. «**•* 

• Insert any phrase from the keyboard. ,e» * 8 * i V* 

• STOP automatically for manual sheet feed! •^-V^" 

• SET specs for AUTOMATIC sheet feeds. * B 

SO CQMFOdrADLE TO USE THAT YOU CAN BE UP AND RUNNING 
MINUTES AFTER RECEIVING VOUR SYSTEMS PACKAGE 



■F-ORTFS80 I & III. LDOS TRSOOS. NEWDOS. NEWD0S80 ETC ' 
• • •SPECIFY WHEN ORDERING WHETHER M00EL I or MODEL Iir ' • 
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Vsa and Mastercard accepted 
NOW AVAILABLE FOR $72 83 [for re&dents of Mrmesota add 5% sales tax] 
Price includes enure software package enten&ve documentation and shipping withm USA 

Midwest Data Systems 

a business ccxnmunication company 

400 first avenue north. m.nneapoliS. mroesota 55401 — (612) 330-4615 



fira 

/MK3X)CCt>miER 

TECHNOLOGY 
INCORPORATED 



ms-80® MOD I 

TANDON DISK DRIVE 

comes complete with 
power supply, chassis, 
ONLY 
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• Mod III Internal disk drive kit: 

A new low cosr inrernal disk kit is available ro expand 
your sforage capability. With rhis kit now, you may 
expand your 16K TRSSOa, Mod III computer up ro 
four MTI 40 track disk drives, giving you 175,000 
bytes of storage per drive for a total of 700K bytes. 

The kit includes one 40 track disk drive, controller, 
1 6K memory, power supply, cables, mounting hard- 
ware and installation documentation. 
40 track Dual head 40 track 

Drive #1 $ 695 Drive #1 $ 779 

Drive #2 s 279 Drive #3 $ 389 



fiO track 
Drive #1 
Drive #2 



Dual head 60 track 

'789 Drive #1 '929 

399 Drive #2 $ 569 



• 4MHz Mod III Speedup enchancement 

Doubles the processing speed of the Mod 
III systems. 

With computer purchase: * 1 49 

Retrofit M99 

SOFTWARE SALE 

Integrated Business Package ' 1 99 

Disk & System Diagnostic Mod III '49 

Memory Kit (16K) '43 

Disk Head Cleaner Mod III $ 24.95 

Diskettes Verbatim (10) hard ring 5" ss '30 

• TRS-80® Model III DOS 
and Manual 



'24.95 



• 28 




MICROCOMPUTER 
TECHNOLOGY INC. 

3304W.MACARTHUR. 

SANTA ANA, CA 92704 

• (714) 979-9923 • 



r~^~™^ 


[MasterCard] 


L a*. A 




US. PRICES 

FOD5ANTAANA 

CALIFORNIA 



TfXS-flO is o Registered Trodemori* or Rodio Shock 
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IF YOU CAN RECOGNIZE 
VALUE, YOU CAN SAVE; 

*500 00 

M.T.I. 

MOD III PLUS 

Now You Can Save 

$500 over comparable model. 

M998 



We hove roken the basic 16K Model III expanded 
rhe memory ro 48K and added our MTI Double 
Density, Duol Disk Drive system. System is fully 
compatible with Radio Shack DOS and peripherals. 



MOD lll/EXPANDED 

Same os obove bur has double storage copociry (706 sroroge) 
Your choice of 2 duol heoded 40 rrack drives or 2 single headed 
80 rrack disk drives 

$2499 




MOD HI/280 

Our largesr MOD III. approximately 1 .5 mega byres of sroroge. 
utilizes 2 dual heoded 80 rrack. double densiry disk drives 
Complere wirh manuals and professional operoring sysrem. 
Microsysrems DOS plus 3.3. 



*2799 



MTI MOD III SALES, PARTS & SERVICE CENTERS-INDEPENDENT DEALERS 



PHOENIX. AZ (602) 244-9739 

SIERRA VISTA AZ (602) 458-2479 

TEMPE. AZ (602) 639-0546 

TUCSON, AZ (602) 323-9391 

ANAHEIM, CA (714) 773-0240 

COVINA CA (213) 332-4066 

HOLTV1LLE, CA (714) 356-5185 

INGLEWOOD. CA (213) 673-3295 

LANCASTER, CA (605) 942-5747 

OXNARD. CA (805) 486-5837 

SAN DIEGO, CA (714) 275-4243 

SAN JOSE, CA (408) 946-1265 

SANTA CRUZ, CA (408) 427-0836 



WALNUT, CA (714) 594-831 1 

FORT COLLINS, CO . . . (303) 221-1 776 

GROTON, a (203) 445-5166 

HOLLYWOOD. FL ....(305)981-1011 

GEORGIA (404) 449-8982 

KAILUA HI (806) 261-6596 

IDAHO (208) 785-1497 

SHREVEPORT. LA (318) 865-7189 

JOPUN. MO (41 7) 781-1 748 

MIDWEST (618) 345-5068 

MISSOULA MT (406) 549-971 5 

RALEIGH, N.C (919) 755-1 175 

JERICHO, NY (516) 997-8666 



MANHASSET, NY (516) 869-6335 

NEW ROCHELLE. NY . . (914) 235-4444 

TROY, NY (518) 273-841 1 

N 6 S DAKOTA (701 ) 594-5674 

CLEVELAND OH (216) 779-6040 

MAUMEE, OH (419) 893-4288 

DALLAS. TX (214) 247-6679 

CHEYENNE, WY (307) 632-9132 

MEXICALI. BC (714) 357-471 7 

OVERSEAS 

AUSTRALIA 3877-6946 

BELGIUM 1663-2452 

REP. OF SOUTH AFRICA .... 2145-1047 



E5L 



MICROCOMPUTER TECHNOLOGY INC. 

3304 W. MACARTHUd SANTA ANA, CA 92704 
• (714) 979-9923 • TELEX 6780401 TADIRIN < 
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US PWCE5 
FOB SANTA ANA. 
CALIFORNIA 



^See Lial ol Advertisers on page 402 
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SOFTWARE FOR TRS-80 



UNITERM DOS PLUS OPERATING SYSTEM 

'The Universal Terminal Program' A fast, easy to use. and bug-free operating system for the TRS-80 Model I 

The FIRST and ONLY terminal program for both the Model I and Model III and III. This system is a must for business and hobby users Easy to use. 

TRS-80 computers Written by Pete Roberts, this program will soon become supports Single and Double density in the Mod III. (Mod I with Doubler) In- 

the stanoard of terminal software Unique features includes a Handsome eludes a $100 reward for an error if you can locate one (See Micro Systems 

binder with over 75 pages of instructions and examples. Free upgrade policy Software ad for details.) 

using local Bulletin Boards and MicroNET. Expanded functions such as 'Type DOSPLUS 3.3S (Mod I Single Density), $99.95 

to butler', Display Butler', Define Auto logon, polling, signon, and connect DOSPLUS 3. 3D (Mod I Double Density, Doubler required). $99.95 

messages' Requires 32K disk system. Only $79.95 DOS PLUS 3.3III (Mod III Sing/Doub Density). $99.95 
ST80MI. OMNITERM. SMART80. SMARTIII owners!!! Upgrade to 

UNITERM'- Send your ORIGINAL program disk and receive UNITERM' for NEWDOS/80 OPERATING SYSTEM 

only $29.95!' The Hottest Disk Operating System tor the TRS-80 Model I and III. Version 

2.0 with full single and.double density support, allows the use of and com- 
CuNNECTION-80 BBS bination of disk drives types and densities. Full Double density support when 
Run your own Computer Bulletin Board This software package when combin- used with a Doubler On the Model I, you can read and write Model ill corn- 
ed with your Model I or Model III TRS-80 and an Auto Answer Modem will Datable data disks. On the Model III. you can write Model I single or double 
convert your computer into a mini-times share system. Functions include density data disks for use on the Model I. Includes: Expanded directories, 
message leaving, both public and private, message retrieving, Bulletins, dynamic basic merge and delete, selective variable clearing, enhanced basic 
Downloading, merchandise, product ordering, chat, etc. This is a full feature editing, Enhanced chaining functions. Superzap utility. Disk enhanced editor 
system, and well known for excellence among modem users. Only $199.95 assembler and disassembler, and much more. Special Price. $139.95 

UTILITY PACK M-ZAL 

This package includes three of the most useful programs available for the This is the most powerful Editor Assembler for the TRS-80 ever written, 

serious TRS-80 user, by Mike Friedman. Features a full screen editor, a menu driven asembler, and an interactive 

1) Spooler: Very fast, allows page parameters and perferation skip over linker which allows the linking of /CMD and /RLD files. Files can be loaded 
automatically, you can even switch DOS's without interupting printing! to Disk or Tape! Assembly Language programers like Dick Balcom. and Pete 

2) Erase: Super Purge utility with multiple modes of operation. Allows you to Robert claim that this is the best Editor Assembler on the market' Special 
display DIR and position cursor over file to be killed, and then a key stroke Price, $129.95 

and it's gone! You will never use 'KILL' again! 

3) Map: Places a sector map (LUMP map for NEWDOS/80) of your disk on OTHER MYSTERIES 

the screen. Shows free, used and locked out grans. We carry the full line of IJG Other Mysteries' books at discount prices. These 

ENTIRE PACKAGE ONLY. (Specify Mod I or III). $49.95 books are a must for computer users. 

TRS— 80 Disk and Other Mysteries .$22.50 $19.95 

COPY III Basic Oecoded and Other Mysteries $Z«.95 $26.96 

This Model III Utility, written by Dick Balcom. allows you to load system tapes Custom TRS-80 and Other Mysteries $29Vj $26.95 

into your computer at either 500 or 1500 Baud and then copy them onto a Basic Faster & Better $29 9\ $26.95 

new tape at either 500 or 1500 Baud, includes 10 page instruction manual 

"95 MX-80 RIBBON RELOADS 

Don't throw away your worn MX-80 ribbon cassettes. We carry endless loop 

THE COPYRIGHT KIT ribbons to replace the worn ribbon in your MX-80 ribbon cassette and save 

A self-instruction booklet on copyrighting the computer software you write. money. Installation takes about 3 minutes each. Special offer $3.50/ea., 

includes step by step instructions, sample forms, as well as discussions of $35.00/doz. 

copyrights, patents and trade secrets, your rights secured by copyrights. CASDP 

legal remedies upon infringements, material I not copyrightable and MUCH The CASQp utj|j b pau| s ^ a||ows , 

MORE' Written by Attorneys. Published by National Attorneys Publications |ocatJons check , or hjd(jen es m ^ if prog 7am blocks relocate pro- 

SKESSP^ gramblocks^^^ 

■or rape users, $£4.99. 

AVAILABLE AT 

Breeze Computing Micro Images All System* Go CPU Computet Corp. Programs Unlimited Son John Enterprises 

P() Bux 1013 14b 03 2Sth Road 105 W Plant Street 175 Mam Street 20 Jertchc Tpkc PO Box 1671 

Berkley Ml 48072 Flushing. NY 11354 Winter Garden FL 32781 Charleston MA 02129 Jericho. NY 1 1753 Freemont. CA 94538 

illll WH22 (3051877 2830 1800)645-6038 1415)6514147 

Contemporary Comm Corp. Stevens Radio Shack Soft Sector Marketing Omni Systems Associates Bob's T.V. Computer Serv. of Danbury 

5582 Coral Way 5b2 Nurf Road o250 Middle Belt Road PO Box 632 93-15 86th Drive PO Box 99.! 

Hasletl Ml 48840 PhoenixvlOe. PA 194b0 Garden City. Ml 48135 W Caldwell. N J 07006 Woodhaven. NY 1 1421 Danbury. CT 06810 

.M7i X*) 1028 . (8ixi| M5 (,279 (313) 425 4020 (201)226 9185 1212)441-2807 1203)744 5516 




1 71 Hawkins Road 
Centereach, New York 11720 



--. 



^122 



(516) 981-8568 (Voice) 
(516) 588-5836 (Data) 
MNET-70331, 105 



Dealer Inquiries Welcome 

Add $2.00 S & H 
NYS res. add appr. tax 
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'THE SYSTEM' 




New TRS-80 Model III 
Model III. 48K 2 Siemans Disk Drive system, $1799.00, (plus 
shipping and handling) includes Dos Plus III operating system. 

ADD DISK DRIVES 

Internal Drive #1— Includes Micro Mainframes Controller board. 
Dual Drive Power Supply (for 2 internal disk drives), Mounting 
Hardware (for 2 internal disk drives), 40 Track Siemans Disk 
Drive. $629.95 

Internal Drive #2— Includes 40 Track Siemans Disk Drive 12 ms 
Disk Drive. $299.95 

Memory Upgrade, 150ns, Prime Chips. Add 16K, $44.95, Add 
32K. $79.95 

SPECIAL!!! 

Internal Drive #1 $629.95 

Internal Drive #2 $299.95 

32K RAM Memory Chips $79.00 

All Together "TnK»*5-. 

Includes Complete Installation Instructions! $849.95 

External Drive #3— Includes case (as shown above, dual power 
supply, cable, mounting hardware for 2 external drives, $429.95 
External Drive #4— (same as Internal Drive #2) 40 track disk 
drive. $299.95 

External case (no drives)— Includes case, powers supply (for 2 
drives) cable, mounting hardware, (shown above) $179.95. 

SPECIAL!!! Dual External Drives & Case, $629.95 

NOTE: Dual Sided Drives— add $99.00 per drive. 
Flippy Drives (single sided only)— add $19.95 per drive. 
Dos Plus III (3.3) Operating System, $99.95 alone. $49.95 with 
drive purchase. 



ACCESSORIES 
Put Your Printer on a Pedestal! 

This printer stand allows you to place a stack of paper under the 
printer for neat paper stacking— Available for most printers. 

(MX-80, MX-80F/T. LPIV, etc.) $24.95 

Larger stand (MX-1 00, Anadex. etc.) $29.95 

Extra Shelves (Shown Above) $9.95 

MODEL I DISK DRIVE CASES 

Clear Cases for your model I disk drives, complete with power 
supply for 5-1/4 inch disk drives. 

Single Drive Case $79.95 

Dual Drive Case $109.95 

Triple Drive Case $139.95 

Quad Drive Case $169.95 

Smoked Plexiglass Cases. Add $5.00/per drive. 

LYNX MODEMS 

The finest Auto Answer/Dial Modem on the market! This is a 
direct connect modem for your model I or III. Does not require an 
RS232-C interface in your computer! Season Special. $299.-96- 

$249.95 
AMBER EASE 
Amber filter for your computer. Amber has been shown to be the 
easiest on the eyes. Easy to install. (Shown on computer above.) 
Season Special, All TRS-80 Models, $19.95 

TIC-TOC-80 MICROCLOCK 

A microclock for your TRS-80 Model I. Gives your computer the 
correct time and date on powerup. Clock is maintained on a 
lithium battery for long life. Plugs onto the I/O Buss of the TRS-80 
Model I and does not require any modifications for -most com- 
puters. Complete with extensive documentation and a disk with 
utilities. SPECIAL NOW AVAILABLE IN KIT FORM! 

Complete assembled and tested $99.95 

Kit with P/C board, parts and instructions $59.95 

Kit with P/C board, parts list and instructions $19.95 




171 Hawkins Rood 
Centereoch, New York 1 1720 



C w 



^122 



(516) 981-8568 (Voice) 
(516) 588-5836 (Doto) 
MNET-70331, 105 



Dealer Inquiries Welcome 

Add $2.00 S 6 H 
NYS res. add oppr. rax 



fSee List ot Advertisers on page 402 
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EDUCATION 



The kids use the computer, so vohy not you , professor?. 



Calling All Teachers 



Roger Hedden 
B22-8 151 Rte. 206 
Flanders, NJ 07836 



Computers are appearing in 
more schools each day. 
Their uses fall into one of three 
broad groups: Students interact 
with canned or teacher-written 
programs to reinforce previous- 
ly learned skills; students use 
the computers to learn a pro- 



gramming language; or teach- 
ers use them to ease paperwork 
burdens. Many vendors have at- 
tempted to answer the first two 
needs — this article will help you 
begin resolving the third. 

The programs included have 
been tested for two marking pe- 
riods. I have received positive 
comments from colleagues, ad- 
ministrators, and parents for the 
increase in communication 
made possible by them. The ex- 
citing part of this is that I have 
been able to save time In the 
process! 

The package consists of 
seven modules (each module is 
actually a separate program): 



10 REM «BUILD DATA BASE (INTERFACES WITH ALL OTHER MODULES)* 
20 CLEAR 4800:CLS:PRINT085,'**DATA BASE BUILDER**' : PRINT: PRINTST 
RINC$(63,'*") :PRINTTAB(26) "WRITTEN FOR' : PRINTTAB( 21) 'NORTHERN MI 
DDLE SCHOOL' :PRINTTAB( 31) 'BY' : PRINTTAB(25) 'ROGER J HEDDEN" :PRINT 
S982,'*ALL RIGHTS RESERVED' ; : GOSUB1010 :CLS 

30 DIM LN$(150) ,F$(150) ,MFS( 150) ,SCS(15i) 

31 STU'0 

40 PRINT'LIST THE INFORMATION REQUESTED, PLEASE" : PRINT 

50 FOR I-1TO150 

60 INPUT'LAST NAME: ' >LN$ ( I) : STU-STU+1 

65 IF LN$(I)«"END' THEN GOTO 150 

70 INPUT'FIRST NAME: ';P$(I) 

80 INPUT'SEX(M/F) : ';MP$(I) 

90 INPUT'SECTION: ";SCS(D 

100 PRINT 

120 NEXTI:CLS 

150 PRINT'LOAD BLANK CASSETTE AND PRESS RECORD 4 PLAY.":PRINT 

160 INPUT'ONCE LOADED, PRESS ENTER. ' ;G$ :CLS 

161 PRINT'THE FOLLOWING DATA IS BEING PLACED ON THE DATA BASE TA 
PE:"iPRINT 

170 PTS-0:PP-PTS 

180 F0RI-1TOSTU 

181 PRINT'NAME: ';LN$(I);', ";F$(U 

182 PRINT'SEX: ';MF$(I) 

183 PRINT'SECTION: 'iSCS(I) : PRINT 

190 PRINTI-l.LNSU) ,PS(I) ,MFS(I) ,SC$(I) ,PTS,PP:NEXT I 

200 CLS: PRINT'LOAD COMPLETE. ': PRINT: PRINT: PRINT 

210 INPUT'IS THERE ANOTHER SECTION (Y/N) ' jGS 

220 IF GS-'Y' THEN GOTO 28 

230 CLS: END 

1000 END: 'TIMER DELAY 

ill! FOR Z2«1TO1B0B:NEXT:RETURN 

Program Listing 7. Data Base Builder. 



• The Data Base Builder 

• The Grading Program 

• The File Update 

• The Section Roster Printer 

• The Data Base Display 

• The Grade Book Printer 

• The Failure Notice Printer 

Data Base Builder 

The data base is actually a 
data file; it contains information 
on every student I have during a 
marking period. Usually that 
amounts to about 120 (there's 
room for 150). After the program 
has been loaded and run, the 
title page is displayed followed 
by instructions to list the re- 
quested information. You 
should enter the names of your 
students one at a time, with 
their sex (M/F), and section 
number. Once all the names are 
entered, you create a new stu- 
dent whose last name is End. 

Once this name has been en- 
tered the program will direct you 
to place your data tape in the 
cassette recorder; press play 
and record and enter. Your en- 
tire list will be recorded on tape. 
This is the last time you will 
have to type this information. All 
other programs in this package 
are designed to read and/or re- 
write this file. For your data tape 
use a high quality tape that 
won't lose data. It must also be 
long enough to handle the file. I 
presently have 117 students, 
which takes about seven min- 
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utes of tape. 

There are some important 
flags built into this file. The End 
flag mentioned above is used to 
terminate reading the tape. 
Another is the section number. 
In my school, the student popu- 
lation is divided into five 
clusters which are labeled 
A,B,C,D,E. Each cluster has at 
least one grade and three to four 
homerooms in each grade. For 
example, a student's section 
might be 6A1 , meaning he or she 
is a 6th grader in A cluster, 
homeroom number 1. Within a 
teaching section, all students 
will be of the same grade and 
cluster but may not be of the 
same homeroom (see Table 1). 
The programs that use the data 
file look for a change in either of 
the first two places of the sec- 
tion from one student to the 
next in order to know that it is 
now looking at the beginning of 
a new section. In the discussion 
of the other programs, you will 
see how this operates. 

I have structured the pro- 
grams to make modifications as 
simple as possible. 

The data base builder is used 
once to establish a new list of 
students. Any changes there- 
after can be made by the file up- 
date program. 

File Update 

One program I've found to be 
an absolute necessity is the file 



update. This program allows 
you to add a new student, delete 
one who has left, and change 
any field in any record of the file. 
When all changes have bean 
made, the updated file is saved 
on tape. 

When you record this new 
data, use the other side of the 
tape. This is wise, because if 
something should happen dur- 
ing the recording phase of the 
program (©?#*&!) only the most 
recent data would be lost. Also, 
make a note on the cassette to 
remind you which side has the 
most recent data on It. If you go 
back later to use a program and, 
as the tape is being read, it en- 
counters a bad record in the file, 
one of two error messages will 
be displayed— OD? or FD? Re- 
lax, type CONT and (enter). The 
program will resume. That rec- 
ord will be lost but you can put it 
back in with the update. If you 
find you are getting a lot of error 
messages, check the volume, 
clean the heads, or beat your 
head against the wall, but don't 



give up! 

You only have to run the pro- 
gram to see how it works. All the 
instructions are presented on 
the video screen to lead you 
through the program. Be sure 
you read these carefully. Also, 
when you add a name, a graph- 
ics block is displayed on the 
screen to indicate that the 
changes are being made. You 
may notice a period when the in- 
dicator stops changing. This oc- 
curs because the computer is 
searching for more string space. 
Be patient. 

The Grading Program 

The grading program is based 
on a few simple concepts. Over 
a period of time a teacher gives 
tests, quizzes, homework and 
class assignments, all of which 
are graded and recorded In a 
grade book. Most teachers like 
to weight these grades— that is, 
a test counts more than a quiz, a 
quiz more than an assignment. 
This program allows for weight- 
ing. For example, John Doe has 



scored 15 out of 20 points on a 
quiz, four out of five on an 
assignment, and was absent for 
a second quiz. How would the 
program handle these grades? 
When the program starts up, it 
prompts you to place the data 
file in the cassette player. The 



file is then read. At this point, go 
get a cup of coffee and relax. 
For my 117 students, it takes 
just over seven minutes. If you' 
have a faster I/O device, con- 
sider yourself lucky. 

Once the tape file has been 
read, a grade book will be dis- 





NORTHERN MIDDLE SCHOOL 




Science- 


-Hedden 


SECTION ROSTER 




Cluster A 


Able 


I. M. 


EA2 


50 




Crab 


John 


EA1 


60 




Drab 


Sam 


EA3 


100 




Drools 


Mike 


EA5 


81 




Falls 


Water 


EA1 


50 




Money 


Owen 


EA3 


86 




Dolly 


Piano 


EA2 


90 




Farce 


Polly 


EA1 


94 




Toys 


Attic 


EA3 
SECTION ROSTER 


61 


Cluster B 


Frog 


Karmit 


6B5 


89 




Goose 


Father 


6B3 


98 




Hassle 


Adam 


6B7 


51 




Kong 


King 


6B3 


25 




Load 


Cigar 


MB 


58 




Anna 


Annie 


6B1 


78 




Disco 


Debbie 


6B3 


84 




Katz 


Kitty 


6B2 


85 




Strain 


Adel 


6B2 

Table 1. 


69 





10 REM 'FILE UPDATE PROM DATA BASE* 

IS CLEAR 4 BB0 

28 CLS:PRINT088,"**PILB UPDATE*** :PRH*T|PRINT STRING* (63,**') iPR 

INTTAB( 26) "WRITTEN FOR" :PRINTTAB( 21) 'NORTHERN MIDDLE SCHOOL* tPRI 

NTTAB(31)-BY*:PRINTTAB(25)"ROCER J HEDDEN*iPRINTM»2,**ALL RIGHT 

S RESERVED"; 

3* DIN LN$(lS*),F$(15*),HF$(lS*),SC*(lS*),PTS(lS*),PP(15*)(GOSUB 

ieie 

40 CLS: PRINT0512, 'LOAD TOUR TAPE TO BE UPDATED. *: IMPUT'THEN PRES 
S 'ENTER'*; AS: GOSUB2S1B 

60 CLS: PR I NT "ENTER THE APPROPRIATE CODE" : PRINT: PRINT" ADD NEW REC 
ORD - ENTER A" : PRINT "DELETE A RECORD - ENTER D* t PRINT* CORRECT 
A RECORD - ENTER C" : PRINT* SAVE CHANGES - ENTER S* i PRINT: PRINT" Y 
OUR CHOICE PLEASE"; 
70 G$«INKEY$:IF G$-"*THBN 71 
80 IF C$«*A*THEN GOSUB3010:GOTO120 
90 IF GS-"D*THEN G0SUB4ClB:G0TO12e 
100 IP G$'"C'THEN GOSUB5010:GOTO120 
105 IF C$>*S* THEN GOTO 131 

110 PRINT0384,*HMMM - TRY THAT AGAIN" iGOSUB 1010iPRINT0384,*YOUR 
CHOICE PLEASE * 

120 PRINT "ARE THERE MORE RECORDS TO BE CHARGED (Y/N)?' 

121 A$-INKEY$:IFA$-"THEN121 

122 IF AS»*Y*THENGOTO60 

123 IF ASO'N'THEN CLS:GOTO110 

130 CLS:PRINT*PREPARB DATA TAPE AND HIT ENTER* I INPUT AS 

135 CLS: PR I NT" LOADING" 

140 FOR S-1TOSU 

150 PRINTI-1,LNS(S),FS(S) ,MP$(S) ,SCS(S) ,PTS(S) ,PP(S) 

155 PRINT 09 16, 'RECORDS WRITTEN -*;S; 

160 NEXT S 

165 PRI NT#-1,' END', 'OF*, "PILE" , 'DATA", 1,1 

170 CLS: PRINT" JOB COMPLETE" 

180 END 

1000 END:'TIHER DELAY 

1010 FOR tZ»lTO1000:NEXT:RBTURN 

2000 END:' READ DATA TAPE 

2010 FOR S-1TO150 

2020 INPUT*-1,LN$(S) ,P$(S) ,NP$(S) ,SC$(S) ,PTS(S) ,PP(S) :St)»S 

2025 PR I NT §90, "RECORDS READ = "|S; 

2030 IF LHS(S)«*END" THEN RETURN 

2040 NEXT S: RETURN 

3000 END: 'ADDS NAME TO FILE 

3010 CLS: PRI NT" PLEASE LIST NAME OP PERSON IMMEDIATELY PRECEDING 

NEW ENTRY" :INPUT"LAST NAME: *;PL$i INPUT'FIRST MAMB:';PP$ 

3020 CLS : PRI NTCHRSI 23 ): PRI NT "SEARCHING - PLEASE WAIT* 

3030 FOR S-lTOSU:C-S 

3040 IF LN$(S)-PL$ AND F$(S)-PF$ THEN 3060 

3055 NEXT S 

3060 CLS: PRINT LNS(C);", "jF$<C)f" SECTION: "jSCS(C) 

3070 PRINT: PRINT' ENTER NEW NAME AND INFORMATION:" 

3000 INPUT'LAST NAME* ;NL$: INPUT'FIRST NAME' ;N$: INPUT*SEX(M/F) *;S 

X$: I NPUT" SECTION ';NSS: INPUT" POINTS EARNED TO DATE"|PB:INPOT"POIN 

TS POSSIBLE TO DATE";PO 

3090 CLS:PRINTCHRS(23) :PRINT'WAIT, PLEASB'iFOR 1-80 TO C+l STEP- 

1:PRINT010,CHR$(166) :LNS ( 1 + 1) »LN$( I) : P$(I+1) -FS< I) :HF$(I+1) -MF$< 

I):SC$lI*l)«SCSm :I*rSlI4-l)>PTS(I)iF*<(l4'l)*'n(I)iPltItrTtllfCRBS(l 

53) :NEXTI 



3095 SU-SU+l:LNS(C+l)-NL$:i$(C+l)«N$:HF$(C+l)-SXS:SC$(C+l)-NS$:P 

TS(C*1)«PE:PP(C*1)-P0: CLS: RETURN 

4*00 END: 'DELETES A NAME 

4010 CLS : PRINTCHRS < 23 ):F>f: PRI NT051 2, 'WARNING, THIS ROUTINE IS 

POWERFUL! ":GOSUB1S10: PRINT* ONCE A NAME IS DELETED, IT IS 

LOST.*: PRINT* DO YOU WANT TO DELETE A NAME (Y/N) 7* 
4*15 AS-INKEYJ(IP AS- "THEN 4015 
4016 IF A$<>*Y* THEN RETURN 

4*17 CLS i INPUT* LAST MANE OF STUDENT TO BE DELETED* ;NLS: INPUT* FIR 
ST NAME" ;N$: INPUT-SECTION" ;NSS 
4*1* CLS: PRI NT* THANK YOU - PLEASE WAIT.* 
4(2* FOR S-1TOSU 

4*3* IF (LNS(S)-NLS)AND(PS(S)-N$)AND(SCS(S)-NSS) THEN F-1:C»S: 
GOT04*(* 
4*5* NEXT S 

4*6* IF F*» THEN PRINT 'STUDENT NOT FOUND IN PILE ~ CHECK SPELL 
IMCS I* (RETURN 
4*65 FOR S-CTOSU 

4*66 LN?(S)-LN$(S+1) :FS(S) »F$(S*1) «HFS(S) -MFS(S+1) :SCS(S)-SCS( 
S+l):PTS(S)-PTS(S*l):FP(S)»PP(S4l) 
4*67 NEXT S:SU-SU-1 
4*70 RETURN 

500* END: 'CORRECTS ERRORS IN PILE 
5*1* CLS :F»* j PRI NT* ENTER ALL INFORMATION REQUESTED FOR RECORD TO 

BE CHANGED* :PRINT*REMEMBER - ENTER IT AS IT PRESENTLY APPEARS." 

5*2* IRPUT'OLD LAST NAME* >ENS: INPUT* FIRST NAME" ;EFS: INPUT- 

SECTION"; ESS 
5*25 CLS:PRINT"8EARCBING - PLEASE WAIT* 
5*3* FOR S-1TOSU 

5*4* IF (LN$(S)«EN$)AND(FS(S)-EFS)AND(SCS(S)«ES$)THEN F-1:C»S: 
GOTO5080 
507* NEXTS 

518* IF F«* THEN PRINT'NOTHING FOUND IN FILE MATCHING REQUEST" :R 
BTURN 

5*9* CLS: PRI NT 'WHAT FIELD IS TO BE CHANGED?' 
51*0 PRINT'LAST NAME - ENTER L" 

5101 PRINT*FIRST NAME - ENTER F* 

5102 PRINT'SECTION - ENTER S* 
51*3 FRINT*SBX(11) - ENTER X* 
51*4 PRINT'PTS EARNED - ENTER P" 
5115 PRINT'PTS POSSIBLE-ENTER O* 
51*6 PRINT: PRINT* YOUR CHOICE?* 

51*7 AS-INREYSilF A$>**THEN51*?ELSECLS 

511* IF AS«'L' THEN INPUT 'CORRECT LAST NAME';LN$(C) :GOTO6000 

5120 IF A$»*F* THEN INPUT'CORRECT FIRST NAME*;F$(C) :GOTO6000 

5130 IP A?-*S* THEN INPUT'CORRECT SECTION* ;SC$ (C) :GOTO6000 

514* IF A$»*X* THEN INPUT'CORRECT SEX*;HF$(C) :GOTO6000 

5150 IF A$«"P" THEN INPUT*CORRBCT POINTS EARNED" ;PTS (C) :GOTO6000 

5160 IF A$'*0" THEN INPUT'CORRECT POINTS POSSIBLE" ;PP(C) :GCTO600 



6(10 PRINT" ARE THERE MORE CHANGES TO BE MADE TO THIS RECORD (Y/N 

w 

6*1* A$>INKBY$:IF AS=**THEN 6010 
•020 IF A$>*Y*THEN 5090 
6*3* RETURN 
6*4* END 



Program Listing 2. File Update. 
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played on the screen with a mes- 
sage requesting the number of 
grades for this section. Going 
back to our example, the re- 
sponse would be three (don't 
forget the absence). Once the re- 
sponse is given, the next ques- 
tion appears at the bottom, ask- 
ing the maximum possible 
points for each grade. In our ex- 
ample, we would respond with 
20,5,15 — the quiz John missed 
was worth 15 points. After the 
third maximum is entered, the 
first student's name is dis- 
played at the top of the page. 
For John we would enter 15,4 
and - 1 (I'll explain this later). At 
the right side of the screen, 



John's percent grade will ap- 
pear. If you don't have a printer, 
you'll need to copy this grade or 
use the data base display pro- 
gram to record your grades. If 
your school uses letter grades, 
you'll need to convert them or 
add a few lines of code to 
display the letter grade. 

As soon as John's grade is 
displayed, the next student's 
name is shown on the following 
line and the process continues. 
When the next section is en- 
countered (remember the pro- 
gram detects this by the section 
number) you are given an oppor- 
tunity to change the maximum 
number of points for each score 



18 REH "STUDENT GRADES PRO* DATA BASE* 

20 CLS:PRINT086, ""STUDENT GRADES*" : PRINT: PRINT STRINGS (63, ■••] 

:PRINTTAB( 26) 'WRITTEN POR" : PRINTTAB( 21) 'NORTHERN MIDDLE SCHOOL': 

PRINTTAB(31) "BY" : PRINTTABf 25) "ROGER J HEDDBN" : PRI NT 09 82 , "ALL RI 

GHTS RESERVED'; : GOSUB1818:CLS 

78 PRINT' PUT YOUR DATA TAPE IN THE CASSETTE PLAYER AND PRESS 'P 

LAY'.':FOR X-1T01B: PRINT:NEXTi INPUT'THEN PRESS 'ENTER' *; AS: CLS 

81 PRINT CHRS ( 23) : PRINT: PRINT'YOUR TAPE IS NOW LOADING. WHEN IT 

HAS FINISHED LOADING, TURN YOUR CASSETTE TO THE OPPOSITE SI 
DE AND REWIND IT TO THE BEGIN-NING. " :POR ZZ-ITOIBBB :N£XTZZ :CLS:P 
RINT'yOUR DATA IS AS FOLLOWS:' 
91 CLEAR 4880 

100 DIM LNSI158) ,FS(15B),NPS(15B) ,SCS(150) , PTS ( 158) ,PP( 158) ,T( 25 
),K25) 
110 0-129 

120 GOSUB 3010:'*READS INPUT PILE*:CLS 
138 SC$(0)-SCS<1) :CLS:GOSUB 3030:GO3UB 3070 
148 FOR S-lTO(SU-l) 
150 IF LEFT$(SC$(S) , 2) OLEFTS (SCS (S-l) ,2) THEN PRINTBQ,"END OF 

SECTION"; : INPUT '//PRESS ENTER FOR NEXT SECTION" i AS :G0SUB 3830: 
GOSUB 3070 

160 PRI NTM, STRINGS (6 3," "): PRINTS), LNS <S) ;" , " ;LEPTS (P$(S) ,1) 
170 T-17 
180 FOR I-1TON 

193 PRINTG(Q»T) ,";: INPUT ST(I) 
200 PRINTg(Q+T) ,ST(I) :T-T*3 

210 IF ST(I)>-0 THEN PTS (S) -PTS (S) *ST( I) :PP(S) -PP(S) *T(I) :NEXTI : 
ELSE IF ST(I)— 1THEN NEXTI : ELSE IF ST(I)— 2 THEN GOSUB 321B:PTS( 
S)«fl:PP(S)=8:NEXT S ELSE IF ST(I)— 3 THEN S-S-1:PTS(S) -B:PP(S) -0 
:NEXTS ELSE IF ST(D— 4 THEN S-S-2: PTS (S) -i:PP(S) -•: NEXT S 
215 ON ERROR GOTO 248 
228 P-INT((PTS(S)*1B0)/PP(S) ) 

23B PRINT*(0+58) ,F; :Q=Q*64: IP Q>832 THEN 0-129 
24B NEXT S 

250 PRINT0Q,STRINGS(63," ') : PRINTW ,'LAST STUDENT OF LAST SECTIO 
N--PRESS 'ENTER' TO PROCEED" ;: INPUT AS 
26B CLS:PRINT CHR$(23) 

278 INPUT'HAKE SURE YOUR TAPE IS WOUND PAST IT'S LEADER. PRES 

S 'PLAY' AND 'RECORD'. wHEN YOU'RE READY PRESS ' ENTER' ."; INPUT 
AS: PRINT 

28B PRINT'THE NEWEST DATA IS BEING RECORD-ED ON TAPE — THIS WILL 
TAKE A FEW MINUTES." 
298 GOSUB 315B 
295 PRINTI-1, "END", "OF", "FILE", "SECTION", 1,1 

380 CLS:PRINT CHR$(23) ! PRINT'ALL DONE BYE." 

318 END 

1BBB END: 'TIMER DELAY 

181B FOR ZZ-1T01BBB:NEXT:RETURN 

3080 END: 'READS INPUT FILE FROM LINE 120 

3818 FOR S-l TO 150: INPUTt-l,LN$(S) ,P$(S) ,MP$(S) ,SC$(S) ,PTS(S) ,P 

P(S):SU-S:IF LN$(S)-"END" THEN RETURN 

3815 PRINT LN$(S);", *;F$(S);* 'jSCS(S);" 'tilt PTS(S)<» THEN P 
RINT INT(PTS(S)/PP(S) *1B0) ;"%" ELSE PRINT "NO GRADE* 

3816 NEXT S:R£TURN 

3B2B END:'*PRINTS HEADERS* 

3B3B CLS:PRINT"NAME*;TAB(2B) "GRADES *;TAB(62) '%' 

3848 FOR X-BT0127:SET(X,3) :SET(X,44) (NEXT 

3858 PRINTS96B, 'CODES: STUDENT ABSENT) -1) "CORRECTIONS-NAME (-2) -A 

LL(-3)-LAST{-4) ";:RETURN 

3068 END: 'SET NUMBER OF INPUT GRADES 

3B7B PRINT8641,";:INPUT'HOW MANY GRADES ARE THERE FOR THIS SECT 

ION';N 

3B8B PRINT0641, STRINGS (68,' *) :W-85B 

3B9B PRINT§833,"MAX. POINTS";:FOR 1-1 TO N:PRINT0W, "";: INPUT T(I 

) :PRINT*W,T(I) iW-WO:NEXT I 

3 IBB RETURN 

31 IB END: 'CORRECT NAME OR GRADE 

312B PRINTgQ, STRINGS (63,* ") :PRINT«),"i: INPUT-CORRECT LAST NAME 

'jLNS(S) :PRINT8Q,LNS(S);", "; LEFTS (PS, 1 ) 

313B RETURN 

314B END: 'OUTPUTS DATA TO TAPE. 

31 5B FOR S-1TOSU 

3161 PRINT«-1,LN$(S) ,FS(S) ,MF$(S) ,SC$(S) ,PTS(S) ,PP(S) 

317B NEXT S 

3188 RETURN 

32BB END 

3218 IP ST(D— 2 THEN GOSUB 312B:S-S-1 :RETURN 

321S END 

Program Listing 3. Grading Program. 



and the number of scores. 

Now, that - 1 mentioned 
earlier is one of four codes avail- 
able during the operation of the 
program. They are listed at the 
bottom of the grading page. 
They are: -1: The student was 
absent and the grade is to be ig- 
nored; -2: Correct the spelling of 
the individual's last name; -3: 
Correct the line because of a 
grade input error; -4: Correct the 
previous line because of an er- 
ror. 

After all grades have been 
entered for all sections, the 
screen is cleared and you are in- 
structed to place your data tape 
in the cassette recorder; play, 
record, and enter. The new data 
will be recorded and the pro- 
gram will end. The percent grade 
displayed is not recorded on 
tape, but the number of points 
earned and the number of points 
possible for that student are 



recorded. This is one of the most 
important features of the pro- 
gram because it allows you to 
update your grade book at any 
time without worrying about 
throwing the grades out of bal- 
ance. The next time the grading 
program is run, the previous 
grades are read and the new 
grades accumulated. 

Display Data Base 

This program was designed 
for schools that do not have a 
printer. It will display the con- 
tents of the data file. No 
changes can be made by this 
program. Execution can be halt- 
ed by a shifted @ and resumed 
by depressing any key. 

Printed Output 

So far none of the programs 
provide printed output. If you 
have a printer, read on! The 
three following programs are for 



IB REM *LIST SBCTION ROSTERS* 

2B CLEAR5BB:CLS:PRINT087, ""PRINT ROSTERS***: PRINT: PRINT STRINGS 

(63, "•") :PRINTTAB(26) 'WRITTEN FOR* :PRINTTAB(21) "NORTHERN MIDDLE 

SCHOOL":PRINTTAB(31)*BY':PRINTTAB(2S) "ROGER J HEDDEN" :PRINTB982 , 

"ALL RIGHTS RESERVED"; 

38 L-63:GOSUB 1B1B:CLS 

48 INPUT* YOUR NAME PLEASE" ;T$ 

68 INPUT'WBAT SUBJECT", SS 

78 CLSi PRINT 'THANK YOU' jGOSUBIBIBi PRINT0S12, "LOAD YOUR DATA TAPE 

- THEN PRESS ENTER*; (INPUT A$ 
88 LS$»"AAA" 

98 INPUT*-1,LN$,F$,HF$,SC$,PTS,PP 

108 IP LEFT$(SC$,2)OLEPT$(LS$,2)THEN GOSUB 2BB5 

lit LPRINTTAB(5)LNS;TAB(20)F$;TAB(35)SC$; «IF PP<>8 THEN LPRINTTA 
B(5B) INT(PTS*1BB/PP)ELSE LPRINTTAB(SB) "NO GRADE" 
128 L-L+liGOTO 9( 
1BBB END: 'TIMER DELAY 
1B1B FOR ZZ-lT01BBB:NEXTsRETURN 
28BB END 

2BB5 IF LN$-*END*THEN GOSUB 3B1B:END 
2B1B POR Z-LT066:LPRINT" ":NEXT Z 

2828 LPRINTTAB(16)"N ORTHERN MIDDLE SCHOOL 

■iLPRINT* * 

2B3B LPRINTTAB(S) SS;" - ";T$;TAB(6B) 'CLUSTER ';MIDS(SCS, 2,1) 
2B40 LPRINTTAB(5) STRING$( 24 ,'*'); " SECTION ROSTER "; STRINGS ( 24 , 
■*"):LPRINT" * 
2858 L-6:LS$-SC$:RETURN 
3BBB END 

3818 CLS:PRINT'END OF FILE" :PRINTiGOSUB181fl:PRINT"TO ADVANCE PAP 
ER, PRESS 'A' . " : PRINT "TO END PROGRAM, PRESS 'E'.* 
3B2B A$-INKEY$ 
3825 IPA$-*"THEN 3828 

3838 IF AS-*A*THEN LPRINT* ':GOTO 3020 
3B4B IF ASO'E* THEN GOTO 3828 
3B5B END 



Program Listing 4. Section Roster Printer. 



IB REM *CRT DISPLAY OP DATA BASE* 

28 CLS:PRINT«85,***DISPLAY DATA BASE*** :PRINT:PRINTSTRINGS(63, '* 

') :PRINTTAB( 26) 'WRITTEN POR* tPRIHTTABJ 21) 'NORTHERN MIDDLE SCHOOL 

":PRINTTAB(31)'BY*sPRINTTAB(25) 'ROGER J HEDDEN" :PRINTt982,**ALL 

RIGHTS RESERVED' ; ■ GOSUB1010 : CLS : PRI NTCHRS ( 23 ) 

3B CLEAR 48B8:DIM LNS (150) ,rS(150) ,MFS(150) ,SC$(15B) ,PTS(158) ,PP 

(1SB) 

31 INPUT 'PREPARE TAPE - THEN HIT ENTER' (QS 

50 FOR 1-1 TO 1SB 

68 INPUTI-1, LNS(I) ,FS(I) ,MPS(I) ,SCS(I) ,PTS(I) ,PPU) 

65 IP LN$(I)-'END* THEN GOTO IBB 

66 PRINT: PRI NT "NUMBER *;I;' OP LIST." 

78 PRINT LNS(I);*, ";FS(I);" *;MPS(I) ; *~";SCS(I) 

75 IP PP(I)>8 THEN PRINT'GRADE * ; INT (PTS ( I) *1BB/PP( I) ) ; *%" 

8B PRINT 

98 NEXT I 

IBB PRINT 'JOB COMPLETE* 

11B END 

HM END: 'TIMER DELAY 

1818 FOR Z2-1T018BB:NEXT:RETURN 

Program Listing 5. Data Base Display. 
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PROVEN MONEY MAKERS FOR YOUR TRS-80" 

"Tandy Corp. Trademark 



MAIL LIST SYSTEM («* on. y) $69.95 

Our easy-to-use system will accomodate almost any "custom" 
requirement of even your most demanding clients. A glance 
below will show that we are far ahead of any other system in 
speed, variety of features, and sheer volume of names 
handled ...but don't let that fool you. This system can be used 
just as easily on one disk for a small Christmas card list. 

• Maintain virtually an infinite number of disks all in con- 
tinuous alph. or zip order.. .essential for large lists. 

• Sort 2320 entries (2 full 40 track double density disks) in 
only 32K or an incredible 4640 entires (2 full 80 track 
double density disks) in only 48K!...Made possible with 
our unique date compression techniques on the Model III. 

• Super fast sort by alph. or zip order (8 sec. for 1000 
entries) ..both orders can exist simultaneously on disk. 

• High speed recovery of entries from disk ...speed of sort is 
meaningless if retreival from disk is slow. ..ours pulls in 
over 11 per %fr< 

NEW • Transfers old files over to our system. 

• In zip order all entries with same zip code are also 
arranged alphabetically. 

• Four digit zips have a leading "0" appended on labels. 

• Backup data disks are easily updated as entries are 
created, edited, or sorted. ..extremely useful!! 

• Optional reversal of name about comma for that non- 
computer, personalized look. 

• Master printouts of your list in several formats (not just a 
rehash of the labels). Optionally continous or pages 
oriented... Your customers will want this! 

• All 0's in address labels are replaced by easier to read 0's. 

• All labels optionally support an "Attn:" line. 

• Many user defined fields with plenty of options for 
simultaneous purging and selecting. ..even allows for 
inequalities.. .powerful and easy to use!! 

• Continuous display of how many addresses printed. 

• Each disk entry automatically "remembers" how many 
mailings have been made for that particular entry.. .Can 
be tied in with purge/select. 

• Primarily written in BASIC for easy modification... 
embedded machine code for those speed sensitive areas. 

• Editing is simple and fast. automatic search. 

• Optional 9 digit zip. 

• Deleted entries have "holes" on disk filled automatically 
...and alph. order is still maintained! 

• Test label printing lets you make horizontal and vertical 
adjustments with ease. 

• Optional "one time" mailing for some selected entries. 

• Extensive use of error traps (both operator and machine 
induced)... even recovers from a power failure during a 
printout!. ..recycling on disk errors. 

• Patch program allows you to upgrade the system to 
any DOS 

• Documentation manual available separately for $3.95. 

• Hardware requirements: 32K printer, and 1 or 2 disk drives. 



Provide your customers with a CALENDAR $19.95 

printed calendar (along with standard banker's holidays) of any 
month of any year. .Useful in motivating history students. Holds 
the same fascination for students as a game. Tape only for 
Model I or III. 



Same features as Calendar. SUPER CALENDAR 

Additionally prints out large 

"graphics" type wall calendars (tape only) $29.95 

with memos under each day. Use as a planning calendar with 
optional disk storage-requires 16K and printer. 



Football Scouting Report (8$) $89.95 

How many high schools and colleges are there within a 75 mile 
radius of you? Did you know that each is a potential customer at 
the rate of from $500-51000 per season? Many already subscribe 
to more expensive (but inferior) computer analysis services of 
their scouting reports. Using such a service a coach will typically 
have an opponent scouted several times prior to actually playing 
them. ..This series of programs was written to the specifications 
of a coach with two state championships to his credit. As a 
result, the emphasis is on producing statistics that will help in 
predicting what the opponent will do in a given situation ..This is 
a sophisticated set of program, fully equivalent to that used by 
professional football teams. 

• Separate and detailed analysis of running, passing, and 
kicking. 

• Passing and running tendancies by field position 

• Point of attack tendancies and statistics for runs. 

• Tendancies and statistics for wide/short side, weak/strong 
side, and left/right run. 

• Each analysis can be broken down according to forma- 
tion, down, and yards to go. 

• Allows for up to 5 games to be analyzed simultaneously. 

• Convenient disk storage of plays and games. 

• Extensive error traps, won't let you make an error. 

• Two actual games (almost 100 plays) on disk to facilitate 
your learning and evaluation. 

• Documentation available separately for $395. ..even 
includes some advertising and price samples to help plan 
your promotion Also included are some sample printouts 

• Hardware requirements. 32K, 1 disk driver and printer 



Interfaces to your own 
basic programs. ..sort with 
the speed of machine code 
but with the convenience 
of basic. You don't have to 



FAST SORT 

(handles multiple dim. arrays) 

ALPHABETIZER 

(disk only) $19.95 



know assembly language programming to use these programs 
Just use your disk to merge our short basic programs (with 
embedded machine code) with your own basic program. Follow 
our simple instructions to poke several values before making the 
user call from basic The pokes will set up a sort for string, 
integer, single, or double precision arrays Also ascending or 
descending order is controlled by a single poke Use one of two 
programs to sort arrays of the form A(1) or A(Q(1)).. The disk 
includes 8 simple basic programs that are ready to merge with 
the main sort programs. Use them for learning and 
evaluation. Also included is a ready to use basic program 
(already merged with the ORDER program) Use it to obtain a 
printout of alphabetized names. This program alone is worth 
$1995. 

Sample Sort Times 
8 sec for 1000 dbl. prec numbers. .50 sec for 5000 integers 
(Ours is one of the only alphabetizes that both ignores non alph 
characters and treats upper and lower case alike.) 



LOAN AMORTIZATION 
$19.95 

(Tape only for Model I & III) 



Loan amortization sche- 
dules are a must for banks, 
S & L institutions, and 
accounting firms. You will 
be able to charge $5 plus per schedule. Multiply that times the 
number of all loans your clients make per day. ..easiest money we 
know of!. ..runs in about 2 minutes and achieves pin point 
accuracy with a built in calendar. ..This sophisticated program 
produces an exceptionally professional looking printout. 



Precision Prototypes 



4101 Rora 
Refugio t« "HI" 



• Spec it\ Model I or III tthen ordering 

• Add SI >l> postage and handling 



\ isd 

Master< barge 

C O 1) 



-'See List ol Advertisers on page 402 
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use with a printer only. If you at- 
tempt to use them with no print- 
er attached or the printer off, the 
computer will freeze when it at- 
tempts to execute a print. 

Grade Book Printer 

Remember that when you 
typed the names of your stu- 
dents into the data base builder, 
I said it was the last time you'd 
have to do it? Here's proof: The 
program is designed for 9.5 inch 
by 11 inch pin feed paper. After 
the print operation is com- 
pleted, I tear off the perfor- 
ations, punch three holes in it 
and put it in a looseleaf note- 
book. If the page gets full, I gen- 
erate another. The program 
prints 10 characters per inch 
and six lines per inch vertically. 
It will print one section per page 
and automatically advance to 
the next page for the next sec- 
tion. I use Okidata's Microline 
80. If you use this program, you 
should change line 1015 to 
reflect the name of your school. 



There are two operator entries 
required at the beginning of the 
program, the teacher's name 
and subject. Once these have 
been entered and the tape is in 
place, the program takes it from 
there. 

The Section Roster Printer 
program is similar to the grade 
book printer except that it prints 
the grade status of each student 
instead of a series of boxes. 

The Failure Notice Printer 

One of the objections often 
heard from parents is that the 
school doesn't communicate 
with them regarding their child's 
grade. Teachers have a tremen- 
dous amount of paperwork to 
do, and it is easy to ignore a fail- 
ing grade. This program reads 
the data tape and generates a 
note to the parent of each child 
who is not passing the course. 
After all notices have been 
printed, the program prints a 
report for the teacher so he can 
keep track of the signed notes 




"NEW USES FOR THE 

HOME 
COMPUTER 

IN THE 

STOCK 
MARKET" 



A new book— contains a sold mine of ideas!! 

Do you have the great stock and commodity trading advantages 
given by the home computer to the few who properly us it? This 
book gives you a new insight into cycles and seasonal factors as 
they affect stock and commodity prices. It gives you solid tools for 
measuring and profiting from them Obtain ideas and programming 
never before published. The writer has over 20 years experience as a 
stock broker and 8 years experience programming computers Book 
is 8V? inches by 11 inches and has 254 pages and 34 programs writ- 
ten in TRS-80 BASIC. 

The book borrows methods long understood by radio and electronic 
engineers but overlooked by most statisticians Thus, it is able to 
present methods, never before published, of stock and commodity 
market timing using cycles and seasonal variations 

To order book— send check S19.95 and your name and address 
to: 

Thomas V. Lenz, Dept. M 

596 W. Karval Ct. Sprins Creek 

^ Elko, Nevada 89801 '** A 
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as they come back. I use roll 
paper to print these notes with a 
cut line for separating them. 
They are designed so they can 
be folded and stapled with the 
name and section showing. 

If you want to ease into it, try 
the data base builder and grad- 
ing program first. Once you've 
done this much, you'll either be 



hooked or hate it. If my ex- 
perience is any indication, you'll 
spark a lot of other people's in- 
terest when you sit with your 
feet propped up reading your 
favorite professional journal 
while your colleagues sweat 
over their grade reports. What 
used to take me two hours now 
takes me 20 minutes! ■ 



IB REH 'PRINTS A GRADE BOOK PAGE FOR EACH SECTION* 

20 CLEAR 5BB: CLS: PRINTS, '"GRADE BOOK PRINTER* •": PRINT: PRI NTST 

RINGS(63,'") :PRINTTAB(26) 'WRITTEN FOR" : PRINTTAB ( 21 ) "NORTHERN MI 

DDLE SCHOOL" :PRINTTAB(31 | "BY" :PRINTTAB( 25) 'ROGER J HEDDEN" : PRI NT 

§982,"*AI.L RIGHTS RESERVED" j :GOSUB5010i CLS 

24 L»66iLS$«"AAA":INPUT"TEACHER'S NAME " ;T$ ! INPUT"SUBJECT ";SS:C 

LS: INPUT' INSERT DATA TAPE AND PRESS ' PLAY " :C$: CLS : PRI NT'WORX ING 

58 GOSUB 2816: "READ RECORD FROM INPUT FILE 

48 IF LEFTS(SC$,2)OLEPT$(LS$,2)THEN GOSUB1818 

58 IF LN$<>'END'THENGOSUB3B1B:GOT038 

68 PRINT' JOB COMPLETE" : END 

1888 END 

1818 IF L066TI1EN GOSUB4B18:IF LN$-=" END "THEN RETURN 

1815 LPRINTTAB(lb) "N ORTHERN MIDDLE SCHOOL 

":LPRINT* ' 

1828 LPRINTTAB(5) SS;" - " )TS;TAB(68) "CLUSTER " ; MIDS (SCS , 2 , 1 ) : LP 

RINTTAB(5) STRI NGS (78 ,"*'): LPRINT' ' : 1,-6 : LSS=CSS 

1838 RETURN 

2888 END 

2818 INPUTt-l,l,N$,F$,MF$,SC$,PTS,PP 

2828 RETURN 

3B88 END 

3B18 LPRINTTABI4) LN$)* r ' ; LEFTS IFS, 1 ) ; TAB( 28) SCS; TAB ( 24) ' "; 

3828 FOR X-1T017 

3838 LPRINT'..:"; 

3848 NEXT X 

3845 LPRINT' ' 

3858 L-L+1:LSS=SC$ 

3868 RETURN 

4888 END 

481B FORS'LT066: LPRINT" ":NEXT S 

4B2B RETURN 

5888 END: 'TIMER DELAY 

5B18 PORZZ=1T0188B:NEXT:RETURN 

Program Listing 6. Grade Book Printer. 



18 REM 'PRINT FAILURE NOTICE REPORTS AND REPORT' 

28 CLS:CLEAH 4888 : E-B : I -1 : PRINT086 , "*«FAI LURE NOTICES" ": PRINT: P 

RINTSTRINGS163,"*") : PRI NTTAB ( 26) "WRITTEN FOR" : PRINTTAB! 21 ) 'NORTH 

ERN MIDDLF. SCHOOL" : PRINTTAB( 31 )" BY ": PRI NTTAB( 25 ) "ROGER J HEDDEN" 

:PRINT09B2,"*ALI. RIGHTS RESERVED*; 

25 DIM LIS (158) , PIS (158) ,S1$(158) ,C1(158) :G0SUB1B1B:CLS : INPUT'TE 

ACHER'S NAMf;TS:INPUT"TEACHER'S SUBJECT" ; S$ : INPUT'REPORT DATE"; 

DS:CLS:INPUT"LOAD DATA TAPE, PRESS 'PLAY', THEN , ENTER";GS 

38 INPUT»-1,U1S,F$,MF$,SC$,PTS,PP 

48 IF LN$="END" THEN GOSUB 2818:END 

SB IF INT(PTS']88/PP)<6e THEN GOSUB 3818 

6 8 GOTO 38 

70 ••••••»•••«•• END OF MAIN PROGRAM ••«•••••••••••«•••••«•••• 

1888 END: 'TIMER DELAY 

1818 FOR ZZ=1T018BB:NEXT:RETURN 

2888 END:'PRINTS MASTER REPORT 

2818 LPRINTSTRINGS(8B,'-') : FOR L-1T03 : LPRINT" " : NEXT 

2828 LPRINTTAB(16)'N ORTHERN MIDDLE SCHOOL 

' i LPRINT* " 

2838 LPRINTTAB(5)SS;" - " ;TS;TAB(68) DS 

2848 LPPINTTABf 5)STRINGS(24,"") ;' FAILURE REPORT " ; STRI NGS( 24 , " 

•") :LPRINT' * 

2858 FOR S=l TO E 

2868 LPRINTTAB(5) LIS I i>) ! TAB ( 28) F1S (S) ; TAB ( 35 ) SI S (S) ;TAB ( 45) 

Gl (S) ;TAB(55) "RF.TURNED-I )" 
2B7e NEXT S 
2888 RETURN 

388B ENDt'PRINTS A FAILURE NOTICE FOR EACH FAILING STUDENT 
3818 IF MFS="K" THEN PNS="HIM* : POS-'HIS" ELSE PNS-"HER" : PO$-"HER 

3B3B LPRINTSTRINGS(80,"-") rLPRINT" ":LPRINT" ' 

304B LPRINTTAB(5)I.NS;", "; F?;TAB(65) "SECTION "; SCSt LPRINT" " : LPR 

INT" " 

3858 LPPINTTAB(1B)"I THOUGHT THAT YOU SHOULD KNOW THAT ";FS;"S 

";S$;* GRADE IS* 

3B6B LPRINT" PRESENTLY "; INT(PTS*188/PP) ; "% . PLEASE TAKE A FEW 

MINUTES TO DISCUSS THIS WITH ";PN$;".* 

3B7B LPRINT'IF YOU HAVE ANY QUESTIONS ABOUT ";POS;" WORK, PLEASE 

GIVE ME A CALL. ": LPRINT* * 
3080 LPRINTTABI IB) "PLEASE SIGN AND RETURN THIS WITH ";FS;". THA 
NK YOU." tLPRINT* " 

3B9B LPRINTTABI 48) "SINCERELY," iLPRINT" " 
3188 LPRINTTAB(48)TS;" - *;SS:LPRINT" " 
3110 LPRINTTABI 5) STRINGS ( 28 ,CHPS ( 95) ) ; TAB .68 )M 
3128 LPRINTTAB( 5) "Signature" 
3138 FOR L'lTOlS: LPRINT" ":NEXT 

3140 LIS! I) =LNS:F1S(I)*FS:S1S(I)-SC$:G1(I)=INT(PTS*18B/PP) : 1-1*1 
:E-I 
3158 RETURN 

Program Listing 7. Failure Notice Printer. 
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Enter The Soft Sector Marketing 

ARCADE CENTER 



4 



tff ALIEN 
^J DEFENSE 

f *1981 Soft Sector MkT. 

Mod I Of III Tape. 16K 

$19.95 
Mod I or III Disk*, 32K 

$24.95 

0"iy Mod ii v»r»on nas 
t<t»-X3»C Gtaohtct 




ROBOT ATTACK 

DyBig5 

Mod I b\ III Tape 
$15.95 

Mod I & III Disk 
$19.95 



GALAXY 
INVASION 

DvBtQ5 

Mod I & Hi Tape 
$15.95 

Mod l & Hi* Disk 
$19.95 




SUPER 
VADERS 

•1981 Soft Sectc Mkt 

Mod I or HI Tape $19.95 

Mod I Disk $24.95 

Mod Hi Disk $24.95 

- 2 Player- 10 Levels - 

As« tor upgrade info for 

fttVADErcSPlUSA 

T7S-SUPW IWADWS 




SCARFMAN 

•1981 Cormoft Group 
Mod I & III Tape 

$15.95 

Mod I & III Disk 

$19.95 



METEOR 
MISSION 2 

bv Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk' 

$19.95 





AnACK FORCE 

by Big 5 

Mod I & Hi Tape 
$15.95 

Mod I & ill Disk* 
$19.95 




SUPER NOVA 

cyWgS 
Mod I & III Tape 

$15.95 
Mod l & III* Disk 

$19.95 



«• * •* * * ** * * 



LUNAR LANDER 

by Aoventjre 

Mod I 8c III Tape 

$15.95 
Mod I & III Disk 

$20.95 





STAR FIGHTER 

dv Adventure 

Mod I & III Tape 
$24.95 

Mod I Disk 
$29.95 



"These Dish versions save nigh score to dfctc 

SPECIAL DEAL- This Month Only 

Purchase 1 Game - Ust Price / Purchase 2 Games - Deduct 10% 
^*-> Purchase 3 Games - Deduct 15% / Purchase 5 Games - Deduct 20% 

^S-T7 - SPECiAl DEAL apples omv to ga»"n« purchased fro~ m* ad. at one time one a* Is* pice - 



y 



\ 



SOFT SECTOR MARKETING, 

INCORPORATED 



• s»» 



Oraer Line Only 
800-521-6504 



6250 Middlebelt 
Garden City. Michigan 48135 




Ml Orders & Questions 
(313)425-4020 

I Page 1 d 



s S4* iw o> Aevt*r**rs or e*9* *Oi 
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If you are looking for 

The Finest In 

Word Processing Systems 

you can . . . 

1. Purchase and examine all other 
word processing programs on the 
market and then purchase Lazy 
Writer® 

or . . . 

2. You can purchase Lazy Writer® 
first. If s your money! 



^^ GUARANTEE^- 

Lazy Writer® comes with a 

30 DAY, MONEY BACKt GUARANTEE 
Guarantying There Is Nothing Even Close! 

tLess 10% restocking charge. 



Lazy Writer® Mod I still only $125.00 

till Dec. 31, 1981 

Lazy Writer® Mod III $175.00 

"Requires 2 Disk Drives to convert only. 

m^mmmmmm—mm SPECIAL DEAL 

Purchase Lazy Writer® and receive, this month only, 
MICRO PROOF with the correction feature and patched to Lazy Writer® 

Only $149.50 extra 

Reg. $184.50 

Now available from 

SOFT SECTOR MARKETING, 

INCORPORATED ^4* 

For those of you who requested 
a spelling checker to use with Lazy Writer® 

MICRO PROOF 

Product of Cornucopia Software 
EASY TO USE 

50,000 WORD VOCABULARY & EXPANDABLE 

RECOGNIZES PREFIXES & SUFFIXES 

REQUIRES ONLY 32K OF MEMORY & 2 DISK DRIVES 

AFFORDABLE & AVAILABLE IN THREE FORMS: fully independent program to identify errors- 
independent program to identify and correct errors; or with a conversion program that 
will permit MICRO PROOF to operate from within. 



New Lower Price! Was Now Only 

TRS-MOD I or III Version $125.00 $89.00 
Correcting Feature Add $60.00 
Word Processing Con- 
version for Lazy Writer* Add $35.00 



Let MICRO PROOF 

Find Your Errors 

Before Someone Else Does! 




COD. - certified check. M.O. or cash only Most orders shipped next day All orders must have shipping included 
Please add 2% or $2.50. whichever is higher for shipping. Michigan residents, please add 4% tax Add extra S 1 50 
for COD. Personal checks take 3 weeks to clear. mm*** 

Out of the country orders add $10.00 extra shipping Order Line 800-521-6504 

•TR*«l u a ooduct o« Room Shock, division of me TanoV Corporonon M| OderS & QueStJOnS 31 3-425-4020 
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The Serious Side of Computing . 

Business Programs 



THE COMPLEAT IDIOTS BOOKKEEPER (TCIB) 

Product Overview 



OENERAL DESCRIPTION 

MCKMOUNO SEPARATF - This program mod* a specified data fkeond check! each dale Each month* 

TCIB was written by Larry Roper. Larry is a Chartered Lite Underwriter and Licensed Lite transactions are copied Into a separate file if mere are no transactions tor a given month, no 

insurance Counselor He rx» consistently ranked omoryj the top Soles Monogers nationally in file is creat e d The files created ore nomed JAfVDAT. FEB/DAT. etc This unity con be run 

his company for the past several years He also writes software for nsuronce ond finoncai several times during on accounting period If a required monmty data file akeody exists, the 

planning applcotions TOB came about as a result of a humikotmg vsrt Lorry mode to ha new data wW be added to it Otherwise It wW be created and me new data entered into rt 

OCCOuntont - carrying a briefcase ful of unorganized Checks, receipts ond other financial REPORT GENERATOR - The program represents the fine step n transforming unorganized 

inf d rmaton Asoresurtof mot visit, he decided mere hod to be a better way TOB is me result financial data mto useful finoncoi reports 

of mat experience Aflw >ou f^^ iNSERTed your financial data EDfled it to your scrhstoctrcn PURGEd RERLEd 

It is intended mot mis set of programs should be easily usable by ony person whohosto orKiSr^ARATEd as you wont, you ore rwwreody to rtDExri ond REPORT The report generator 

k ^^^^<^^' ir ^^» , <^^^^^^^^^^^^P^^^a n o^^^^ t ^'P^^ program first reods the index you hove built, ond based on mat presents you with a ftmjned 

capobfWies of this pockoge product Each rrwror category (the first Bern of your Index) wll be presented on a separate 

PflPBUCT fnTnllUTflt page, income entries wNI be shown as a simple, formated numeric votue Expense en Wei will 

Who* wW TCW dot DB <nown ^ porenthetes. Each page wll contain a running sub-total of the current motor 

category (mcome Items wll be added expense items win be subtracted) The sub-totoi win 

DetaaaMierlng-TOBprovidesa simple method of entering yourfVvjrv^.nkxmahonintoa also be preserved rn ft* ctx>ve format Frowy a summary page wa be printed Itemizing 

disk Me A format screen a presented which wni prompt you for entry of the requrred data from each map category covered n the report (such os BS form 1040 Line »0 along with mot 

your records The foiiowng fields are provided category's sub-total finally on overo* totoi of 01 entries covered bv me index win be 

NUMBER OF p r es e n ted to finish your report 

FIELDNAME CHARACTERS MAKE- VC - An oddmonol utility progrom is ovoiobre at extra cost to ofiow the transfer of files 

identifier 8 from TOB to VlStCALC* Thrs mokes use of VBCALCs Dif" format and « very useful tor 

Dot* 4 performng sprx^ computations wtm data gathered by TCKJ ircidentoify if you wish TOB 

Poyor/Payee 16 (lies can also be created by VISrCALC* If you conform to me requirements specified m me 

Description 18 MAKE-VC program. 

Income or Expense 1 Product UnMaNem- Before we create the impression that this program rs the 'end oil and be 

Deductible or Non-deductible 1 (*Wlf Ui a<t ft >e»taitabOl<W»l e t M Wi lWWt l WHO* I n HH H lo w . 1tttMailir* M o n t *Ol0 DC& t i 

Amount 9 not o*inciurjri«. Doubtteu someone wm find someway in which to push the program past rts 

limits that we never thought of - however, this is a good stort PLEASE READ THIS SECTION 

A screen-anented editor' allows you to see me whole record os you ore entering If You ore CAREFULLY TO AVOID DISAPPOINTMENT 

•»*£ Dmm °m2? Wt> k *«^^P'<^.^'^™^VOu entered entirety mBASC Theprogror™cxefurrwhedtoycu"UT*TOTEOTDso^ Wr.«tM, 

forpoe»«D»eerr OT -and(2)ossurrxrx)noerr«wmemereccrdtomedekf»» ^ ffl ^ appo^^ to ^^ p^g^, ood/ormooWyrt to your specoi needs (AT YOUR 

Since most people ore not able or wiling to post every (Vxxxiioi transaction irrvr**dkjteryos it OWN RISK Of COURSE) interpreted BASIC rust isn't os fast os mochme language 

?"* P*** 11 ? 1 .— !" "■—* r ^ ***y* j*> * !*« ^.M'' »»** 2) The program does o LOT of string rranlpukjton. As o result, at rimes the compute, w.11 

SS221S22 &5L225?E£22, * am0 Ch *2^* 2 2S a . Ch * 3< 22 "%** occosonaly hove to stop and colecr It, wits' (i.e do garbage collection' on rts string 

covering the sarr* transaction) A PURGE r*ogromgukJesrhecomputertosearchyourfiieor space) •—«'»-*- ■»» 

files for possible duplicote entries and If found present them to you for disposition »***^;- 

_^_ .. ■ — , ^ .m«-~r.«___w«». . - -^ -/_ k. ■ . The answer to mis pecuHonty is 'DON'T PANIC - we hove never seen a "garbage collection" 

SSSSSSSSJ^SSESS K ^ < ^^^* MC *^i!S^'^^ 0d0,Q «^utcto^moremonafewm«rxK,tiJustwotchformecur» ffrii»na.h£goihVUilondYOu 

manpuiaron feature). TCr3 also feah^es oftx* rr»x»tont data mancuwion oWrtK* con pwceedwtm data entry tf«lsr«fflo*^r«axorrKXTW,tonaproc^w f ^itr«urn« 

EDIT - oiiows you to retneve. edit or delete any record inonyTCBfUe You con retrieve o noshing You con type as fast as you wont In data input We hove yet to see onyone able to 

record by its record number You con search any field of on or part of a file tor any record type foster than me program con accept me data 

^ ,af ^yy- l ^^. < ry? o '?. [ ^ rfm0tor P Btflela Vc^conoisodoornurrlplerie. 3) Th ^ ^ restrict*** on me amount of data you con handle wtm TOB 

smote or muitpie field seorch of from 1 to 20 separate flies in osrngieseorch after building me 

appropriate index Any time oseorcn results in retrieving a recxid me record w»i be disproved Disk Storage- an data being used by me programs MUST be ondisKs) mounted on dnvejs) 

ond you wu hove the choice of corrymg out ony desred edrtmg functions When vou are currenfty in use. Swopptng of dafodisks during progrom operation is NOT supported. You coa 

finished with the record currently being approved you wll hove the choice of continuing wtm nowever. use as mony drives os your hardware ond operotng system wll support Youshould 

me seorch returning to normal edit functions, editing another file or returning to the main be able to use ony type of disk your hordwore and operotmg system win support. (We hove 

menu no> tested the program wtm anything besides 5 W drives, but If problems arise, let us know 

THDtt-^pK>9mtm**»tm***ia****om*ii»cttmi*<*t9ni*X> "* "* — * ** ** to h * p *" °^ come "-**> 

selected ties The index con span one or more fields in o single record. This information is Computer Memory- TOB requrres 48K of RAM (ond uses every bit of it. I might odd!) The 

sorted ond stored on the disk The REPORT GENERATOR and EDIT programs use me index to NOB®' program leaves 15000 bytes free m which to buid on index Therefore, thrs is your 

control their access to the chosen files moirt piogram limitation The index itself uses 5 bytes per recora for its own overhead An index 

Ti^irv<^,«i*T%»«ifr 1 ri™«ri m . m ^in/^«^-t-.r^ m -»^*^irr«i,-~w<. n.~s-.*~.«i-, bu "' °^ me cahoot* field (5 bytes) plus me date field (4 bytes) would use 14 bytes per record 

ineinoexis>rnirearoamaxmumor >u character nomeocn or 1 Quo records rmorefhanlv rc±ji*x\ «. * ..iw.. -,-,,-■ ~-. _ - . _^_. _ ^_ ^ ...^ rv»»^. 

_. ^ _ ,_ ,^. _...-_ ^_ ^^ ^.^. , ^ __ » (,34440) Astuiiiuuurecorosconbenonowawtmos>x^inowbuinonmesenelds Ontne 

characters per record ore used m building the index, the number of records to which it con «»t^«.rw»v< «,»<., ►%.-« «r, ~*~~^,/t ►^i«. \ *.*~Zia k^.^-w^mi kj^, 

source code, you o>e free to play wtm the string space and odex arrays if vour DOSIeoves >_»__ »_.• :. L-.-VT. ,. ___ lfc__— „„ _ __u„^_».~ _ oc»,iu — i*\^L 

you more headroom bottomhne is-dont putrrxxeinf«rrrotioninyc<jrirxJexmcriyc«jRr>UYneed»yOuwantto 

nxmmae tt» number or records >ou con noodi© Also- keop an eye on available disx sooc© 

REFILF- The purposeof this utility program is to arlowyou to build o new file by copying ony when you are burMmg on Index Be sure there is enough room or you'll wind updoingitover If 

records in on old file which satisfy your search requirements to the newfile You can olso copy the program encounters a disk fuir error while writing the Index It will close the indexfiie. kill it 

selected records from one file to another in the some way This seorch con bo done wtm o ond tel you to provide enough disk storage before trying again. 
MATCH or NON-MATCH test For example, when you instruct the EDfT progrom to DELETE o 

record it replaces the contents of the identifier field wtm "DELETED' You con then use the . .^ . ... Aau . .. a. b A , 

WRLEuttity to copy oil recc<ds which DO NOT hc\*DB^TTiD as thee MOO I Of 111, 40K, 1 OnV© >4»y.y5 



CRITPATH* 

•1980 PM Programming 
CUrT" ATM* will hel p 

- Determine the earliest possible completron dole tor your 
project 

- Identify the critical activities in your project the jobs thai 
will dekjy compl»tKXi of the entire project if they ore not 
completed on time 

- ProvKJeyou with ttw scheduled stort ond finish date for 
oi protect octrvities so you con pton your looor ond 
moterioi needs to vjppoft the protect compietxjn date 

- Develop the informahon needed to permit you to shift 
resources ond funds to critical activities from those 



octrvtries rndenfified Dy the program as being copaoie of 
delay without delaying the completion of the project 
CWTFATH* pftjytdei you wtth 

-Both screen and printer outputs of your schedule in work 
days, tabulating the earliest start/ finish and latest start/fi- 
nish day as well as the total float for each project activity 

- The length of the critical path in work doys. 

- A listing of on octrvtties that are on the critcoi path -jobs 
fhat cannot be delayed without aeroying the entire 
protect 

- A printer output of the actual calendar dates for tne 
earliest start/finish and latest start/finish otong with both 
free ond total float for eoch octMty 

- Your choice of printing out oota sorted consecutively 



MAKEVC 

•1981 SFI Chonges OtOT files to VIS CALC interchange 
format or take vC files and makes it into IDIOT reodabie Me 

Now Only $34.M 

Make VC requires Compleaf Idiots Bookkeeper 



Specioliy designed for builders, by a builder Also works 

well with many other businesses 

MOD I ... ieOO.OO 

MOD Ml $710.00 

Manual tM.OO 

Overview .... free 

Requires 48K 2 disk drives and 132 column printer 




COD - certified check, M.O or cash only. Most orders shipped next day. All orders must have shipping included. 
Please odd 2% or $2.50. whichever is higher tor shipping Michigan residents, please add 4% tax Ada extra $1 .60 
for CO D Personal checks take 3 weeks to clear rVr-H^r I irua AfWi R*!M AltfVA 

Out of the country orders odd $10.00 extra shipping Uraer Line OUV9*tl -09V4 

-T RS-80 is a product or Oodio Snack, division of me Tandy Corporoton Ml OrCJGrS & Ql_r6StiOnS 31 3*425 '4020 




vSee List ol Advertisers on page 402 
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UTILITY 



An old fashioned project for sentimental Model 15 owners. 



Baudot LPRINT 



Wlnford Rlster 
Route 10, Box 33 
Lake City, FL 32055 



It only took a few hours on my 
new TRS-80 for me to realize 
that some type of hard copy was 
essential for any serious pro- 
gramming. Not being willing to 
invest the amount of money nec- 
essary to purchase a good print- 
er, and preferring not to buy an 
inferior one, I took a hard look at 
using my model 15 teletype, at 
least as a temporary measure. 

Now, unless you either own a 
baudot machine or can get one 
for a short song, the conces- 
sions which go along with using 
one make it impractical. The ma- 
jor disadvantage is not the lack 
of speed, but the inability to 
print many of the standard ASCII 
characters. The snail's pace 
printing is annoying, but if you 
plan your evenings well you can 
overcome that part. Just do your 
LLISTs and long LPRINTs as 
you watch television or while 
having your evening meal. 

If you are still reading I as- 
sume you are either as stubborn 
as I am, have your own baudot 
printer, or are curious. Assum- 
ing you have a current loop driv- 
er which is TTL compatible, the 
hardware interface is very sim- 
ple, requires no modification to 
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the TRS-80, no connection to the 
keyboard port, and does not in- 
terfere with any cassette opera- 
tion. It does connect to the cas- 
sette port and therefore requires 
a method of connecting to the 
miniature phone plug that goes 
to the recorder. I installed a sim- 
ple Y adapter in my recorder, 
plugged the lead from the key- 
board into one side, and the wire 
going to the printer interface in- 
to the other side. This elimi- 
nates constantly plugging and 
unplugging the recorder, and 
running the risk of breaking the 
wires from fatigue. The two 
functions work well, though 
wired parallel. 



Hardware 

The circuit is shown in Fig. 1. 
A machine-language program 
takes input from the LPRINT 
function, converts the data to 
baudot, serializes it, and out- 
puts it to the cassette plug. 

This output is fed into one 
section of an LM3900 op amp to 



ASSETTE -JIUX - 



X 



-»- 



I 



1/4 I M 19 00 



bring the 0.8 volt pulses from the 
recorder port up to TTL level. 
The two sections of the 7414 
Schmidt trigger inverters serve 
as buffers. The output of the 
7414 goes to your TTL drivable 
current loop. Several articles 
have been published In 73 and 
Kilobaud for 60 and 20 mA cur- 
rent loops. 

In this configuration a mark 
condition is represented by a 
high TTL level. This causes the 
loop to be active when the pow- 
er is on the interface except 
when the TRS-80 sends a space 
signal. This prevents the ma- 
chine from running "open". 

Since this is a temporary mea- 
sure for me, I stopped with the 
breadboard version of the inter- 
face. I have been using it for sev- 
eral months without any prob- 
lems. 

Software 

The program is straightfor- 
ward, although it may not ap- 
pear so. Program Listing 1 is the 




1/6 7414 

&4* 



TO TTY 

LOOP 

ORiVER 



I 



RESISTORS ■ 1/4 WATT 



Fig. 1. Circuit Diagram. 



assembly listing (the program 
was hand assembled). The char- 
acter to be LPRINTed is passed 
to the LPRINT routine In the C 
register by Basic. The normal 
LPRINT routine begins at loca- 
tion 058D H, which is pointed to 
by locations 4026M and 4027H 
of the printer device control 
block (DCB). This Basic program 
POKEs the starting address of 
the new routine into these loca- 
tions. That is, it puts location 
7F00H into locations 4026H and 
4027H. All subsequent LPRINT 
or LLIST commands will now go 
to our new location. 

The character to be printed is 
limited to 7FH (to limit the table 
size). The program checks the 
incoming character for specials 
such as space, carriage return, 
%, <, = , etc. After this check- 
ing, a determination is made as 
to whether or not the carriage 
should be shifted. Once this de- 
cision is made, a flag is checked 
to see if the printer is in the nec- 
essary condition, and if not, sets 
it to the proper condition. Since 
there is no feedback from the 
printer it is necessary to disable 
the "unshlft on space" feature. 
(On the model 15 this is a lever 
just above the keyboard.) 

Now that our routine has prop- 
erly determined the printer con- 
dition, it gets a substitute char- 
acter from the table 7B00H to 
7E7FH, for the ASCII character 
to be printed. This character is 
passed to the OUTCH subrou- 



6 ways to give 
your TRS-80* a 



+ PLUS 



Exhaustive research and professional standards 
bring you the best in business software. 



EASYTRAK 

KEEP YOUR SALES CURVING UP- 
WARD WITH EASYTRAK ,m , a powerful, 
all-purpose activity tracking system. User- 
specified options enable you to monitor 
sales activity by territory, product line, 
salesman, or by combinations. Can 
monitor inquiries, sales calls and order 
booking. Production activity (by shift, by 
product, by day. by team, 
etc.). spending or in- 
come activity are simple 
to set up with LASY- 
TRAK ,m . Extensive video 
displays make available 
individual, group or total summaries, rela- 
tive averages, and percentage data all at the 
touch of a button. Use of an 80-column 
printer is optional. 



MODEL l/III 
MODEL II 



$125 
$150 



- GENERAL LEDGER 

SLICE OCIT MORE PROFIT by using 
* General Ledger to monitor your financial 
status. Features include fully-flexible finan- 
cial statements, both budget and last year 
comparisons, special report options, 
monthly and quarterly trial balances, man- 
ual and/or automatic journal entries all with 
extensive audit trails. You structure the 
chart of accounts with up to 5 digit account 

numbers. 

MODEL l/III $325 

MODEL II $350 





ACCOUNTS RECEIVABLE 

PUT MORE CASH IN 
YOUR BANK AC- 
COUNT with + Account 
Receivables many col- j^j 
lection/credit features, 
including average pay- 
ment days. aging » 
schedule and statements. ^» 
Open-item system records sales activity 
this year and last, optional automatic dis- 
counts and salesman assignment. Cash re- 
ceipts and A/R adjustments feature exten- 
sive on-line validation. And. yes. + Accounts 
Receivable handles the pesky new 9-digit 
zip code. Other optional features include 
service charges to selective customers: 
partial and "on-account" payments. Posts, 
at your option, to f General Ledger. 

MODEL l/III $325 
MODEL II $350 



I FIXED ASSETS 

A POWERFUL SET OF TOOLS TO 
CALCULATE and monitor fixed asset ex- 
penditures, book and tax depreciation, in- 
vestment tax credit, etc. Will even forecast 
future depreciation for you. (Handy at 
budget time!) Code structure enables you 
to classify assets by departments, buildings, 
groups or other categories. Handles seven 
depreciation methods. Can post to + Gen- 
eral Ledger for you. 

MODEL l/III $325 
MODEL II $350 




+ ACCOUNTS PAYABLE 

FUNNEL THAT STACK OF BILLS into 
-'-Accounts Payable system and create an 
orderly, manageable flow of vendor his- 
tories, cash requirements forecasts, check 
registers and checks, aging schedules, etc. 
Will accept manual checks, 
reversals, and adjustments. 
Pay by selected vendor, in- 
voice, due date, discount 
dates, and optionally post di- 
rectly to your t General 
Ledger. Supports 5-digit 
vendor numbers. 

MODEL l/III $325 
MODEL II $350 




PAYROLL 

KEEP YOUR EMPLOYEES HAPPY and 

smiling with prompt, accurate and profes- 
sional payroll records. Will handle weekly, 
biweekly, semimonthly, monthly payrolls, 
produce checks, check 
registers, labor reports, 
earnings reports. Form 
94 Is. W2's. etc. Can 
handle fixed/voluntary 
deductions, hourly 
salary employees, 
bonuses, city and state taxes, etc. Easy to 
use and update tax tables. Automatic 
- General Ledger posting. 




MODEL l/III 
MODEL II 



$325 
$350 



SPECIAL! All of the above: MODEL l/III $ 1600. MODEL II $ 1 750. 

+PLUS SOFTWARE comes to you feature-packed from on-line validation to 
machine-language file handling. Extensive documentation and thorough installa- 
tion guide accompany each order. All systems are furnished on disc. Source code 
is included. Texas residents add 5% sales tax. 



To order, call TOLL-FREE 24 hours 
1-800-231-7315 

>*See Listot Advertisers on page 402 



+ PLUS 



PLUS COMPUTER TECHNOLOGY, INC. 

POST OFFICE BOX 1152 

ANCLETON. TEXAS 77515 (713) 849-1108 



Dealer inquiries invited 

31 

TRS-80 is a registered trader-iar* ol Tandy Corp 

tASVTRAK is a trademark ol Plus Computer Tech IrK 

80 Microcomputing, November 1981 • 315 



tine in the A register. By using a 
timing loop the character is 
shifted out serially through port 
FF, the cassette port. All bits ex- 
cept bit are forced to during 
the LPRINTing. This keeps the 
cassette motor relay from trying 
to open and close at 45 baud! 

If you look at the baudot sub- 
stitution table, Fig. 2, you will 
see that the five-bit character 
has an eight-bit code. That is be- 
cause the substitute character 
contains the data bits, the start 
bit and two stop bits. The stop 
bit requirement is actually about 
one and one half times the peri- 
od for a data bit. But I found that 
my printer works perfectly with 
only one data-bit-length stop bit. 
So I ignore the second stop bit 



by only shifting out seven bits 
(location 7FBBH). If your ma- 
chine has problems you can 
change this to 08H and output 
eight bits. However, this will 
cost about 12 percent in speed. 

The timing loop period is de- 
termined by the value stored in 
locations 7E84H, 7E85H. I found 
that there is a wide range of ac- 
ceptable values, and this is the 
center of the range. If you have a 
faster baudot machine, this 
number will have to be reduced 
accordingly. 

Location 7F31 contains the 
character number upon which 
an automatic carriage return 
and line feed will be issued. No 
characters are lost in this func- 
tion. I made no provision for 



page format, yet a counter could 
be incremented after each 
CR.LF and checked for page 
length. 

Using the Program 

All addresses given are for a 
16K system, but this program 
works well in a 4K system as 
well. Fig. 3 lists the changes for 
a 4K system. Program Listing 1 
is the Basic listing. 

To use the program enter a 
number less than 32255 to the 
memory size prompt. For sim- 
plicity, I always enter 32000 
because it causes problems if I 
forget and put a five where a two 
should be. Next CLOAD the pro- 
gram and run it. As the program 
executes, it prints the hex code 



on the screen while it POKEs in- 
to memory. As soon as you get 
the Ready prompt you can re- 
move this Basic program from 
memory and use Basic as usual. 
Now the LLIST and LPRINT 
functions will operate your 
printer. 

For safety, I always LPRINT a 
number and letter to get the 
printer in position after I first 
load the routine. The motor 
should be turned on after the 
loop is activated and turned off 
before the loop is deactivated. 
Programs which do not heed the 
memory size restrictions such 
as the Editor/Assembler will 
have to be modified (Kilobaud, 
Jan. 80) if you want to use this 
hard copy routine with them. 



Character Hex Code 


Character 


Hex Code 


A - 


C6 


Q 


1 


EE 


B ? 


F2 


R 


4 


D4 


C : 


DC 


S 


Bell 


CA 


D $ 


D2 


T 


5 


E0 


E 3 


C2 


U 


7 


CE 


F ! 


DA 


V 


; 


FC 


G & 


F4 


w 


2 


E6 


H # 


E8 


X 


/ 


FA 


I 8 


CC 


Y 


6 


EA 


J ' 


D6 


z 


" 


E2 


K ( 


DE 


LFLF 


C4 


L ) 


E4 


CRCR 


DO 


M . 


F8 


SPSP 


C8 


N , 


D8 


LTRS 


FE 


9 


F0 


FIGS 


F6 


P 


EC 


IDLE 


FF 




Fig. 2. Substitution Table 





UNE 10 M » 19968 ' FIRST BYTE OF PROTECTED MEMORY 

L'.NE 100 IF M - 20102 THEN GOTO S00 

UNE 105 IF M > 20438 THEN END 

UNE 500 M- 20224 

UNES 1001 TO 1066 CHANGE ALL REMARKS OF 7EXX OR 7FXX TO 4EXX OR 

4FXX RESPECTIVELY 

1040 DATA 79,E8,7F,FE,00,CA>A,4F,FE,25.28,62,FE,20,28,67 

1042 DATA FE.3C,28.6C,FE,3D.28.73.FE,3E.28.7A.FE.5B.CA,A1 

1044 DATA 4F,FD,21,00,4E,CD,2B,4F,C3,3A,4F,F5,3A,80,4E,3C 

1046 DATA FE.49,CC.AA,4F f 32,80,4E,F1,C9.32.82.4E,FE.41,30 

1048 DATA 11.FD.CD.81, 46,28, 1C,D0,2A,82.4E.DD,4E.00.CD,BA 

1050 DATA 4F.C9.FD.CB,81.46.28.EF.FD.CB.81.86,3E.FE.CD,BA 

1052 DATA 4F.18,E4.FD.Ce,81,C8,3E,F6.CD,BA,7F,18,D9,3EJ5 

1054 DATA CD,25,4F,CD,47,4F,C9,3E,C8,CD,2B,4F,CD,BA,4F,C9 

1056 DATA 3E,4C.CD,25,4F,3E,54,CD,25,4F.C9,3E,45,CD.25,4F 

1058 DATA 3E.51,CD.25,4F.C9,3E.47,CD,25,4F.3E.54,CD.25,4F 

1060 DATA C9.3E,1B.CD,25.4F,CO.47.4F l C9.3E.D0.CD,BA4F,3E 

1062 DATA C4.CD,BA.4F.3E.00.32.80.4E.C9.06.07,F5,E6.01.EE 

1064 DATA 01,D3,FF.F1,CB.2F,CD.CC.4F,10.F1.C9.11.01,00,2A 

1066 DATA 84,4E.ED.52.20.FC,C9 

Fig. 3. Substitutions for 4K System. 



- - - LIICOS - - - 

CASSETTE OPERATING SYSTEM 
FOR RS MODEL I LEVEL II USERS 

THE LOWEST ALTERNATIVE TO DISK 
FEATURES: 

■ UP TO 9 TIMES FASTER THRUPUT 

■ LOGICAL RECORD PROCESSING 

■ NEW UICOS STATEMENTS 

OPEN - CLOSE - EOF - DEFM 

■ INCREASED TAPE CAPACITY 

UP TO 700.000 BYTES/SO MIN 

■ OPTIONAL 2000 BAUD TAPE ROUTINES 
LIICOS $34 99 COS-2000 BAUD $44 85 
ADD 2.0O SftH DOCUMENTATION $8 95 

1904)478 0769 

• 390 

CANTY ft ASSOCIATES 

8909 B ELLINGTON, PENSACOLA FL 32904 



«0EATHBLDW» 
An Incredible Flew 
SPACE ADUEriTURE 
From fc.D.5. In Basic 




Send Check 
Or Money 
Order To: 

I.D.S. 
PO. Box 1488 
Dallas. Texas 

'5221 OOCUMINIAI 



O 1BK 


- $ 15.00 


O 32K 


- $17.50 


D48K- 


- $20.00 


OAII 3- 


- $30.00 


m to infl 


01 w-.s 

ffOuHIB 


inn mi 


• 365 


ION INClUDfO 


e tot. nti 




* HARNESS* 

♦GREYHOUND * 
HANDICAPPING AIDS 

PUT A COMPUTER ON YOUR SIOE 

AND GET INTO THE WINNING 
HABIT WITH WelMur's SOFTWARE 

HANDICAPPING AIDS 

Designed exclusively lor um with 'TRS40 (Model I or 
Pocket Compultr versions), *t believe our HARNESS and 
GREYHOUND software handicapping aids aia The moil 
advanced and uselul «uch lyitemt available anywhere. With 
our software, your home computer doet all of your difficult 
and tedious handicapping chores quickly, effortlessly, end 
accurately in the Quiet and comfort of your home (or with 
me pocket computer, take it to the track with you I Not 
simply a mathematical e«ercise tool, rather years of research 
have gone into the development of the algorithms used. 
Designed for ease of operation while insuring a most com- 
prehensive approach. Both aids are available on cassette and 
disk (5V and 8") lormats and include a useful easy to-read 
User's Manual (NOTE: In addition to *TRS-80~s Model I 
and Pocket Computers, both systems ere available m 
MBASIC -for ••C»/M). Requires minimum 16K Level II 

Shop around -you can't beat the WelMur value the most 
cost effective systems on the market Just $79 96 for 
cassette end S34.9S for disk plus SI. 00 for handling and 
shipping costs (Calif, add 8% sales tax) Save with the 
purchase of two or more like systems Dealer discounts 
available. Allow three weeks lor delivery. 

Send Cheek, Money Order or request for add-nonel inform* 

Tron to 

WelMur of Califoma Inc. ^41 1 
PO Bo. M IIC 
Fremont. CA 94537 

'T'tdemarh ol Tandy CO'P ""T'edemarfc of Digital Rttaarcri. Inc 
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AMERICAN 



jL 



118 SO. MILL ST • PRYOR, OK 74761 
PHONE (918) 829-4844 



ALL LISTED PRICES ARE CASH DISCOUNTED. WE ACCEPT MC, VISA, AND COD (REQUIRES CERTIFIED CHECK, CASHIER'S CHECK OR 
CASH). FOR CHARGE ORDERS. PLEASE ADD 3%. FOR COD SERVICE, PLEASE ADD 5%. 
OKLAHOMA RESIDENTS PLEASE ADD4% SALES TAX. 

TRS-80 MODEL 1 
MINI DISK DRIVES 



Our Mini Disk Drives are based on the world famous 
TEAC Mini Disk Unit. The TEAC Unit features an esti- 
mated 8000 power-on-hours mean time between failure 
(that's 8 hours a day, 5 days a week, for 3.85 years!!). 
Our drives also feature a lead screw head positioner-not 
a band type positioner. This type of positioner insures 
accurate head positioning over the read-write media 
while giving a very quiet, noise-free read-write opera- 
tion. If you have any doubts about our drives, our one 
year warranty should convince you that we know this 
unit is the best drive at the best price on the American 
market. This is one example where you can pay less 
and get more!! 
M ODEL 1 40 TRACK FULLY TRS-80 COMPATIBLE 

DISK DRIVE *265 

MODEL 1 80TRACK DRIVE (Requires NEWDOS80 

or equivalent software to work) $369.95 

NEWDOS 80 (Version 2.0) $138.95 

BOX OF 10 VERBATIM 

DATALIFE OISKETTES $29.95 



$269 



COMPLETE DRIVE 
WITH POWER SUPPLY 




»*564 



TRS 

DISCOUNT PRICES ON TRS-80 
M ICROSOFT SOFTWARE 

Basic Compiler — MOD 1 159.95 

CPMorTRSDOS-MOD2 319.95 

Fortran-80 — MOD 1 79.95 

CPM Version — MOD 2 399.95 

COBOL (CPM Version MOD 2) 599.95 

M /SORT (CPM Version MOD 2) 119.95 

"ADVENTURE (MOD1, Disk Version).. .19.95" 
Olympic Decathlon (Mod 1, Disk Version).... 23.00 

Typing Tutor (Cassette Version Only) 14.00 

mu MATH/mu MATH SIMP-80 Symbolic Math 

Package $ Call 

Editor/ Assembler Plus 

(Cassette Version Only) 24.00 

DISCOUNT PRICES 

ON OTHER SOFTWARE PRODUCTS 

FOR THE TRS-80 

j NEWDOS 80 (Version 2.0) 

I MOD 3 or MOD 1 139.00 

| CORDOS (An enhancement to the TRS-80 MOD 2 
TRSDOS operating system which allows the use 
of a CORVUS Winchester Disk System). .300.00 



80 SOFTWARE 

Proofreader-Proofreader will check your scrip- COLOR COMPUTER GAMES 
sit*, electric pencil, soft-tex, or other documents AT DISCOUNT PRICES 
for spelling and typographical errors. Proof- 
reader can check every single word of even the Packet Man— Very similar to the popular arcade 
longest document in under 5 minutes! The 38,000 game "Pac-Man". In this exciting game you must 
word dictionary, one of the largest available, can dodge the munchkins who are out to eat you. 
be easily extended with a user auxiliary dictionary very challenging and impossible to beat. Our 
to add any number of new words (only limited by most played computer game!! Only. ..24.95 

disk file space). Only 99.95 

Color Space Invaders 21.98 

Soft-Screen— Soft-Screen is a state of the art full Meteroids 21.95 

screen text editor. If you have never used a full Game of Life 14.95 

screen editor before, you will be amazed at the Lunar Lander 14.95 

power it gives you. Soft-Screen can literally save 

you hours of work!! Only.. .99.95 BUY ALL 5 COLOR COMPUTER GAMES AND 

, _ SAVE EVEN MORE!! 

Grammatik-A spe II. ng checker may not be A ll5of the above games Only. ..89.95 
enough to catch all the dumb mistakes made by 
that less than efficient secretary!! Grammatik 

checks for capitalization, punctuation, balanced 918*825-4844 

parentheses, and doubled words ("The The"). RETAIL STORE LOCATION 

Grammatik also checks for sexist terms or esoteric SOUTHWOOD PLAZA SHOPPING CTR. 

jargon, word overuse, and misused phrases. PRYOR OK. 
Grammatik also includes utilities for adding your 

own dictionary of misused words and phrases. T juj TANDY CORP. „, u. 
Only... 99.95 



There are a few subtle traps 
which you should be aware of. 
An example is the substitution 
for less than, which is LT. If you 
list a program and later reenter 
it from the listing and don't 
catch the substitutions, you will 
run into problems. The break key 
does not seem to work while the 
printer is going, but it will if you 
will just hold it down until the 
TRS-80 issues a CR.LF. 

In summary I would like to list 



what I think are the most Impor- 
tant advantages and disadvan- 
tages of using a model 1 5 printer 
with your TRS-80. 



Advantages 

Baudot printers are easily ob- 
tained and cheap. This interface 
can be constructed for less than 
five dollars (excluding power 
supply). This routine is easily 
stored on cassette for easy 



7 raa 


79 




LC 


A,C 


GET CHARACTER 


7Fsi 


ES 7F 




AND 


A,7FH 


LIBIT TO 7F 


7FB3 


FE 8D 




CP 


A, SDH 


CHK FOR CR 


7F05 


CA AA 7F 




JP 


Z, OUTCRLF 




me 


FE 25 




CP 


A,25H 


CHK FOR " 


7FSA 


28 «2 




JR 


Z,OUT" 




7F8C 


FE 20 




CP 


A.2SH 


CHK FOR SPACE 


7 Fit 


28 £7 




JR 


Z, OUTSP 




7F1S 


FE 3C 




CP 


A.3CH 


CHK FOR LT 


7F12 


28 5C 




JR 


Z, OUTLT 




7F14 


FE 3D 




CP 


A,3DH 


CHX FOB EQ 


7Fl« 


23 73 




JR 


Z,OUTTQ 




7F18 


Ft 3E 




C? 


A,3EH 


CHK FOR a 


7FIA 


28 7A 




JR 


Z, OUTCT 




Trie 


n. 5B 




CP 


A.5BH 


CHK FOR 1 1 


7F1C 


CA Al 7F 




JP 


Z.OUTII 

IY.7ES9H 
IHlT 




7F2I 


FD 21 •• 7E 




LD 


INITIALIZE Y 


7F25 


CD 26 7F 


IM1TI 


CALL 




7F28 


C3 3A 7F 




JP 


CONVERT 




7F28 


F5 


IMIT 


PUSH 


AF 




7F2C 


3A SB 7E 




LD 


A,COUNTR 




7F2F 


3C 




INC 


A 




mt 


Ft 49 




CP 


A,4»H 


CHK FOR 73RD CHCTR 


TFJ2 


CC AA 7F 




CALL 


A, OUTCRLF 
COUNTR,A 




7FJ5 


32 SB 7t 




LD 




m« 


Fl 




POP 


AF 




TF3» 


C» 




RET 






7F3A 


32 82 7E 


CONVER1 


LD 


HBOX.A 
A.41R 

MC, LTRSET 
•,<IYiFLAC) 




7F3D 


Ft Al 




CP 


CKX FOR SKFT OR UNSHFT 


7F3F 


3B 11 




JR 




7F41 


FD CB 81 *« 


FICStT 


BIT 


SHFT TST 


TF43 


28 1C 




JR 


Z.OUTFIC 
IX.KBOX 




7F47 


DO 2A 82 7E 


CLOUT 


LD 


CET OFFSET 


7F4B 


DD Tt N 




LD 


A,(IXATSTRT)CET SUB CHRTR 


7F4I 


CD BA 7F 




CALL 


OUTCH 




7F51 


C» 




RET 






7F52 


FD CB SI M 


LTRSET 


BIT 


S,(ITIFLAC> 


SHFT TST 


in* 


2s tr 




JR 


z,aouT 




7F58 


FD CB 81 8< 


OUTLTR 


RES 


S.CIYIFLAC) 


CLR 


TF5C 


3t Ft 




LD 


A.FEH 

OUTCH 


PRINT LTRS 


TFJE 


CD BA 7F 




CALL 




7F«l 


18 E4 




JR 


CLOUT 




TF43 


FD CB 8 1 C« 


0UTF1C 


SIT 


S,(IYIFLAC) 


SET FLC 


7F«7 


3E F« 




LD 


A.FCH 

OUTCH 


PRINT FICS 


7F«» 


CD BA 7F 




CALL 




7F4C 


IS D» 




JR 


aouT 




7F«t 


3E 29 


OUT" 


LD 


A.25H 
INIT1 


PRINT " 


TFTt 


CD 23 7F 




CALL 




7F73 


CD 47 7F 




CALL 


clout 




7F7C 


C» 




RET 






7F77 


31 C8 


OUTSP 


LD 


A.CSH 
IHIT 


PRINT SPACE 


7F7> 


CD 2B 7F 




CALL 




7F7C 


CD BA 7F 




CALL 


OUTCH 




7F7F 


C» 




RET 






7FM 


3E «C 


OUTLT 


LD 


A.4CH 
INIT1 


PRIHT LT 


7F82 


CD 25 7F 




CALL 




7FS5 


it 54 




LD 


A.54H 
INIT1 




7F87 


CD 25 7F 




CALL 




7FSA 


C» 




RET 






7 FSB 


3C 45 


OUTEQ 


LD 


A.45H 


PRINT EQ 


7F8D 


CD 25 7F 




CALL 


INIT1 




7FS# 


3E 51 




LD 


A,51H 




7FW 


CD 25 7F 




CALL 


INIT1 




7F»5 


C> 




RET 






7F>« 


3E 47 


OUTCT 


LD 


A.4TH 


PRINT CT 


7F»8 


CD 25 7F 




CALL 


1NIT1 




7 FSB 


3t 54 




LD 


A.54H 
INIT1 




7F»D 


CD 25 7F 




CALL 




7FAS 


C> 




RET 






7FA1 


3E IB 


OUTI! 


LD 


A.5BK 


PRINT It 


7FA3 


CD 25 7F 




CALL 


IMIT1 




7FA< 


CD 47 7F 




CALL 


CLOUT 


DO IT ACAIN 


7FA> 


C> 




RET 






7FAA 


3E D» 


OUTCRLF LD 


A.DSH 


PRINT CRLF 


7FAC 


CD BA 7F 




CALL 


OUTCH 




7FAF 


3E C4 




LD 


A,C4H 




7F81 


CD BA 7F 




CALL 


OUTCH 




7FB4 


3E SB 




LD 


A.MH 
C6UNTR,A 


CLEAR CHRTR CNTR 


7FB« 


32 8B 7E 




LD 




7FB» 


C9 




RET 






7FBA 


•« #7 


OUTCH 


LD 


B.S7H 
AF 


SET FOR 1 STOP BIT 


71 BC 


F5 


HOLD 


PUSH 


SAVE CHARACTER 


7FBD 


E« Bl 




AND 


A,tlH 


PRESERVE OTHER BITS 


7FBF 


EE Bl 




XOR 


A,S1H 




7FC1 


D3 FF 




OUT 


A.FFH 
At 


SEND DATA BIT TO PRTR 


7FC3 


Fl 




FOP 




7FC4 


CB 2F 




SRA 


A 


SHIFT IN NEXT BIT 


7FC« 


CD CC 7F 




CALL 


DELAY 




7FC9 


IB Fl 




DJNZ 


HOLD 




7FCB 


C» 




RET 






7 FCC 


11 SI M 


DtLAY 


LD 


DE,##S1H 




7FCF 


2A 84 7t 




LD 


HL, CYCLES 


CET DELAY PERIOD 


7FD2 


ED 52 


LOOP 


SBC 


HL,DE 


DECREMENT BY ONE 


TFD4 


29 FC 




JR 


KZ,LOOP 




7TT* 


C» 




RET 




END OF PROCRAH 
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loading and editing, and the 
POKEd version is about a half 
kilobyte. Regular paper can be 
used, which is much easier to 
read than 20 or 40 column print. 

Disadvantages 

All ASCII characters cannot 
be printed, so substitutes must 
be made. The print is very slow 
and very noisy, and some spe- 
cialized forms are difficult to 
use. The processor is tied up do- 
ing the trivial task of counting 
while in the timing loop, and in- 
terrupts should be disabled 
while using this routine. 



Now that you have some of 
the facts you can decide if it's 
worth the effort to get that 
cheap hard copy. Once I got the 
routine all debugged I wondered 
why I waited so long to do it. A 
good fast printer is certainly in 
my future, but for now I can print 
summaries, reports and even 
gummed labels for a mailing list 
which look as nice as many of 
those from expensive printers. 
With a little care in reading, I can 
list all my programs when they 
get too large to fit on the screen. 
My conclusion is: The effort was 
certainly worthwhile.B 



1 REM 


LPRINT TO BAUDOT TTY : : : WR : : : JUNE 


28 


,1980 


161 




5 CLS 


: PRINT "WRITING PROGRAM PLEASE WAIT" 










7 POKE 16422, 0:POKE 16423,127 










10 M = 


32256 'FIRST BYTE OF PROTECTED MEMORY 










20 READ HS 










21 P$-H$ 










22 H = 













25 FOR 1-1 TO LEN(H$) 










30 AS-RIGHTS(H$,1) 










40 IP A$>-"A"ANDA$<-"F"THENA=ASC(A$)-55 ELSE A=VAL(A$) 




50 H-H+AM6KI-1) 










60 HS«LEFT$(H$,LEN(H$)-1) 










70 NEXT 










7 5 PRINTPSj" "; 










80 POKE M,H 










90 H> 


M+l 










100 IP M-32390 THEN GOTO 500 










105 IF M>32726 THEN END 










110 GOTO 20 










500 M-32512rGOTO20 










999 REM MEM LOCATION 7E00 










1000 


DATA FF,FF,FF,FF,FF,FF,FF,CA,FF,C4,C4 


C4 


C4,D0 


FF 


FF 


1001 


REM 7E10 










1002 


DATA FPfFFjFFjPFjFPfFFfFFrFF.FFjFFfFP 


DA 


PP,FF 


FF 


FF 


1003 


REM 7E20 










1004 


DATA C8,DA,E2,E8 f D2 f D6,F4,D6,DE,E4,DA 


F4 


D8,C6 


F8 


FA 


1009 


REM 7E30 










1010 


DATA EC,EE,E6,C2 / D4,E0,EA,CE,CC,F0,DC 


FC 


FF,FF 


FF 


F2 


1011 


REM 7E40 










1012 


DATA FA,C6,F2,DC,D2 r C2,DA l F4,E8,CC f D6 


DE 


E4,F8 


D8 


F0 


1013 


REM 7E50 










1014 


DATA EC,EE,D4,CA,E0,CE,FC,E6 r FA,EA,E2 


DA 


FF,FF 


C8 


FE 


1019 


REM 7E60 










1020 


DATA FE,C6,F2,DC,D2,C2,DA,F4,E8,CC r D6 


DE 


E4,F8 


D8 


F0 


1021 


REM 7E70 










1022 


DATA EC,EE,D4,CA,E0,CE,FC,E6,FA,EA r E2 


FF 


FF,FF 


FF 


FE 


1029 


REM 7E80 THRU 7E85 










1030 


DATA 00,00,00,7E,A0,05 










1039 


REM 7F00 










1040 


DATA 79,E6,7F,PE,0D,CA,AA,7F,FE,25,28 


62 


FE,20 


28 


67 


1041 


REM 7P10 










1042 


DATA FE,3C,28,6C r FE,3D,28,73,FE,3E,28 


7A 


FE,5B 


CA 


Al 


1043 


REM 7F20 










1044 


DATA 7F,FD,21,00,7E,CD,2B,7F,C3,3A,7F 


Fb 


3A,80 


7E 


3C 


1045 


REM 7F30 










1046 


DATA FE,49,CC,AA,7F,32 ; 80,7E,F1,C9,32 


82 


7E,FE 


41 


30 


1047 


REM 7F40 










1048 


DATA ll,FD,CB,81,46,28,lC,DD,2A,82 f 7E 


DD 


7E,00 


CD 


BA 


1049 


REM 7F50 










1050 


DATA 7F,C9,FD,CB,81,46,28,EF,FD,CB,81 


86 


3E,FE 


CD 


BA 


1051 


REM 7F60 










1052 


DATA 7P,18,E4,FD,CB,81,C6,3E,F6,CD,BA 


7F 


18, D9 


3E 


25 


1053 


REM 7P70 










1054 


DATA CD,25,7F,CD,47,7F,C9,3E,C8,CD,2B 


7F 


CD,BA 


,7F 


C9 


1055 


REM 7F80 










1056 


DATA 3E,4C,CD,25,7F,3E,54,CD,25,7F,C9 


3E 


45, CD 


25 


7F 


1057 


REM 7F90 










1058 


DATA 3E,51,CD,25,7F,C9,3E,47,CD,25,7F 


3F. 


54, CD 


,25 


7F 


1059 


REM 7FA0 










1060 


DATA C9,3E r lB,CD,25,7F,CD,47,7F r C9,3E 


D0 


CD,BA 


,7F 


3E 


1061 


REM 7FB0 










1062 


DATA C4,CD,BA,7F,3E,00,32,80,7E,C9,06 


07 


F5,E6 


01 


EE 


1063 


REM 7FC0 










1064 


DATA 01,D3,FF,Fl,CB r 2P,CD,CC,7F, 10, Fl 


C9 


11,01 


00 


2A 


1065 


REM 7PD0 










1066 


DATA 84,7E,ED,52 r 20,FC,C9 










1070 


END 

Program Listing 2. 
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Coloz Computer News 

Color Compuxox Nows is the first and only magazine devoted to the users 
ot Radio Shack s Color Computer Color Computer Newt allows CC users to 
have a source ot lniorrncrtion about their machine plus forums lor the ex- 
change ot ideas, discoveries, helps, and complaints CCN is published every 
other month and contains teatures like 6609 Assembler programming 
Novice Basic. Advanced Basic. Letters and Technical Forums. CCN reviews 
current products tor the Color Computer and tells the truth about them good 
or bad 

It's not Just a beginner's magazine either, it prints what old hackers need 
to know too Things like entry points to the ROM and pointers in the Basic 
scratchpad 

Color Computet Mewi is more than just a magazine, it's also a software 
exchange service. Color Computer owners can exchange original soft 
ware by contributing It to the CCN library where several of these programs 
are put on a tape and distributed for a nominal fee CCN is also a nation 
wide User's Group. CCN helps establish local User's Groups with form letters, 
posters, names and publicity 

I! you own a Color Computer you need a subscription to Color Computer 
Newt While the other magazines will print some articles about the Color 
Computer you need a constant source ol information to stay abreast ot 
what's happening with the Color Computer 

A charter subscnption to Color Computer News is just S° CO tor 6 issues But 
you'd better hurry, you don't want to miss a single issue 

Available From. 

REMar kable Software 

P.O. Box 1192 

Muskeg on, MI 49443 



Some back issues available for S250 including postage and handling 



yn 




COMPUTER INTERFACES 
& PERIPHERALS 



*ANNOUNCING: POS 800/1600 UNIVERSAL TAPE DRIVE CONTROLLER * 

This "black box" controller/formatter is designed as a standalone interlace 
between industry-standard NR71 (800 BPI) and PC (1600 BPI) tape drives and a 
parallel or R 5 232 serial port of an 8-bit ASCII computer. Serial interface emulates 
a terminal vis-a-vis your system software, parallel interface emulates a reader/punch 
and responds to CPM-style PIP commands from your computer. Tape speeds 12.S, 
25 and 37.5 ips. Interface is microprocessor-controlled, includes power supply and 
4K or 16K buffer memory. Prices and details available upon request. 

• POS-100 NRZ1 TAPE DRIVE CONTROLLER/FORMATTER Now sour 
micro can read and write IBM/ANSI compatible NR/1 format 9-track magnetic 

tapes. The POS-100 consists of S-100 bus card, 6' ribbon cable, tape drive controller 
card, cable to Pertec-Standard NR/I Tape drive, plus documentation and 2-80 or 
8080 software (specifiy). Power is derived from tape drive and S-100 bus. Ship Wl .: 
10 lbs. Suggested Retail Price 1995.00 

• POS DAISY-WHEEL PRINTER INTERFACE for TRS 80 Will drive Diablo 
HyType I, HyType II, and Qume and Sprint i printers. Include* IK user- 
available memory for custom print routines (such as graphics, bidirectional print 
ing. etc J Programmed to respond to prim commands trom BASIC" I LIC I Kit 
PENCIL™, and SCRIPSIT IM software. Draws its power Irom printer. Ship wl.: 

5 lbs. Price $250.00 

Cables, each (Specify HyType I. Hylype II, or Qume) $ 25.00 

• POS ASCII INTERFACE for IBM I/O SELECTRIC 1 his Centionics-style 
parallel printer interlace will drive in IBM Model /3I oi 7 35 I/O typewriter 

(t BCD and Correspondence codes). No soiiware needed. I ealurcson bojrd I PROM 
which holds up to 8 ASCII lo-IBM code tables tor dillercni type spheres Closed 
loop operation runsal maximum printer speed; stops and stalls on a single character 
without loss ot data Requires »I2VDC and •SVDl powei source. Ship wl .: 

5 lbs. Price |24S 95 

Power Supply (-5VDC, »12VDC, +24VDC tor Solenoids on Punier) . . $ 49 95 

• CONVERT OFFICE SELECTRIC TO I/O TYPEWRITER Kn includes 
assembled solenoids, switches, wire harness, magnet drtvtl PC B plus ins true lions 

for installation and mCPU interlace Price $ I so (JO 

• "FORMALINER" Variable Width Forms Tractor loi I Selcctrus . . $95.00 

• GTE Model 560 ASCII SELECTRIC I/O Terminal Willi KS 232 Serial Interlace- 
and digital cassette deck lor use as memory typewriter. Ship wl.: 100 lbs. 

Price, tested and adiusted $l.l'»s 00 

• POS ASCII IBM SELECTRIC PRINTER 15 Sclcci.icUotnt.il irrmmjl 
cleaned and adiusted with POS Centronics -style ASCII pi inter interlace. IK /I.C., 

carbon and labric ribbons. Compatible with fKS ety. Apple, SOI and olhcr CPU 
parallel printer pons. Ship wl: 75 lbs. Price $895.00 

PACIFIC OFFICE SYSTEMS ^ib3 

2265 Old Middlefield Way • Mountain View, CA 94043 • (415)493-7455 



FIXED ASSETS 

Put your TRS-80 computer to work keeping track of 
all information related to your fixed assets and deprecia 
tion. This versatile system, developed by a CPA, will 
compute depreciation according to straight line, declining 
balance, and SYD methods and maintain the complete 
audit trail you need for financial and tax reporting, in 
eluding fixed asset ledger and acquisition and disposal 
reports. You will be able to project depreciation for cur- 
rent and future years, use different methods for financial 
and tax reporting, switch from declining balance to 
straight line when advantageous, compute investment 
tax credit and additional first-year depreciation. Reports 
are available in both summarized and detailed formats, 
and can be organized by general ledger account, location, 
department, ADR class, and year of acquisition. 

Currently available for the TRS-80 Model I with at 
least 32K and 2 disk drives, and for the Model III with at 
least 32K and 1 disk drive. Requires Disk Basic and a 
TRSDOS-compatible operating system. 

FAAS-1 for Model I $ 1 49 

FAAS-3 for Model III $ 1 49 



TAB132 



At last, here is the solution to LPRINT TAB problems 
with your TRS-80 Model I computer. Increase your pro- 
gramming productivity with this enhancement to Basic. 
Stop going through string manipulations and contortions 
trying to overcome the TAB(63) limitation. With 
TAB132, you will never again have to fret over tabbing 
past position 63 on your line printer. TAB132 will allow 
you to correctly tab to any print position up to 2 55 with 
the normal TAB( ) statement. 

TAB132 is a machine language routine which oc- 
cupies 1 00 bytes of memory, and will operate with either 
Level II or Disk Basic on the TRS-80 Model I. The TAB1 32 
tape or disk includes modules for several different modes 
of operation. It can be loaded in the System mode or from 
DOS, can be loaded and run as a Basic program or merged 
into your Basic program and activated with a single 
GOSUB at the beginning of the program. System and 
DOS modules include a relocating loader to move 
TAB132 to anywhere in memory. Also supplied is a pro- 
gram which will patch the routine permanently into Disk 
Basic. Specify media when ordering. 

TAB132ontape . . . $12.95 on disk . . $14.9 r j 



P.O.BOX 359 



►-60 



The Systemworks 

Professional Quality Software for the TRS-80 Computer 
MARLBOROUGH, CONN. 06447 



(203) 295-8108 



.-See Lis i ol Advertisers on page 402 
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The Captain 80 Book of BASIC 

ADVENTURES 

Till world's nott complete book of BASIC ADVENTURES! Eighteen, YES 18, of the most popular 
ADVENTURES available today, til in om book, etsy to rood, lilting! ready to bo keyed l«. ADVENTURES by Rotor, 
Kepttr, Powers, Mleklti, Foreythe, Oro§ Htnott and otbon. 

Including TEMPLE OF THE SUN, POO STAR, LOST SHIP, SPIDER MOUNTAIN, LOST DUTCHMAN'S COLD, 
THUNDER ROAD, SORCERER'S CASTLE, DEADLY DUN6E0N. ATLANTEAN ODYSSEY AND OTHERS. 

Thii ttiqto book tlto ootttito tt ADVENTURE OENERATOR program, tot available ttywhtre olio. YES, 
thit program will tetttlly write ttothor BASIC ADVENTURE progrem! 

Chapters ot irhat an adventure it, how to play sdvettures, hot/ to write adventures, how to foil your 
adventures, ttt odvonturo program Idttt, ttd ittrt! 

Although specifically written for tho TRS-80 
Modol I ttd III, tbtit programs trt tdtpttblt to 

other computers using Mleroioft't BASIC. 

Order yotn todty ttd order another for t^ 

gift, juit it time for Chriettits giving. 




It's Here!!! 



ONLY M9.95 * 

18 PROGRAMS!!! 

Send To: 80-U.S. Journal 
3838 South Warner Street 
Taeoma, Washington 98409 
(206) 475-2219 ^ 
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Pletit tttd. 



.Copy (Copiot) of tho ADVENTURE BOOK for 



; otly * 19.9$ tteh pits * * 2.05 for poettge ft handling. Ptetto tot t 
: ttptrttt thttt for Oift orders, we will setd tt tttetneemeut etrd 

! with til gift orders. 

: Cheek M.O. Vtst/MC# Etelosed 

■ 

j Name 

: Addrtss 

I City 

: Vist/MC 



.State. 



-np 



■ Esp. Date Signature 
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BUSINESS 



A financial trend monitor for credit unions. 



State of the Union 



ft M. Reid, Jr. 
6519 Velasco 
Dallas, TX 75214 



Credit union managers and 
directors spend a lot of 
time analyzing financial data. 
Many methods are used to de- 
termine the relative health of the 
organization, and one of the 
most popular is the calculation 
of ratios between items appear- 
ing on financial statements. 

The consistent calculation of 
a significant number of relation- 
ships can be time consuming, 
especially since the results are 
most indicative when compared 
with previous relationships so 
trends can be detected. 

An excellent discussion of 
some of the most significant in- 
dicators is presented in the 
August 1979 issue of Credit 
Union Executive magazine. The 
trend-monitoring sheet suggest- 
ed in that article was adopted by 
the credit union of which I am a 
member and resulted in the pre- 
paration of this program. 

The data for the program is 
obtained directly from the regu- 
lar financial statements pre- 
pared by the credit union staff. 
Our credit union uses the ac- 
count number structure recom- 
mended in the credit union ac- 
counting manual published by 



the National Credit Union Ad- 
ministration. I included these 
account numbers In the input re- 
quests so the information would 
be easier for me to locate and in- 
put. A sample financial and 
statistical report is shown in 
Fig. 1. 

A sample of the output report 
used by the managers and direc- 
tors is shown in Fig. 2. The tabu- 
lar presentation makes it easy 
to scan the data for each indica- 
tor to see if significant trends 
are developing. 

Ratios and Indicators 

The ratios and indicators cal- 
culated by the program are as 
follows: 

• The rate of return on assets 
is the total income earned dur- 
ing the period divided by aver- 
age total assets, then annu- 
alized and multiplied by 100 to 
give a percentage answer. 

• The rate of return on loans 
to members is the total loan in- 
terest received during the period 
divided by average total loans 
outstanding, annualized and 
converted to a percentage. 

• The expense-to-income 
ratio represents the total 
operating expenses to date 
divided by total operating in- 
come to date. 

• The percent loans-to- 
shares are 100 times total loans 
divided by total shares. 

• The maximum allowable 
dividend rate is one calculation 
you might want to adjust so it 
fits the conditions of your credit 
union. As written, the program 



calculates 95 percent of the net 
operating income divided by 94 
percent of total shares. This cal- 
culation assumes that five per- 
cent of net income must be put 
in reserves (thus the .95 multipli- 
er) and that only 94 percent of 
total shares will be eligible for 
dividends. The 94 percent factor 
results from the way we calcu- 
late dividends and is a factor we 
learn from experience. You may 
edit program line 650 to include 
factors more applicable to your 
situation. 

• The loans-to-assets ratio is 
the total loans outstanding 
divided by total assets. 

• The reserves-to-delin- 
quency ratio is the total reserves 
divided by the dollar amount of 
delinquencies. 

• The percent reserves-to- 
loans are 100 times the sum of 
total reserves plus the allow- 
ance for loan losses divided by 
total loans. 

• The percent liquidity re- 
serve, depending on your invest- 
ment portfolio, might also re- 
quire some adjustment to fit 
your particular situation. The 
program is intended to calculate 
the product of 100 times cash 
plus all investments with maturi- 
ties of less than one year, divid- 
ed by total shares not pledged 
as loan collateral. As written, it 
will include all investments in 
jumbo CD's, because all our in- 
vestments of this type have 
shorter-term maturities. 

• The liquidation value of 
members' shares calculates 
whether members could antici- 



pate receiving 100 percent of 
their shares if the credit union 
were liquidated. It is obtained by 
subtracting anticipated loan 
losses from the sum of shares 
and reserves, then dividing the 
result by total shares and multi- 
plying the result by 100. Obvi- 
ously, the indicator should nev- 
er fall below 100, or the credit 
union is insolvent. 

• The percent delinquencies- 
to-loans is calculated in dollars 
(delinquent amount divided by 
total loans) and number (number 
of delinquent loans divided by 
the number of loans outstand- 
ing). A comparison of these 
two measures can yield some in- 
formation about the relative 
sizes of the delinquencies. 

• The percent of members 
borrowing is the number of 
loans outstanding divided by 
the total number of members— 
a rough measure of member ser- 
vice. 

• The loan turnover ratio is a 
measure of the rate at which 
loans turn over per year. It is the 
annualized quotient of total 
loans granted year-to-date divid- 
ed by the average loans out- 
standing during the period. 

• The average loan account 
balance is the total outstanding 
loan amount divided by the num- 
ber of loans. 

• The annual membership 
growth represents the annual- 
ized net increase in total mem- 
bership year-to-date. 

• The annual savings growth 
is the dollar growth in total 
shares on an annual basis. The 
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annualized growth indicators 
are possibly most useful in 
preparing budgets for future pe- 
riods. 

• The average share balance 
is the total shares divided by to- 
tal membership. It is a measure 
of members' saving habits. 

• The average annual sav- 
ings per member is calculated 
by annualizing the year-to-date 



increase in total shares divided 
by the average membership dur- 
ing the period. 

• Shares are determined by 
dividing the dollar amount in the 
money market certificates by 
the amount of total shares. As 
we began to offer money market 
share certificates in amounts 
over $10,000, we were concerned 
that the percent of total shares 



earning the higher interest rates 
might be worth watching. 

The Program 

The program proceeds with a 
minimum of jumps and no sub- 
routines. Table 1 contains a list 
of all numerical variables used. 
In Program Listing 1, line 100 ful- 
fills the necessary housekeep- 
ing duties. Lines 110-170 ask if 



you are about to make the first 
entries for a new year. If so, you 
are asked for the year and some 
beginning data. Since several of 
the indicators are calculated on 
an annualized basis, these pre- 
vious year-end numbers are 
necessary. 

If the answer to the line 110 
question is that you are going to 
add data to a file, then line 180 







For 


FINANCIAL AND STATISTICAL RETORT 
Period Ended 19 Charier No. 




















ADOR 


ESS 






STREET AND NUMBER CITY ANDSIA1E ZIP COOE 








STATEMENT OF FINANCIAL CONDITION STATEMENT OF INCOME 




ACCT. 
NO. 


ASSETS 


END OF THIS PERIOD 


ACCT. 
NO. 


OPERATING INCOME 


THIS MONTH 


YEAR TO DATE 


701 


Loans 






111 


Interest on Loans 


















113 


Income from Loans of Liq. CUs 




















Total 










712 


Loans Pur from Liq. CUs (Less Disc.) 






119 


Less - Interesi Hetund 




















Net 












Total 






121 


Income from Investments 










719 


Less - Allowance for Loan Losses 






131 


Fees and Charges 












Net 






151 


Misc. Operating Income 










730 


Cash 








Total Operating Income 










740 


Investments 








OPERATING EXPENSES 










210 


Compensation 


















220 


Employee Benefits 


















230 


Travel & Conference Expenses 


















240 


Association Dues . 


















250 


Office Occupancy Expenses 


















260 


Office Operations Expenses 










752 


Accrued Income on Investments 






270 


Educ. & Promotional Exp. 










760 


Prepaid and Deferred Expenses 






280 


Loan Servicing Expenses 










774.5 


Furniture & Equipment (net) 






290 


Prof. & Outside Services 


















300 


Provision for Loan Losses 








790 


Other Assets 






310 


Members' Insurance 


















320 


Fed. Supvr. & Exam Exp 












TOTAL ASSETS 






330 


Cash Over and Short 












LIABILITIES ANO EQUITY 


340 


Int. on Borrowed Money 










801 


Accounts Payable 






350 


Annual Meeting Expense 


















360 


Misc. Operating Expenses 










820 


Dividends Payable 




























Total Operating Expenses 










840 


Taxes Payable 








INCOME (Lossl FROM OPER 










860 


Other Liabilities 








NONOPERATING GAINS (Loses) 










420 


Gain ILoss) on Investments 


















430 


Gain (Loss) on Disp. of Assets 












TOTAL LIABILITIES 


















901 


Shares 








Total Non-Oper. Gams (Losses) 




















Income (Loss) Before Dividends 










931 


Regular Reserve 






380 


Dividends 




















NET INCOME (Loss) 








940 


Undivided Earnings 






STATISTICAL REPORT 












| NUMBER | AMOUNT 1 


960 


Net Income ILoss) 






!. 


Delinquent Loans 




TOTAL EQUITY 






a 


2 to less than 6 months 










TOTAL LIAB. A EQUITY 






b 


6 to less than 12 months 












c 


12 months and over 








We wiily that, lo the best of our knowledge and belief, this 'epo't 
is true and correct and presents fairly the financial position and the 
results of operations for the periods covered 


d 


Subtotal 








2 


Current & Less than 2 mos delq. 








3 


Total Loans 









a. 


Loans made year to dale 








b 


Loans made since org. 












5. 


No. Members' & Nonmembers' 
Accounts at End of Period 




up 








6. 


No. of potential members 






7. 


Loans chgd. off since org. 


mm 




8 


Recov on loans charged off 
Since Organization 










FiQ 


. 1. Typical f 


'■inan 


cial and Statistical Report. 
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E-SYSTEMS GARLAND FEDERAL CREDIT UNION 
















MONTHLY INDICATORS 






















1980 




















JAN 


FEB 


MAR 


APR 


MAY 


JUNE 


JULY 


AUG 


SEPT 


OCT 


NOV 


DEC 


ANNUAL RATE OF RETURN ON 


13*5 


11.82 


10.47 


11.25 


11.18 


10.48 


10.76 


10.55 


10.37 


10.62 


000 


0.00 


TOTAL ASSETS 


























ANNUAL RATE OF RETURN ON 


14.33 


12.85 


12.15 


12.23 


12.26 


12.09 


12.17 


12.21 


12.10 


12.34 


0.00 


0.00 


LOANS TO MEMBERS 


























ACTUAL EXPENSE-INCOME RATIO 


0.30 


0.26 


0.27 


0.25 


024 


027 


0.26 


0.25 


027 


026 


0.00 


0.00 


TO DATE 


























PERCENT LOANS-TO-SHARES 


79.22 


78.80 


78.44 


81.58 


78.74 


75.97 


73.24 


69.89 


67.36 


64.80 


0.00 


0.00 


MAXIMUM ALLOWABLE DIVIDEND 


10.16 


9.40 


8.16 


9.23 


9.32 


824 


8.52 


8.33 


7.86 


805 


0.00 


0.00 


RATE YEARTODATE 


























LOANS-TO-ASSETS RATIO 


0.75 


0.74 


0.73 


0.77 


0.74 


0.71 


0.69 


0.65 


0.63 


061 


0.00 


0.00 


RESERVES-TO-DELINQUENCY RATIO 


15.85 


10.99 


20.14 


16.12 


13.94 


9.16 


10.63 


10.04 


18.40 


17.25 


0.00 


0.00 


PERCENT RESERVES-TO-LOANS 


4.66 


4.75 


4.66 


4.82 


4.91 


5.07 


5.13 


5.23 


5.15 


5.53 


0.00 


0.00 


PERCENT LIQUIDITY RESERVE (5% MIN) 


9.17 


10.35 


11.71 


7.12 


10.92 


14.63 


18.22 


22.06 


25.54 


27.25 


0.00 


0.00 


LIQUIDATION VALUE OF MEMBERS' 


103.50 


103.51 


103.49 


103.75 


103.68 


103.52 


103.43 


103.34 


103.35 


103.44 


0.00 


000 


SHARES 


























PERCENT DELINQUENCIES-TO- 


0.29 


0.42 


0.23 


0.29 


0.34 


0.53 


0.46 


0.50 


0.28 


0.31 


0.00 


0.00 


LOANS ($) 


























PERCENT DELINQUENCIES-TO-LOANS 


0.48 


0.62 


0.42 


0.52 


0.61 


0.70 


0.93 


1.03 


0.66 


0.80 


0.00 


0.00 


(QTY) 


























PERCENT OF MEMBERS BORROWING 


63.33 


63.54 


63.99 


63.74 


63.29 


6342 


62.91 


62.56 


61.72 


60.38 


0.00 


0.00 


LOAN TURNOVER RATIO (YEARS) 


0.72 


0.74 


0.81 


0.85 


0.82 


0.82 


0.84 


0.83 


0.84 


0.85 


0.00 


0.00 


AVERAGE LOAN ACCOUNT BALANCE 


2465 


2416 


2401 


2377 


2351 


2302 


2263 


2222 


2206 


2161 








ANNUAL MEMBERSHIP GROWTH 


420 


276 


304 


291 


225 


234 


282 


268 


284 


303 








ANNUAL SAVINGS GROWTH ($ X 1000) 


-843 


-722 


-106 


-982 


-533 


-146 


163 


417 


608 


615 








AVERAGE SHARE BALANCE 


1970 


1948 


1959 


1857 


1890 


1921 


1944 


1989 


2021 


2014 








AVERAGE ANNUAL SAVINGS PER 


- 257.91 


-220.68 


-32.24 


-297.75 


-161.64 


-44.07 


48.99 


125.23 


181.52 


182 40 


0.00 


0.00 


MEMBER 


























CERTIFICATES/TOTAL SHARES 


0.13 


015 


0.18 


023 


0.21 


021 


0.23 


0.23 


0.22 


0.23 


0.00 


0.00 






Fig. 


2. Sample Output Report. 















CONVERT YOUR SERIAL PRINTER TO PARALLEL 



NEW MODEL UPI-3 SERIAL PRINTER INTERFACE MAKES IT 
POSSIBLE TO CONNECT AN ASCII SERIAL PRINTER TO THE 
PARALLEL PRINTER PORT ON THE TRS-80. 

Software compatibility problems are totally eliminated because 
the TRS-80 "THINKS" that it has a parallel printer attached. 
NO MACHINE LANGUAGE DRIVER NEFDS TO BE LOADED 
INTO HIGH MEMORY BECAUSE THE DRIVER ROUTINE FOR 
THF UPI-3 IS ALREADY IN THE TRS80 ROM! SCRIPSIT. PENCIL. 
RSM 2, ST80D, NEWDOS, FORTRAN, BASIC etc. .ill work as if a 
parallel orinter was in use. 

The UPI-3 is completely self contained and ready to use. A 34 
conductor edge card connector plugs onto the parallel printer 
port of the model I Expansion Interface or onto the parallel 
printer port on the TRS-80 III. A DB25 socket mates with the 
cable from your serial printer. The UPI-3 converts the parallel 
output of the TRS-80 printer port into serial data in both the 
RS232-C and 20 MA. loop formats. 



bd 



SPEEDWAY ELECTRONICS 

Division ot Binary Devites 

11560TIMBERLAKE LANE 
NOBLESVILLE, IN 46060 
(317)842-5020 

TRS 80 is a trademark ot Tandy 



• 275 



VISA MasterCard 




Switch selectable options include: 

• Linefeed after Carriage Return 

• Handshake polarity (RS232-C) 

• Nulls after Carriage Return 

• 7 or 8 Data Bits per word 

• 1 or 2 Stop Bits per Word 

• Parity or No parity 

• ODD or EVEN Parity 

UPI-2 for TRS80 Model II 

UPI-3 for TRS80 Model I or 3 

UPI-4 for use with Model 1 and RS Printer 

Interface Cable (no expansion interface required) 

Manual only (may be applied to order) 

Ten day return privilege — 90 day warranty 

Shipping and Handling on all orders 

Specify BAUD rate 50-9600 BAUD 



NOW 
AVAILABLE 
FOR 
MODEL II 



$149.95 
$149.95 

$159.95 
$ 5.00 

$ 4.00 



*• See List ot Advertisers on page 402 
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TIME ... 

METHUSELAH" has time for you 
and your TRS-80' 



The name Methuselah has always been associated with long life. The Methuselah 
computer clock board with its 24 hour clock and its perpetual calendar is indeed worthy 
of the title. Methuselah puts state of the art technology into action with the on board four 
year lithium battery backup to keep it running even when your computer is off. That 
means no more fooling around with the software or hardware "clocks" that become Rip 
Van Winkles when the computer is reset or turned off 

Methuselah has many other timely features. Software patches keep the DOS and BASIC 
time and clock commands ticking. Only two screws mount Methuselah inside the expan- 
sion interface without soldering, clipping, cutting, or jumpering. There is even a spare 
1/0 port and four different interrupts available for people who love to tinker. 

SPECS: MM/DDYV, HHMMSSand day of the week Four year lithium battery 

back-up. Crystal controlled timing (adjustable 32.768 oscillator). Twenty four 
hour clock and perpetual calendar 



Send check ( 



ey order to: 



mUm 



MOM DESIGNS fi35 

6330 W North AM. 

Wauwatoaa.WI 53213 

(414) 259-0120 



M-Sl $97.00 

(add $4.50 P and H) 

S-Sl $17.50 

(add $2.50 P and H) 
(If you wish to use Methuselah 
and the RS-232 board (26-1145) 
together, order this option which 
includes a new cover and con- 
nector.) 
WI residents add 4% sales tax. 



METHUSELAH Is • 
Had* mark of N0M Daaigns 



Software. 
For the 80s. 

Pensadyne Computer Services. The organization that has brought 
affordable software to hundreds of users in the over 40 of the United 
States and 16 countries around the world. The organization with the 
people, the support, the service and the expertise to bring you the 
highest quality products available. 

Pensa-write 1 - Our BASIC word processing system for the 
owner who requires performance at low cost. Many of the features 
of more expensive word processing systems at a fraction of the cost. 
Comes complete with mailing list capable of handling 300 names. 
$19.95 (Specify Model I or Model III). 

Pensa-wrlte 2 - A machine language word processing system for 
the TRS-80 Model I or III with the power and speed that is really 
needed in a word processing environment. Word wrap around, 
unlimited insert and delete, block moves, chaining of files, 20 user 
definable commands, ASCII control code generation for printed 
output to allow subscripts, superscripts, underlining or any other 
feature your printer supports, and much more. All this in a package 
that costs just $79.95. Manual $10.00 Deductable. (See full page ad 
iR April, 1981 80-Mlcrocomputing for a full description). 

Software publishing - Pensadyne is now publishing software for 
independent software authors. Send SASE for complete details, or 
send machine readable copy of your program with any 
documentation. TRS-80 Model I, II, III and Colour Computer fully 
supported. Subject material unlimited. 

Now, with that kind of record, and these products and services, 
aren't you just a little curious about Pensadyne Computer Services? 

Visa and Mastercharge orders welcome. Phone orders welcome 
or write, specifying system configuration, and product desired. 
Please add $1.00 for first class shipping. 

PENSADYNE - Giving you the power to think. 



.V^'^V,/ 



-207 



COMPUTER SERVICES 
4441 WEST FIRST AVE. VANCOUVER, B.C.. V6R4H9 604-224-3107 



obtains all previous data from 
the disk. 

Lines 200-360 ask for data 
from the balance sheet. You are 
reminded to make all entries in 
whole dollars. You also should 
omit all commas from the dollar 
entries. 

Lines 370-410 ask for data 
from the income statement, and 
you are reminded to use year-to- 
date figures. The year-to-date 
data is necessary because 
some of the indicators are annu- 
al projections based on the aver- 
age performance from the be- 
ginning of the year through the 
latest entry. 

Lines 420-500 ask for data 
from the statistical report plus 
^ne item— shares pledged as 
loan collateral— that does not 
appear on any financial report. 
This last item is necessary for 
the computation of percent li- 
quidity reserve. The minimum 
value for this reserve in federal 
credit unions is five percent, so 
the board of directors will want 
to watch the reserve very closely 
when it approaches the border- 
line. 



Lines 600-720 contain most 
of the computations in the pro- 
gram. The only exceptions are 
some totals and multiple-use 
factors that were calculated at 
the time of input. (Refer to lines 
220, 300 and 360.) The arithmetic 
is relatively straightforward. 

Lines 730-770 permit you to 
enter data for as many months 
as you wish before printing the 
results. When you have finished 
entering data, the program pro- 
ceeds immediately to print the 
results. 

The print routine is contained 
in lines 900-1250. Lines 900, 910 
and 915 are the three major print 
formats. Line 900 is the format 
for most indicators that are ex- 
pressed as a number with two 
possible decimal places. Line 
910 is used for those indicators 
that are always whole numbers. 
Line 915 is almost the same as 
line 900, except it allows four 
digits prior to the decimal point. 
This format is necessary for the 
larger results in the "average an- 
nual savings per member" cal- 
culation. 

Lines 980, 990 and 1000 may 



Variable 


Definition 


A 


Total Assets 


AA 


Average Assets 


AL 


Average Loans 


AS 


Average Shares 


BA 


Beginning Assets 


BL 


Beginning Loans 


BM 


Beginning Number of Members 


BS 


Beginning Shares 


C 


Cash 


CT 


Common Trust Investments 


CU 


Deposits and Shares in Other Credit Unions 


DA 


Delinquent Loan Amount 


E 


Annualizer 


F 


Annualizer times 100 


FA 


Federal Agency Securities 


1 


Interest on Loans 


L 


Loans Outstanding 


LA 


Loan Amount. Year-to-Date 


LL 


Allowance for Loan Losses 


MM 


Money Market Certificate Investments 


N 


Month Number 


ND 


Number of Delinquent Loans 


NM 


Number of Members 


OE 


Total Operating Expense 


01 


Total Operating Income 


PS 


Plednfid Shares 


RC 


Reserve for Contingency 


RR 


Regular Reserve 


S 


Regular Shares 


SC 


Money Market Share Certificates 


ST 


Investments With Maturities Less Than One Year 


Tl 


Total Investments 


TL 


Total Number of Loans 


TR 


Total Reserves 


TS 


Total Shares 


X 


Counter 


Y 


Year 


Z 


Counter 




Table 1. Definition of Variables. 
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EPSON 

MX-80 



MX-80 

MX-80 FT 

MX-100 



EPSON EPSON 

EPSON 
EPSON 




MX-70 



EPSON 
EPSON 



MX-l 00 \ 

MX-80 FT ' 



SmaII 
"AMERICAN Busies 

COMPUTERS 




118 S. MILL ST. PRYOR, OK 

AMERICAN SMALL BUSINESS 
COMPUTERS STOCKS THE 
ENTIRE LINE OF EPSON 
PRODUCTS AND ACCESSORIES 

CALL FOR OUR 
PRICING ! 



uters <?@&(FrC siL 

i "• \ \-JhI i 



WE PROMISE IT WILL BE 
WORTH THE CALL !! 




918-827-4844 



RETAIL STORE LOCATION - SOUTHWOOD 
"" SHOPPINC CENTER — PRYOR, OK. 



THE BIGGEST NAME IN UTTLE COMPUTERS 9 

TRS-80 Model H— Your Best Buy 
In a Business Microcomputer 




UP 
TO 

15% 



TRS-80 computers, on 
software and peripherals 

Similar values on all merchandise 
CALL COLLECT: 

800-351-1580 

Texas Residents call: 915-283-2920 

Van Horn Office Supply 

701 W. Broadway - P O Box 1060 
Van Horn, Texas 79855 

DEALER G055 

Form F48 Provided 
Standard Warranty in Effect 

THE NA TIONWIDE SUPERMARKET Of SOUND" 



require modification for your 
particular printer. I use an 
IDS-440 Paper Tiger and some of 
my commands might not be nec- 
essary with other printers. The 
command LPRINTCHR$(31) in 
line 980 is a control command 
that adjusts the line length to 
132 characters. The command 
LPRINTCHR$(01) in the same 
line switches the printer to an 
enhanced printing mode so the 
report heading will appear to be 
in larger and bolder type. The 
command LPRINTCHR$<02) in 
line 1000 returns the printer to 



normal characters. 

You would, of course, want to 
change line 980 so the name of 
your organization is printed at 
the top of your reports. You also 
probably will wish to revise the 
tabs in lines 980, 990 and 1000 to 
adjust the heading. Lines 1300- 
1320 record all your latest data 
on the disk, and line 1400 ends 
the program. 

I hope you find this program 
as useful to your credit union as 
it has been to mine. I would be 
interested in hearing your com- 
ments or questions.! 
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Our ongional Super Utility was hard to beat - we tried anyway Now Kim Watt, 
of Breeze Computing. Inc . offers you SUPER UTILITY PLUS, an exceptional 
completely rewritten program, including in excess of 70 possible programming 
selections In addition, it now operates on Single or Double Density throughout 
all program utilities Truely the "Utility of Utilities' 

Listed below are only the highlights of Super Utility Plus's outstanding 
features 



ZAP 

- Read and.' or modify data m HEX. ASCII 
DECIMAL BINARY or OCTAL 

- Search routine locates highest or lowest 
configured track, search d>sk for byte list 
ASCII strng word list or encnpred code 

- Display sec lor (disk file memory 

- Compare copy venty arvd zero d:sk sectors 
PURGE 

- Full screen editing kill control 

- Complete disk directory 

- Zero jiused d. rectory entr.es or unused d sk 
granules 

- Compute existing passwords 

- Change disk name date passwords auto 
command and '. le parameters 

FORMAT 

- Standard format or toi-.>at without erase 

- Special formal 

- Build lormal track 

- Software bulk erase 
DISK COPY 

- Standard copy with or without formal 

- Special Copy llo back jp many protected 
disks) - purchaser use only 



TAPE COPY 

- Read write or verify tapes 

Bit by bit ropvriu, routine - purchaser use 

DISK REPAIR 

Repair HIT and GAT sectors and Boot 

- Complete directory check 
Recover killed tiles 

Read protect urvread protector moved. rectory 
Clear unused entries 

- Advises of all nactive files 
MEMORY 

Display move test compare zero ru hange 
input or output a byte "o 9n\ port 

- Exchange jump to re.erse f'll sfnng search 
or load/write entire sectors to/ horn memory 

RLE 

- Display compare and copy file sectors 
Locate free space dies drive status 
Create files and clear dies from disk 

CONFIGURE SYSTEM 

- Custom configure S/'U Plus to your system 

- Single or double density in any combination 
5 drives select your operating system boot, 
jpper or lower case h.gh speed clock single 
or double headed drives or configure your 
pnnler 



If you want t 



into send for complete overview Or if your already as excited about Super 



Utility Plus as we are "send check or MO for $74 45 plus $5 00 shipping and handling to 

BREEZE COMPUTING. INC. 

PO Box 1013 • Berkley Michtgan 48072 

I 'Michigan residents enclose addil.onal 4^ sales tax. foreign orders enclose $10 1)0 shipp ng and 
1 handling COD orders mav order h\ calling us at 1 I13| 288-9422 ^ 76 
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Program Listing 



MONTHLY INDICATORS 



CREDIT UNION PERFORMANCE 



HARK REID 

6519 V EL AS CO 

DALLAS, TX 75214 



It ••••■••••••• 

15 •• 

28 '• 

25 ■• 

30 '• 

35 *• 

«• '• 

45 •« 

58 ■« 

55 *• 

68 '• * 

65 »«•«••••••• ..••••••...... • 

If! CLEAR99S|DIHP(12,28) :DEFINTX,Y,X 

lit CLSiPRINTMS THIS THE BEGINNING OF A NEW YEAR (Y/N) ? 

115 Z$>INKEY$iIFZ$*"THEN115 

12J IFZ$**N*THEN189 

125 IFX$-*Y*THEN138 

127 REM 

128 REM * • • • • INPUT FIRST-OF-YEAR DATA • • • • • 

129 REM 

139 CLSlPRINT'NAKE ALL FINANCIAL ENTRIES IN WHOLE DOLLARS* ■ PRINT 

t INPUT* WHAT YEAR ARE YOU BEGINNING' |Y 

148 INPUT* BEG INN INC LOANS ';BL 

158 INPUT* BEG INNING ASSETS ■ ; BA 

161 INPUT'BEGINNINC SHARES* J BS 

171 INPUT'BEGINNINC NUMBER OP MEMBERS' ; DM : G0T02M 

177 REM 

178 REM ■ * • • • READ DATA FROM DISK 

179 REM 

188 0PEN"l*,l,*CU/DAT';INPUTIl,Y,BL,BA,BS,BH:FORX-lTO12:FORZ-lTO 

2S:INPUTtl,P(X,l):NEXTZ:NEXTX:CLOSEl 

2M CLS: PRINT* REMEMBER TO HAKE ALL FINANCIAL ENTRIES IN WHOLE DO 

LLARS*: PRINT 

297 REM 

288 REM • • • • • INPUT BALANCE SHEET DATA • • • • • 

289 REM 

218 PRINT* INPUT THE FOLLOWING DATA FROM YOUR BALANCE SHEET* 

228 INPUT'MONTH NO. ' jN: E-12/N: F-1288/N 

238 INPUT'LOANS OUTSTANDING, ACCT 781* jL 

248 INPUT* ALLOWANCE FOR LOAN LOSSES, ACCT 719"; LI. 

258 INPUT 'CASH, ACCT 738*jC 

268 INPUT'FEDERAL AGENCY SECURITIES, ACCT 742*|FA 

278 INPUT'COMHON TRUST INVESTMENTS, ACCT 743*|CT 

288 INPUT'SHARES, DEPOSITS, CERTS - OTHER CU'S, ACCT 745'rCU 

298 INPUT'OTHER SHARES, DEPOSITS CERTIFICATES, ACCT 746*;MM 
388 TI"FA+CT+CU*MM|ST-CT+CU+MJ1 

318 INPUT'TOTAL ASSETS'l A 

328 INPUT 'REGULAR SHARES, ACCT 9Sl"jS 

338 INPUT' KM SHARE CERTIFICATES, ACCT 98 8" ) SC 

348 INPUT" REGULAR RESERVES, ACCT 931*|RR 

358 INPUT-RESERVE FOR CONTINGENCIES, ACCT 933* »RC 

369 TR-RR + RC 

367 REM 

368 REM • • • • • INPUT INCOME STATEMENT DATA • • • • • 

369 REM 

379 CLS: PRINT* INPUT THE FOLLOWING DATA FROM YOUR INCOME STATEMEN 

T" 

388 PRINT'BE SURE TO USE YEAR-TO-DATE FIGURES* i PRINT 

398 INPUT* INTEREST ON LOANS, ACCT 111* J I 

488 INPUT'TOTAL OPERATINC INCOME', -01 

418 INPUT'TOTAL OPERATING EXPENSES' ;OE 

417 REN 

418 REM • • • • • INPUT STATISTICAL DATA * * • • * 

419 REM 

428 CL5:PRINT*INPUT THE FOLLOWING DATA PROM YOUR* 

438 PR I NT" STATISTICAL REPORT* : PRINT 

448 INPUT'NUHBER OF DELINQUENT LOANS* (NO 

458 INPUT-DELINQUENT AMOUNT' [DA 

468 INPUT'TOTAL NUMBER OF LOANS";TL 

478 INPUT' LOAN AMOUNT, YEAR TO DATE* » LA 

488 INPUT* NUMBER OF MEMBERS* » NM 

498 PRINT'YOU WILL PROBABLY HAVE TO SEE YOUR BOOKKEEPER FOR* 

588 INPUT'SHARES PLEDGED AS LOAN COLLATERAL* | PS 

597 REM 

598 REM* • • • ■ COMPUTATIONS * ■ • • * 

599 REM 

688 TS=S«SC:AS-(BS+TS)/2:AL-(BL+L)/2:AA«(BA*A)/2 

618 P(N,S)-(OI/AA)*F:P(N,l)-(INT(P(N,S)*188«.5))/189 

621 P(N,l)-(I/AL)*r:P(N,2)-(INT(P(N,f)*lH*.5))/lM 

638 P(N,8)-OE/OI:P(N,3)-(INT(P(N,8)*188*.5J)/188 

648 P(N,8)-(L/TS)'18B!P(N,4)-(INTtP<N,8)»188*.5))/lBB 

651 P(N,B)-.9S*F*(OI-OE)/(.94*TS)tP(N.S)-(lNT(P(N,8)»lM*.S))/18 

• 

Program continues 



III. II 
III. II 



tttitt 
iiiiii 



in. ii 
iit.il 



nun 
iiiiii 



llll. II int. II 



Program continued 

660 P(N,0)-L/A:P(N,6)»(INT(P(N,0)*100+.5))/10B 

670 P(N,0)-TR/DAjP<N,7)-(INT(P(N,0)*100+.5))/100 

£81 P(N,0)«100»(TR+LL)/LiP(N,B)-(INT<P(N,0)*100+.S))/10fl 

691 P(N,0)-100-(C+ST)/(TS-PS) :P(N,9)«(INT(P(N,0)*lfl0+.5) )/100 

701 P(N,0)-100»(TS+TR-LL)/TSiP{N.10)-(INT(P(N,0)*100+.5))/100 

710 P(N,0)-100*DA/LlP(N,ll)-(INT(P(N,0)*100+.5))/lB0 

712 P(N,0)-100»ND/TLiP(N,12)-(INT(P(N,0)*100+.5))/100 

713 P(N,0)»100*TL/NM:P(N,13)-(INT(P(N,0)M00+.5) )/100 

714 P(N,0)-(LA/AL)*EiP(N,14)-(INT(P(N,0)»100+.5))/lB0 

715 P(N,0)>L/TLlP(N,15)-INT(P(N,0)) 

716 P(N,0)-(NM-DN)*E:P(N,16)«INT(P(N,0)) 

717 P(N,0)-(TS-BS)*£iP(N,17)-INT(P(N,e)/1000) 

718 P(N.0)>TS/NM:P(N,18)'INT(P(N,0) ) 

719 P(K.«»«E*(TS-BS)/((BM4NM)/2) :P(N,19) -(INT(P(N,0) M00+.5) )/l( 

720 P(K.0)-SC/TSiP(N,20)-(INT<P(N,l)«10B+.5))/100 
730 PRINT "WOULD YCU LIKE TO INPUT DATA FOR* 

740 PRIHT'ANOTHER MONTH AT THIS TIKE?" 
7 50 ZWNKEYS:IFZS-*"THEN7S0 
7<0 IPZS«"N*THEN900 
770 IFZ$-"Y*THEN20fl 

897 REM 

898 REM • • • • • OUTPUT FORMATS • « • » • 

899 REM 

900 PlS-"% % 
11.11 III. II III. II III. II lll.il lll.il 
it. II III. II- 
910 P2S-*« I 

tun iiiiii iiiiii iiiiii iiiiii iiiiii 

HIM IIIIII- 

915 P3S-"% % 

11.11 tllt.il llll. II tltt.lt till. it tttt.tt litt.tf lilt. It t 

tt.ll tttt.tt* 

977 REM 

978 REM • ■ • • • FORM HEADING * • • ■ • 

979 REM 

980 LPRINTCHR$(31) :LPRINTCHR$(01) :LPRINTTAB(18) "E-SYSTEMS GARLAN 
D FEDERAL CREDIT UNION 

990 I.PR1NTTAB( 28) "MONTHLY INDICATORS 
1001 LPRINTTAB(34)Y:LPRINTCHR$(02) 

1010 LPRINT* JAN FEB 

MAR APR MAY JUNE JULY AUG SEPT OCT 

NOV DEC* 

1020 LPRINTSTftING$(l.<l,*-*) 

1027 REM 

1028 REM • • • • • PRINT ROUTINE • * * * * 

1029 REM 

1030 LPRINTUSINCPIS) "ANNUAL RATE OP RETURN ON" jP(l.l) | P(2,l) jP(3 
,D)P(4,1)»P(S,1) ;P(6,1)|P( 7,1) ;P(8.1). ^(9.1) ;P( 10,1), P( 11.1), p< 

1040 LPRINT* TOTAL ASSETS" 

1050 LPRINTUSINGPlSi 'ANNUAL RATE OF RETURN ON*,P(l,2) »P(2,2) ,P(3 

.2)>P(4.2)»P(5.2)»P<«,2);P(7,2),P(B,2),P(9,2),P(10,2),P(11,2),P( 

1060 LPRINT" LOANS TO MEMBERS" 

1070 LPRINTUSINGP1S, "ACTUAL EXPENSE/ INCOME RATIO" ,P<1 ,3) I P( 2, 3) ; 

P(3,3j,P<4,3),P(5,3),P(6,3),p<?,3)»P{8,3)»P(9,3) ,P(10,3) ,P(11,3) 

,F(12, 3) iLPRINT" TO DATE* 

1080 LPRINTUSIKCUSi "PERCENT LOANS TO SHARES', P(l, 4) )P(2,4) »P(3 , 

*)»P(*r<>|P(5,4),P(6,4),P(7,4),P(8,4),P<9,4),P(10,4),P(ll,4),P(l 
2,4) ! LPRINT 

1090 LPR1 NTUS I NCP1S, "MAXIMUM ALLOWABLE DIVIDEND RATE" jP(l , 5) |P(2 

,5))P(3,S),P(4,5),P(5,5),P(6,5),P(7,5),P(8,5),P(9,5) »P(10,5),P(1 

1,5),P(12,S) 

1100 LPRINT" YEAR TO DATE' 

1110 LPRINTUSINGP1S; 'LOANS TO ASSETS RATIO" j P(l,6) ,P(2,6) »P(3,6) 

»P(4,6),P(5,6)»P(6,6)»P<7,6),P(8,6)»P(9,6>jP(10,6) jP(ll,6) ,P(12, 

() : LPRINT 

1120 LPRINTUSINGP1$; "RESERVES TO DELINQUENCY RATIO',P(l,7) »P(2,7 

):P(3,7),P(4,7),P(S,7),P(6,7),P(7,7),P(B,7),P(9,7) jP(10,7)»P(ll, 

7) rP(12,7) iLPRINT 

1130 LPRINTUSINGP1$, "PERCENT RESERVES TO LOANS" J P(l ,8) ,P( 2,8) i P( 

3,8),P(4.0),P(5,8),P(6,0> I P(7,8),P(8,8> I P(9,8),P(10,0),P(11,B),P 

(12,0) t LPRINT 

1140 LPRINTUSINGP1S, "PERCENT LIQUIDITY RESERVE <5% HIN) '»P(1, 9) l 

P(2,9)|P(3,9);P(4,9) jP(5,9))P(6,9),P(7,9),P(8,9)>P(9,9),P(10,9)i 

P(11,9)|P(12,9) iLPRINT 

1150 LPRINTt)SINGPl$| "LIQUIDATION VALUE OF MEMBERS' *|P(1, 10) |P(2, 

10);K3,10)|P(4,10);P(5,10),P(6,10);P<7,10)|P(8,10>;P(9,10),P(10 

,18) jP{ll, 10) jP(12, 10) iLPRINT" SHARES - 

1160 LPRINTUSINGPIS, "PERCENT DELINQUENCIES TO LOANS ($)*|P(1,11) 

;P(2,ll)jP(3,ll)|P(4,ll),P(5,ll);P(6,ll);P(7,ll)jP(8,ll),P(9,ll) 

;P(H.ll) jP<ll. 11) ;P(12, 11) iLPRINT 

1171 LPRINTUSINGP1$| "PERCENT DELINQUENCIES TO LOANS" ; P(l,12) i P( 2 

,12) (P(3,12),P(4,12)iP(5,12);P(6,12);P<7,12)jP(8,12) ,P(9,12),P(1 

0,12) |P(11,12)|P( 12, 12) iLPRINT" IQTY) " 

1100 LPRINTUSINGPlJi "PERCENT OF MEMBERS BORROWING',P(l,13) »P(2,1 

3)»P(3,13),P(4,13),P(5,13),P(6,13),P(7,13),P(8,13),P<9,13);P(10, 

13) }P(11,13) |P(12,13) iLPRINT 

1190 LPRINTUSINGPIS, 'LOAN TURNOVER RATIO (YEARS) '»P(1,14) ,P(2, 14 

)|P(3,14),P(4,14)|P(5,14)»P(6,14)jP(7,14);P(8,14);P(9,14),P(10,l 

4) jP(ll,14);P(12, 14) iLPRINT 

1200 LPRINTUSINGP2$) "AVERAGE LOAN ACCOUNT BALANCE"; P( 1 ,15) ;P(2,1 

*>>JP(3,15),P(4,15>,P(S,15),P(6,15>,P(7,15)»P<8,15)»P(9,1S);P<10, 

15),P<U,1S),P(12, 15) iLPRINT 

1210 LPRINTUSINGP2S, "ANNUAL MEMBERSHIP GROWTH"; P(l ,16) j P(2,16) » P 

(3,16) ;P(4,16) »P(5,16) |P(6,16) ;P(7,16) |P(8,16) |P(9,16) )P(10,14) , 

P(ll, 16), P(12. 16), LPRINT 

1220 LPRINTUSINGP2$ | "ANNUAL SAVINGS GROWTH ($ X 1000) " ,P(1 ,17) ,P 

!?: 1 !i' P(3 ' 17> » p < 4 ' 17 > »P«5»17)»P(6.17)»P(7,17)iP(8,17))P(9,17) f P 

<H.17),P<11,17),P(12,17),LP*INT 

1230 LPRINTUSINCP20, "AVERAGE SHARE BALANCE* ,P(1 , 18) , P( 2 ,18) » P( 3 , 

10)lP(4,10),P(5,10)iP<6,18)|P(7,18);P(8,18)>P(9,18)iP(10,lB)|P(l 

1,18) ;P(12, IB) iLPRINT 

1240 LPRINTUSINCP3$| "AVERAGE ANNUAL SAVINGS PER MEMBER* I *•(*., 19) I 

P(2,l»)iP(J,l»),P(4,19)|P(5,19))P(6,19),P(7,19)jP(8,19)|P(9,19)i 

P(1B»19) ;P(11, 19), P(12, 19) iLPRINT 

1250 LPRINTUSINGP18;*CBRTIPICATES/TOTAL SHARES" »P( 1,20) , P(2,20) i 

K3,20)|P(4,20)jP(5,20)|P(6,20);P(7,20)»P(8,20)|P(9,20);P(10,20) 

|P(11.20))P(12,20) 

1297 REM 

1298 REM * • • • * SAVE DATA ON DISK * * * • • 

1299 REM 

1300 OPBN*0*,l,"CU/DAT"iPRINTtl,Y,BL,BA,BS,BM 
1310 FORX-lTO12iFORZ>lTO20 

1320 PRINTIl,P(X,X),*,",iNEXTZiNEXTXiCLOSEl 
1400 END 




IJG would 

like to apologize to all 

readers, and dealer*, who ordered 

The Custom TRS-80 and have been wondering where it is. 

Magazine advertisements have to be prepared 2 to 3 
months before they actually appear in print. Originally the 
book was scheduled for printing in early May, just as the 
first advertisements were to appear, but the Editor must 
have been in a time-warp when he made the original 
production estimates! 

He completely under-estimated the time needed to 
prepare and process the dozens of photographs, circuit 
diagrams, printed circuit layouts, assembly language 
programs and reams of information that Dennis Kitsz had 
provided. 

The book has now been scheduled for printing in early 
November, and should be available before the end of the 
month. It will be worth the wait, it's one heck of a book! 

Credit card orders are not being processed until the book 
is back from the printers. If you prepaid by check, and 
would prefer not to wait, then you can obtain a full refund 
prior to shipment - or use your credit towards other IJG 
products. 

Sorry about this, thank you for waiting, 



ZJaLP 



*•*» 



Jim {'What year is it?') Perry, Editor 




1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 

TRS-80 is a trademark of Tandy 



GAME 



Outmaneuver a friend with your Color Computer. 



Colorful Maneuvers 



James W. Wood 

424 N. Missouri, Box 507 

Atwood, IL 61913 



Tired of running games that 
involve no decisions or 
games in which you learn to 
beat the program? This game 
uses the computer to generate 
the playing field and rapidly 
lengthens two player's lines till 
one runs into something. You 
cannot predict your opponent's 



GJ player on leli 

MJ player On right 

S determines mitral d lection 

W$ right players input 

R$ lelt players input 

OS determines direction 

U right players slarhnq X coordinate 

V right players starling Y coordinate 
X led players starting x coordinate 

Y left pla,pis slarlmg Y crxudinale 
Z color ol line 

N drecls program liont tell to right piaye' 
A number of games left player *on 
B number o' games right player won 
O used .n drawing border 



Table 1. Variable List. 



strategy. Will he attack and try 
to surround you, or will he just 
try to stay in the open with lots 
of running room? 

I bought one version of this 
game in a book, but it didn't 
work. One player could perma- 
nently block the other by hold- 
ing down a key. In my program 
if pushing a letter doesn't 
change your direction, immedi- 
ately release and push again. 
The second push will work. 
Many hours of study by stu- 
dents in my computer class 
have shown that the program is 
functional. ■ 

Contact the author for infor- 
mation on purchasing the pro- 
gram. 




I 5 determine starling direction 

8 determines starting position 

9 draws border 

10 13 101 makes it impossible lor 
player lo permanently block keyboard 
2050 and 120 IM turns line 
52.152 determ res il game over 
3OO4I0 snows wr<ere game lost 
1000 it TO instructions 



Table 2. Line Description. 



Program Listing 1. 4K Color Basic. 



8 CLS i INPUT 'PLAYER ON LEFT • ;G$i INPUT'PLAYBR ON RIGHT "iHStGOSUB 
lilt 

1 CLSiS-RND(4) 

2 IPS-1THENW$-'J"!R$«"A , ':G0T08 

3 IPS-2THENW$*'L°sR$-*D*iGOTOB 

4 IFS-3THBNW$-*I*tR$>°E*iGOT08 

5 W$-"N"|R$-"C" 

8 U-B:V=15:X=55:Y=15:N=1 

9 CLS9i2-RMD(8)iFORQ-eTO63:SET(0,8,Z) :SET(Q,31,Z) tNEXTQ: FORQ-BTO 
31:SET(0,Q,Z) : SET( 6 3 , Q , 7, ] :NEXTQ 

lfl IFN=1THEH12ELSE10B 

12 Q$-INKEY$:IPQ$«""THENQ$"W$ 

13 IPASC(Q$)<7»THEN182 
15 W$-Q$ 

28 IF0S-"J , THENX«X-l!GOTO52 
38 IFQS-'L"THENX-X+l:GOT052 
48 IFQ$»"I"THENY-Y-l:GOT052 
58 IFQ$-*N*THENY«Y+1 
52 IFPOINT(X.Y) 08THEN3B8 



Program continues 
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WE WILL NOT BE UNDERSOLD 



DISK DRIVES 



i 



FOR TRS-80* 
CCI-100 



Model I 
5V4",40Track(102K) 



ADD-ON DRIVES FOR ZENITH Z-89 
CCI-189 5 % ", 40 Track (102K) 

Z-87 Dual 5Vi " system 



$299 



$389 
$995 



External card edge and power supply included. 90 day warranty/one 
year on power supply. 

CORVUS 5mg $3089 10 mg $4489 Mirror $699 

RAW DRIVES 8' SHUGART 801 R $399 

5 Vr TAN DON $CALL POWER SUPPLIES $CALL 

DISKETTES - Box of 10 

SVr Maxell $40 

8" Maxell $45 

PLASTIC FILE BOX- Holds 50 5 V»" diskettes 

PLASTIC LIBRARY CASE 5V*' $3,00 

HEAD CLEANING DISKETTE 

FLOPPY SAVER $10.95 

16K RAM KITS 

200ns for TRS-80,* Apple II, (specify): 

COMPUTERS/SYSTEMS 

ARCHIVES 64K, 2-Drives, 77 Track 

ALTOS ACS8000 Series 

ZENITH 48K, all-in-one computer 

ATARI 400 $ 359 

MATTEL INTELLIVISION 

APPLE PERIPHERALS 

SYSTEM SPECIAL 

Apple II Plus 48K w/drive and controller. Epson MX-80 printer and 

interface. SUP-R Mod RF Modulator: List $2965 You Pay $2295 

TERMINALS 

ADDS Viewpoint SCALL 

ZENITH Z-19 $ 725 

TELE VI DEO 910 $ 559 920C $729 950 $ 939 

IBM 3101-10 $1189 

S-100 CALIFORNIA COMPUTER SYSTEMS 

MAINFRAME $359 Z80CPU $ 269 

64KRAM $599 FLOPPY DISC CNTRL $ 359 



BASF/Verbatim 


$26.95 


BASF/Verbatim 


$36.00 




$19.00 


I 8" 


$ 4.00 




$25.00 


RINGS 


$ 6.95 


2 for $37 


$19 


Jumpers 


$2.50 




$CALL 




$CALL 




$2200 


800 


$ 789 




$ 259 




$CALL 



INTEGRATED SYSTEM W/INTERNAL CABLES, TESTED $1975 

2P + 2SI/0 $ 269 

4 PORT SERIAL I/O $ 249 

4 PORT PARALLEL I/O $ 179 

CABLES $CALL 

CASIO CALCULATORS 

POCKET COMPUTER FX702 $199.00 

DESK PRINTER /CALCULATOR FR100 $ 79.95 

SCIENTIFIC CALCULATOR FX8100 $ 49.95 

GAME WATCH CA90 Plastic $ 49.95 

GAME WATCH CA901 Steel $ 69.95 

SPORT WATCH AX210 Calendar $59.95 

BUSINESS SOFTWARE 

WORDSTAR for Apple II $ 329 

WORDSTAR for Zenith Z89 $ 329 



PRINTERS 




NEC SPIN WRITER 
7710 R.O. Par 
7710 R.O. Par w/tractor 
7720 KSR w/tractor 
7730 R.O. Ser 
7730 R.O. Ser w/tractor 
NEW 3500 Series 
MX-80 MX-80FT 



EPSON MX-70 

PAPER TIGER 

IDS 445 Graphics & 2K buffer 

IDS 460 Graphics & 2K buffer 

IDS 560 Graphics 

ACCESSORIES 



ANADEX 
OKIDATA 

Microline 80 
Microllne 82 
Microline 83 



DP-8000 $849 



MX100 



DP-9500/01 



Friction & pin feed 
Friction & pin feed 
120 cps, uses up to 15" paper 
Call for new Microline series! 
CENTRONICS 739, new model with graphics 
C. ITOH 
Starwriter I 
Starwriter I 
Starwriter II 
Starwriter II 
AXIOM 
DATA SOUTH 

MONITORS 

BELL A HOWELL 
LEEDEX 



25 cps, parallel interface 
25 cps, serial interface 
45 cps, parallel interface 
45 cps, serial interface 
GP-80M 
180 cps 

9"B&WBHD911 



$2395 
$2595 
$2795 
$2395 
$2595 
$CALL 
$CALL 

$ 639 
$ 799 

$1049 

$CALL 

$1295 

$CALL 
$CALL 
$CALL 

$ 739 

$1439 
$1495 
$1770 
$1870 
$ 319 
$CALL 



$155 
$159 



Green Screen $238 
Color $399 

Green Screen $129 



12'B6W $129 12" Green Screen 

13" Color $329 

SANYO 9'B&W $149 12" 

12" B & W $219 13' 

ZENITH 13" Color $349 12' 

TELECOMMUNICATIONS 

LI VERMORE STAR MODEM 2-year guarantee $1 25 
UNIVERSAL DATA SYSTEMS UDS103LP $149 UDS103JP $215 

NOVATION CAT $139 D-CAT $149 

AUTO-CAT $199 APPLE CAT II $339 

D.C. HAYES SMART/STACK MODEM $235 

MICRO-MODEM II $295 

CCI Telnet Communications Package $135 



APPLE ACCESSORIES 

Mfr. by Microsoft - Mountain Computers 
VISICALC $185.00 

VISITERM $119.00 

Z-80SOFTCARD $259.00 

KEYBOARD ENHANCER $110.00 
APPLE JOYSTICK $ 49.00 

SUP-R MOD $ 25.00 

APPLE CARDS $ CALL 

SUPERCALC $199.00 

CPS MULTIFUNCTION CARD 

ENTERTAINMENT 

Mfr. byOn Line - Broderbund 

FLIGHT SIMULATOR $29.00 

WIZARD ft PRINCESS $28.00 

MYSTERY HOUSE $24.00 

HIRES FOOTBALL $35.00 

RASTER PLASTER $25.95 

SPACE EGGS $17.95 



AND SOFTWARE 

- Videx - CCS - Personal Software 
VISIDEX $159.00 

VISIPLOT $139.00 

VIDEX BOARD $249.00 

16KCARD $159.00 

SUP-R FAN $ 39.00 

CCS CARDS $CALL 

ASCII EXPRESS $ 59.00 

ALF9 VOICE BOARD $149.00 
$199.00 



Sirius 
SARGON II 
ABM 

GORGON 
MICROPAINTER 
APPLE PANIC 
MATTEL GAMES 



California Pacific 
$29.00 
$21.95 
$34.95 
$29.00 
$27.95 
$27.00 



For fast delivery, send certified checks, money orders or call to arrange direct bank wire transfers. Personal or company checks require two 
to three weeks to clear. All prices are mail order only and are subject to change without notice. Call for shipping charges. 



dealer (national/international) inquiries invited Send for FREE Catalogue 



TO ORDER CALL TOLL FREE 1800.3436522 

TWX: 710-348-1796 Massachusetts Residents call 617/242-3361 



The CPU SHOP 



5 Dexter Row, Dept. MC11M 
Charlestown, Massachusetts 02129 
Hours 10AM-6PM (EST) Mon.-Fri. (Sat. till 5) 



Technical Information call 617/242-3361 
Massachusetts Residents add 5% Sales Tax 
Tandy Corporation Trademark/ 8 Digital Research 





I V/SA 


-^^^- -^^^"•» 





'See List ot Advert/sirs on page 402 
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for the TRS80 from Micro -Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green-Screen fits over the front of your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare. You get bright luminous green characters and 
graphics like those featured by more expensive CRT units. 
Don't confuse the Original Green-Screen with a piece of thin 
film stuck to the face of your video tube, such as that adver- 
tised by others. The Original Green-Screen is mounted in a full 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display. It is attached with adhesive strips 
which do not mar your unit in any way. 

The full frame design of the Original Green-Screen "squares 
off" the face of your video display and greatly improves the 
overall appearance of your system. 

(Specify whether for Model I or Model III) 

THE GREEN-SCREEN $13.95 

Add $1.50 for postage and handling. 

THE ULTIMATE STAR TREK PACKAGE 

i 




Tired of trivial computer games? This complete Star Trek 
package will provide you with endless fascination and 
challenge. In addition to the program cassette, it includes 
comprehensive instructions, a pad of "Voyage Log" record 
sheets, and a free-standing "Torpedo and Maneuvering 
Chart." 

The package is built around the latest version of Lance 
Micklus' incomparable Star Trek III, a 13,000 byte program 
with a host of subtle and imaginative features, which in- 
clude numerous dynamic and spectacular graphic displays. 
Star Trek III puts you in command of the Enterprise cruising 
in a galaxy of 192 quadrants filled with uncharted hazards, 
including hostile Klingons, pulsars, and black holes. You 
have at your disposal scanners, various weapons and 
defense systems, on-board computers, and a loyal crew. 
(You will need them all to survive the Klingons.) 
Your mission is to rid the region of Klingons and to locate 
five inhabitable planets, all within 300 stardays, before re- 
turning to Star Fleet Headquarters where your overall effec- 
tiveness as a starship commander will be scored. High 
scores are possible only with careful planning and effective 
battle tactics. The "Voyage Log" sheets will guide your 
strategy, and the "Torpedo and Maneuvering Chart" will 
give you a vital edge in combat. (When you engage three 
Klingon ships you can't afford to miss.) 



STAR TREK PACKAGE (tor Level II. 16K only).. 
Add $2.00 lor postage and handling. 



$22 95 



Terms: Check or money order, no CODs or credit cards, please Add amount 
shown lor postage and handling to price ol the item. All items shipped within 48 
hours by firs! class or priority mail. Virginia residents, add V/, sales tax. 



Program continued 



68 SET(X,Y,Z) !N«2:GOT01» 

190 0$»INKEYS:IFQS«"THENQS«RS 

161 IFASC(QS)>7BTHEN15 

102 RS-QS 

120 IPQS«"A"THENU-U-l!COT0152 

130 IFQ$-"D*THENU-U+l:GOT01S2 

140 IFQ$- , E'THENV«V-l:GOT0152 

150 IFQ$*"C"THENV«V+1 

152 IFPOINT(U,V)O9THEN400 

160 SET(U,V,Z) :N-1:GOTO10 

300 SOUND200,30:FORE-1TO300:SET(X,Y,Z) :RESET(X,Y) :NEXTE 

310 A-A+l:CLS:PRINTG$j" WINS" :GOTO500 

400 SOUND100,30:FORE-1TO300:SET(U,V,Z) :RESET(U,V) : NEXTE 

410 B»B+1:CLS:PRINTH$>" WINS* 

500 PRINT-TOTAL" :PRINTG$;" WON" ; A: PRINTHS; * WON" ;B: FORO-1TO600 : N 

EXTQ:GOT01 

1090 CLS:PRINT"HOW TO TURN YOUR LINE" 

1010 PRINT'PRESS THESE LETTERS FOR THE DIRECTION TO GO" 

1106 PRINT 

"jHS 
I I" 

D J L* 

: n" 

OP" 
LEFT RIGHT" 
DOWN" 
1150 PRINT: PRINT'PRESS ANY KEY TO CONTINUE" 
1160 Y$-INKEY$:IFY$-"THEN1160 
1170 RETURN 



1110 PRINTGS;" 
1120 PRINT" 
1130 PRINT" A 
1140 PRINT" 

1142 PRINT" 

1143 PRINT" 

1144 PRINT' 



8 U = 15:V = 24:X = 1 13Y = 24N = 1 

9ClS:FORQ = 0TO 

127:SET(Q,0):SET(Q.47):NEXTQ:FORQ = 0T047:SET(0,Q):SET(127,Q):NEXTQ 

60 SET(X,Y):N = 2:GOT010 

160 SET(U,V)):N «= 1;GOTO10 

300 FOR E = 1TO300:SET(X,Y):RESET(X,Y):NEXTE 

400 FOR E = UO300:SET(U,V):RESET(U,V):NEXTE 

Program Listing 2. Listing Change for Model I and III. 



Micro -Mega • P.O. Box 6265 • Arlington, Va 222Q6 



goo0 t*« *»* RIBBON SALE 

° FOR RADIO SHACK* CENTRONICS-EPSON LINE PRINTERS 
[Longer Life-Heavier Inking] 

EXACT REPLACEMENT INSERTS 

[Cartridges NOT Included] 
LPI-ll-IV-700-730-737-779 $11.00/3 $42.00/D0Z 

LPIII-V $21 .00/3 M2.007DOZ 

LP VI-VIII $21.00/3 $82.00/DOZ 

Daisy Wheel II [Carbon Film] $26.00/6 S50.00/D0Z 

EPSON MX-70-80-100 $24.00/3 $95.00/DOZ 

[Our instructions make Inserts easy to put in your cartridge] 

RELOADS 

[You SEND old CARTRIDGESto US-WE RELOAD them for you] 
LPIII-V Each. ..$9.00 

LP VI-VIII Each.. .$9.00 

DW II [Carbon Film] 3 Pack. $15.00 

Centronics 7-MEG 702, 703, 704, 753 Cartridge Each... $10. 00 

EPSON MX-70, 80, 100 Each. ..$10.00 

NEW CARTRIDGES FROM RADIO SHACK 

LPIII-V [26-1414) Two for $25.00 

LP VI-VIII [26-1418] Two for $21.00 

LP VII [26-1424] Two for $16.00 

DW II Carbon Film [26-1419] 3 Pack $22.00 

CENTRONICS 7-MEG 702, 703, 704, 753 Cartridge Two for.. .$26.00 

Volume 1 MODEL 118" GAME DISCS Volume 2 
Biorhythms, Trap $25.00 Each Ugly, Bingo 

Rip Cord, Yacht Sea Towers, Blackjack 

Concentration + 4 Mora Farkle. Pony + 3 More 

We Pay Shipping On Prepaid Orders! Net 30 Accounts Available 
SEND CHECK, MONEY ORDER or COD TO: 

BCCOMPCO ^ mgm 

800 South 17* Box 246* 417 932-4196 [ | 

Summersville, M0 65571 
'RADIO SHACK Is a trademark of Radio Shack, a Tandy Corp. 
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AUTO-DIAL/ 
AUTO-ANSWER 




$224.95!* 



The MICROCONNECTION™ can dial 
and answer the telephone, run 
printers, decode busses, transcribe 
transmissions, answer/originate and 
direct-connect to the telephone 
system. Lots of terminal and host 
software too. For more information 
write or phone: 

the microperiphera! corporation 

2643 - 151st PI. N.E. 

Redmond, WA 98052 

(206) 881 -7544 

* RS232 MJCROCONNECDONtm ^ X6 




RELIABLE, SIMPLE MEMORY 
EXPANSION YOU CAN AFFORD! 




Shown above is the IM-2 48K INTERNAL MEMORVand a phillips screw- 
driver — everything you need to ADD up to 32K RAM to your TRS-80* Model I 
keyboard unit (for a total of 48K RAM). No soldering or trace cutting — just open 
the case, remove your RAM chips, plug the INTERNAL MEMORY (IM)into the 
RAM sockets, plug your chips back in, connect 4 solderless clips (they work!)and 
close the case (Detailed, illustrated step-by-step instructions show you how to do 
this). You now have a 48K keyboard unit — and you didn't have to buy an 
expansion interface! If you don't need 48K, a 32K version is available. 

Time and experience have shown that the TRS-80* expansion buss cannot 
reliably drive memory systems. Because the IM does not use the buss, it may be 
used with ANY expansion device for reliable memory operation. Some of our 
customers use an IM INSTEAD OF the RAM in their expansion interface to 
eliminate El memory problems! 

Because the IM draws most of its power from the 12 volt supply, power supply 
loading is not a problem. Some additional heat is generated, but the TRS-80* runs 
so hot anyway you probably won't notice the increase! 

The INTERNAL MEMORY is completely tested and assembled using only 
the finest materials. You have 15 days to return it for a refund if you don't like it, 
and it is guaranteed for I full year. Installation is available for a small fee. 

Send a S.A.S.E. for more information. 



PRICES — 



IM-IB (32K) <65.50 (w/!6K RAM) 

IM-2 (48K) *I40.00 (w/32K RAM) 

Prices include UPS shipping in U.S. 
Utah residents add 5% tax; FOREIGN ORDERS add 15%. 



■ fio/tn 



&. 



6246 West 3705 South Salt Lake City, UT 84420 (801) 967-2324 




SCRIPLUS 



Scriplus is a modification to Scripsit c which enables 
you to take advantage of the special functions, 
features, and print formats of your printer while your 
document is being printed. Allows you to: 



change ex pamded print 
change no- of characters per inch 
or underline in mid-line! 



All in accordance with the capabilities of your printer. 
You can change your print size at will! Features: 

1) The user can send commands to the printer to 
activate special formats 

2) Scriplus will not crash programs protected in high 
memory. 

3) "END" returns to DOS READY instead of re- 
booting. 

4) The initial line-feed is changed to a carriage return 
to empty the text buffer. 

5) The user can get an ALPHABETIZED directory 
from within scriplus. 

6) Optionally select automatic line feed after carriage 
return. 

7) Supports custom printer drivers (not included) 

8) Modifies Scripsit/LC or /UC. (MOD I) 

9) Works with MOD I and MOD III! (Including MOD III 
3.1 Scripsit!) 

10) Specifically written for the MX-80, but will work 
on ANY Printer that accepts CHR$ codes for 
control. 



Tape or disk — $ 24.95 

(specify) 



— DEALER INQUIRIES INVITED — 

QUALITY SOFTWARE DISTRIBUTORS 

11500 STEMMONS EXPRESSWAY, SUITE 104 ■■■ 



IRS SO l Sci»5j1 lit 
TuiitiiufkirtTjndjCorp 



DALLAS, TEXAS 75229 
PHONE (214) 484-2976 
MICRONET 70130,203 



• 27 



Pnct Dots Not kick* 



sSee List ol Advertisers on page 402 
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CO 



More powerful programming tools 
for theTRS 80. Nowon disk. 



Better results. Microsoft's Level III BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities. 

• Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

• Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80. 

• Advanced graphics. Develop charts, graphs, even anima- 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

• DUMP command that makes debugging easier. 

• Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user -definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level III and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft™ dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/ Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS-80 is a trademark of Radio Shack, a division of Tandy Corporation. 

Microsoft is a trademark of Microsoft. Inc. 

Microsoft Consumer Products is a division of Microsoft. Inc 
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CONSUMERS PRODUCTSI 

400 108th Ave. N.E.. Bellevue. WA 98004. (206) 454-1315 



UTILITY 



For readable Basic programs. 



Superlist 



Morris Jones 

3395 Balboa St., Apt. 8 

San Francisco, CA 94121 



Basic, the world's most pop- 
ular computer language, is 
designed to be easy to read 



and learn. But have you tried 
reading a fairly complex Level II 
program lately? To a real begin- 
ner, it might as well be machine 
language. At least with as- 
sembly code there is only one 
instruction per line. 

Much can be learned about 
programming by reading suc- 
cessful programs. Unfortunate- 
ly, the advantages provided by 
modern Basic interpreters for 





"111 


I HERE IS A 


SUGGESTED PRINT ROUTINE TO USE WITH 




Mill 


1 SUPERLIST 


FOR PAGED OUTPUT 


THIS ROUTINE IS POR 




MI2I 


; THE 


RADIO 


SHACK PARALLEL PRINTER INTERFACE, AND IS SIMILAR 




• 1131 


1 TO 


TIE ROUTINE IN LEVEL II 


RON. THIS ROUTINE HILL 




11141 


1 CIVE YOU 


IVELVE BLANK LINES BETWEEN EACH PACE 0? 




• •Ml 


1 M 


LINES. 








• •lit 


1 










"111 


I SIT 


BUPP 


SOU TDPEH IN H>IN 


SOURCE PILE POR SUPERLIST 




Mill 


; OR 


NSERT 


THIS CODE POR PRINTER ROUTINE. 




Mill 


1 








IBM 


• 1211 




ORG 


7DB4H 




TOM 79 


M21I 


PRIKT3 


LD 


A.C 


iCHAR STORED IN C 


7035 rtic 


11221 




C? 


12 


;PORN PEED7 


TOOT 2#18 


■ 1231 




JR 


NZ.PR1 


lID, PUNT IT 


TOM DDT El 3 


• 1241 




LD 


A,(IX«3) 


(GET LINES PER PACE 


7D»C DDIII4 


■ MSI 




S'JB 


1IX«4) 


(SUBTRACT CURRENT COCST 


7DBP 3I»C 


M2II 


PR 3 


LO 


A, 12 


J ADO TWELVE LINES 


T0C1 4T 


•1271 




u> 


B,A 


ISAVE IN COUNTER 


TDC2 CDECTD 


M2II 


PR2 


CALL 


READY 


IWAIT POR PRINTER 


TDCS 3EI» 


• 12*1 




U> 


A, 11 


;LOAD A LINE PEED 


TDCT 32EI37 


M3M 




LO 


(3TESB) ,A 


(SEND IT 


TOCA ltP« 


11311 




DJNI 


PR2 


lUNTIL THROUG8 


TDCC D03M4M "321 




LD 


(IX. 4). I 


lIERO COUNT 


TOM C» 


• 1331 

• 1341 


, 


PET 




; THROUGH 


TD01 CDECTD 


• MSI 


PHI 


CALL 


READY 


(HERE IP NOT PP 


7004 T» 


M3I* 




LO 


A.C 


(GET BACK CHARACTER 


TDDS 32M3T 


• 1371 




LD 


(3TEIH) ,A 


1SEND IT 


7DO» PIK> 


••311 




CP 


11 


(IS IT CR? 


TDOA CI 


M3M 




RET 


NI 


JNO, QUIT 


7DD» DD34I4 


M4M 




INC 


<IX*4> 


(BUMP LINE COUNT 


TDDt DDTE*4 


"111 




LD 


A,(IX*4) 


JGET LINE COUNT 


TORI DDBEI3 


• 14 21 




CP 


(IX+3) 


;PAGE PULL7 


TDE4 7 9 


M42S 




LD 


A.C 


; RESTORE CHAR 


TDCS CI 


• 143) 




RET 


NI 


;N0, QUIT 


TDM AF 


Mill 




XOR 


A 


iTES, IER0 A 


TDET CDM7D 


M4S* 




CALL 


?R3 


I SEND TWELVE LINES 


TDU 7 9 


M4S4 




LD 


A,C 


I RESTORE CHAR 


TDM C9 


M4S8 
1*441 


, 


RET 




It QUIT 


TDEC 1ACI37 


"4 71 


READY 


LD 


A, (ITEM) 


rGET STATUS 


TDET tit* 


M4M 




AND 


IPIB 


iLOW BITS DON'T MATTER 


TDP1 FE3I 


•I4M 




CP 


3IH 


;3I IP READY 


TDP3 Ct 


MSM 




RET 


X 


J GO SEND CHARS 


Tor 4 JA4f3f 


MSI3 




LD 


A.(IMIH) 


1 STROBE CHTRL KEYS 


TDPT CBJT 


• ISM 




BIT 


2, A 


(BREAK PRESSED? 


TDft C2T2M 


"519 




JP 


NX.MT2H 


lOUIT ir SO 


TOPC 1ME 


MS1I 
MS2« 


, 


JR 


READY 


(CHECK AGAIN 


MM 


MS3I 




END 






(MM TOTAL 


IRRORS 






Example 





microprocessors are disadvan- 
tages to the reader of Basic 
programs. An efficient program 
that takes advantage of Lev- 
el Us best features is nearly 
impossible to read. Micros are 
limited in memory available, so 
a compact Level II program is 
written without spaces be- 
tween words, using as many 
statements on a line as pos- 
sible. Each space character 
uses one byte; line numbers 
use five bytes each (that goes 
for line 65000 as well as for line 
one). 

I wrote my first Basic pro- 
grams without the aid of a 
printer. I soon found myself 
wanting some kind of perma- 
nent record of my programs 
that wasn't susceptible to stray 
magnetism. A friend kindly of- 
fered to provide printouts in ex- 
change for copies of my best 
programs. He had a disk sys- 
tem that would take a Basic 
program stored in an ASCII file 
and print it with each statement 
on a separate line. From that 
came the inspiration for a 
listing program that did not re- 
quire Disk Basic. 

Without a disk, the problem 
is more complex. Basic does 
not store its programs in ASCII, 
but in a very compact coded 
version using one byte "to- 
kens" for Basic keywords. After 
obtaining my own printer, I 
quickly set about writing a pro- 
gram to give me readable 
listings using what was avail- 
able in Level II. 



Enter Superlist 

These are the features I 
specified for Superlist when I 
first began to research Level II: 

•Each line of Basic should be 
split at the colons, with each 
statement starting a new 
printed line. 

•The printout should have 
margins on the left and right 
sides of the paper, so a listing 
will fit neatly in a binder. 
•Jammed-together lines of 
Basic code should be spread 
out by putting a space on either 
side of any Basic keyword. 
•At the end of the listings, the 
program should report its size in 
number of lines, statements and 
bytes of memory occupied by 
the program text. 

Each of these features was 
realized in Superlist, along with 
two I hadn't expected: 
•Lines containing "If... Then 
. . . Else" statements are split at 
the "Else" by inserting a colon 
before it. 

•Lines with apostrophe-type 
remarks are split before the 
apostrophe with a colon. 

These were a result of the 
way Basic stores Else state- 
ments and remarks made with 
an apostrophe. 

How to Use Superlist 

To use Superlist, you need a 
Level II with at least 16K of 
memory, a printer that uses a 
Radio Shack parallel interface 
or any serial interface, and a 
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■N3*<16: 



rj, i 



5TOii:N2<i: 



7Rim*:.2,CHR*<e5 



':;;e: 



le cls 

29 CLERR208 

3© DIM N1*<32>-B>;<8.3>,N2*<I6>,G>.<3,3 

40 OEFSTRN,VJDEFIHTB-M,0-X,Z 

50 UI« 15368« SC=0: IN=HW=0 

35 FORI»lTO8:FORJ=lTO8:B(I,J>=0!G<I J .jrV-0:UE> 

68 F0RI-1T032X HI < I >»RIGHT*<3TR*< I > .. 2> : NEXT 

70 F0RI=1T07:N2<I>»STRIMG*<2, CHR* •: 64 <• I > >>NEXTl FORI - 

+I>>:HEXT 

88 F0RI=1T08:H3< I >=STR*< I)iNB<T:F0RI=9T016: H5< I >=CHR-I <06*-I3 

85 IFCTHEN1I8 

90 CLSl PR I NT 1 PR I NT "BLACK BOX UERSIOH 2.8":PRIHT"BV H0PF.I5 JONES":: 

VOU NEED INSTRUCTIONS? "; 

95 V=INKEV*t IFV=" "THEN95 

1 88 PR I NT V i 1 FOR I = I T02O9 s NEXT : I F V= " V " THENO - 1 : GO T030&0 : E LSE I F .' -, ; " N 

:G0T095 

110 C=0:CLS 

508 F0RUU=1T08: F0RHU=IT03: D=UI+65+64*W+3*HU: POKED, 143: POKED*J - M3:'r-i£::TH'. 

510 FORI^lTOBs PRINT*65+3*I , Nl< I > I : NEXT 

520 FORI=9T016:PRXNT«156+64*< 1-9) ,N1 (. I> ; :NEXT 

538 F0RI=17TO24: PRINT«665-3*C I-17> , Nl < I > II NEXT 

540 FORI =23T032: PR I NT«377-64+ < I -25 ),N1SCX)JI NEXT 

550 PRINT«99, "CHOOSE: ";:PRINT«163» "DEGREE OF DIFFICULTY, " a FRUIT HIT, "NUT 

BOLLS <3-3>?"; 

560 H=UfiL < INKEV* ) : IFH< 30RH >5THEN563ELSEPR IHT«25G . H ; 

570 FORI=ITOH 

580 HU=RNDC3>:U0=RND<S) 

590 I FB < HU , UU '> THEN530ELSEB < HU , W ) - - 1 : NEXT 

600 FORI =1TO7O0: NEXT 

610 G0SOB841Q 

620 PRINT«99, "CHOOSE: ";:-FRIHT<ai63- " 1 > STOP AND SCORE" isPRIMr*22?. " 2/ LrVJi 

*tPRIMT«291>"3) PLRCE BflLL GUESS"; 

630 PRI NT«355, "4 > RENOUE BflLL GUESS " ; : PRI NT«4 19, " 3> REDRAW SOU " ; : PR MTC*. 

TS USED!";SC; 

640 PRINT«803,STRING*C34. " "):PRIHT'8S03, "CHOICET " ; 

650 X8-UflL< INKEV*>: IFX0< lORX0>3THEN65OELSEPRIHTX8i :.-ORI- --1T0206J NE. -.J 

660 ONX0GOTO 1 000 ., 2008 , 3000 , 4088 , 5008 

1000 F0RI=1T08:F0RJ=1T03: IFG-: I , J)THENW=(.i*l : NEXT J, IEL3ENEXTJ, I 

1010 IFW>HPRINT"*803,"TOO MflNV GUESSES" ;:U=0: FORI =1T0700: NEXT: G0TG618 

1028 IFg<HPRINT-a303, "NOT ENOUGH GUESSES" j:W-0: FOR 1-1 T07G0: NEXT: GOTOolB 

1025 GOSUB8410:GI=-1 



iT:f 
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copy of Editor/Assembler to 
assemble the source code into 
machine language. If you are 
using a 16K machine, assemble 
the code with an origin of 
7B00H (31488 decimal), for 32K 
try BBOOH (-17664 decimal), 
and for 48K try FBOOH (-1280 
decimal). 

If you use a Radio Shack in- 
terface to drive your printer 
then your task is almost over. 
Delete lines 250 through 270 
and lines 2980 through 3600; 
Superlist will automatically use 
the printer routine in Level II. 
You may still wish to use a 
routine that will format your 
copy in pages. The Level II 
driver counts printed lines, but 
does not send a form feed or a 
set of line feeds when a page is 
full. 

I used the Heathkit H-14 
printer with Small System Soft- 
ware's popular RS-232 inter- 
face. If you have one of these 
insert their machine language af- 
ter line 2980. At the beginning of 
Superlist, the program will 




NEW ARCADE 
• GAMES • 



Sand (or our catalog tor a complete hating of product*, and 
you will be addad to ou r mailing liat for new product* as we 
get them. We will send out a newsletter describing new 
products in detail to every one on our maillist 

Dungeon Escape $14.95 / 19.95 

Our best selling combination Adventure and Arcade 
game. A favorite with & D people. 

Allen Defender Disk only $24 95 

Ouickest graphics ever seen on a model I or III. You 
control a spaceship shooting other small ships. Very. 
Very quick. The control you have over the directions 
and fire control is unsurpassed in any other TRS-80 
game. Uses the disk timer so you must have a disc to 
enjoy this great game. This game will set new standards 
in TRS-80 games 

Robot Attack $14 95 / 1 9.95 

New game from Big Five. You go through a room and 
shoot all the robots. 

Scarf ma n $1 4.95 / 1 9.95 

Excellent game from theCornsoft group. Little critter 
runs around the screen eating the dots. 

Super Meter helps you load in programs. . . $29.00 

Ptaaaa Include $1. 60 shloplngVhtndlno. Sand your .cWr.u. 
specifications, and check or money order toe 

BJurlorh Blareijouse ^433 

1691 Eason • Pontiac, Ml 48054 

(313)673-2224 • (313)673-8700 

NEW GAMES AND PROGRAMS WANTED 



UNCOMMON 



SCREEN ARTIST — turn your screen into a drawing 
board. Create complex screens with simple com- 
mands. Store screens as BASIC statements on tape 
or disk in any of 4 formats, including ultra fast 
packed strings or lines. Edit the screens you create 
easily. Makes ultra fast graphics a snap Merge 
completed screens with your program. A powerful 
tool, great for schools. Specify Tape. Disk, Model I. 
HI $17.00 

DISCOMETER - disk drive tachometer for the 
Model I. Real time, analog display of rotation speed 
of your drives. Save $ in diagnosing disk problems, 
and making simple motor adjustments $14.00 

DUPLICATOR — copy virtually any tape with ease. 
BASIC, system, or data. Includes verify feature. 
Model I only. $8.00 

SUBPACKER — pack machine code in BASIC lines 
or strings Execute them easily from BASIC Simple 
to use: stunning results Specify Model I, III; 
Tape/Disk $9.00 

LANGUAGE ARTS — reading fluency, cloze 
reading, comprehension drills, tachistoscope. In- 
cludes 4 programs. A complete program for the 
educator or concerned parent Specify Model l/lll; 
Tape/Disk $80.00 

MIGHTY WORD CANNON - educational drill with a 
touch of fun. Create quizzes on any subject. Word 
cannon does the rest. Specify Tape/Disk. $9.00 

Tape versions require 1 6K, Level II 
Disk versions require 32K. 1 drive 

MONEY BACK GUARANTEE 
SEND CHECK/MO. TO: 

smallsystem 



design 



^397 
Box 268, New Hartford, CT 06057 



LET'S MAKE A 
DEAL 

Free Shipping Wilhin Continental U S.A 



LDOS 



Complete w/manual & latest updates 
Mod J or III $144.95 



LAZYWRITER 

Mod. I $118.95— Mod III $164.95 



EPSON MX100 

CALL FOR OUR LOW PRICE 



LYNX — Mod 



Includes — Autodial/answer 
cables & software 



$259.95 



MAXI MANAGER 

by Adventure International 
Model l/l 1 1 48K Disk $79.95 



Proofreader Mod 1 49.95 Mod III 59.95 

Proofedit Mod I or III 28.50 

Grammatik Mod 1 45.95 Mod III 55.95 

by Soft-tools 



SEND FOH YOUR FREE CA r ALOG 
No credil cards at I hoso low prices Add$1 .50 on ;iii Cod or- 
ders Ceriified ck/MO/COD shipped immediately Please 
allow 2 weeks for personal checks For extra last service. 
phone in your COD order Prices subject lo change without 
notice N Y.S residents please add appropnalo sales tax 
WeOtlerGreal Vdlues & Prompt Delivery Why Not Try Us' 



MICRO-IMAGES 

146-03 25th Rd, Flushing, NY 11 354J 

Mon-Fri 10 AM-9 PM (212)445-7124 Sat 10 AM-5PM 
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PROGRAMMING TOOLS FOR YOUR 
TRS-80® MODEL I AND MODEL HI 



INSIDE LEVEL II 

The Programmers Guide to the TRS-80 ROMS 

INSIDE LEVEL II is a comprehensive reference guide to the Level II ROMs which allows 
the machine language or Basic programmer to easily utilize the sophisticated routines 
they contain. Concisely explains set-ups. calling sequences, and vanable passage (or 
number conversion, arithmetic operations, and mathematical functions, as well as 
keyboard, tape, and video routines. Part II presents an entirely new composite program 
structure which loads under the SYSTEM command and executes in both Basic and 
machine code with the speed and efficiency of a compiler. In addition, the 18 chapters 
include a large body of other information useful to the programmer including tape 
formats. RAM useage. relocation of Basic programs, USR call expansion, creating 
SYSTEM tapes of your own programs, interfacing of Basic vanables directly with ma- 
chine code, a method of greatly increasing the speed at which data elements are stored 
on tape, and special precautions tor disk systems. INSIDE LEVEL II is a dearly organized 
reference manual It is fully typeset and packed with nothing but useful information It 
does not contain questions and answers. ROM dumps, or cartoons. 
Includes updates lor Model III. INSIDE LEVEL II $15.95 

SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any Basic or machine language program one 
instruction at a time, and see the address, hexadecimal value. Zilog mnemonic, register 
contents, and step count lor each instruction The top 14 lines of the video screen are left 
unaltered so that the target program may perform its display functions unobstructed 
STEP80 will follow program flow right into the ROMs, and is an invaluable aid in learning 
how the ROM routines function Commands include step (trace), disassemble, run in 
step mode at vanable step rate, display or alter memory or CPU registers, jump to 
memory location, execute a CALL, set breakpoints in RAM or ROM. write SYSTEM 
tapes, and relocate to any page in RAM The display may also be routed to your line 
pnnter through the device control block so custom print dnvers are automatically sup- 
ported 
Specify Model I or Model III. STEP80 $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program may be used as a smart terminal with time share 
systems or for high speed file transfers between two disk- based micros over modems or 
direct wire. It is menu driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive binary files, examine 
and modify UART parameters, program 8 custom log-on messages, automatic 16-bit 
checksum vesication of accurate transmission and reception, and many more user 
conveniences. Supports line printers and lowercase characters With this program you 
will no longer need to convert machine language programs to ASCII lor transmission, and 
you will know immediately if the transmission was accurate This program comes on a 
formatted disk 
Specify Model I or Model III. TELCOM $39.95 

PROGRAM INDEX VERSION 2.0 

Assemble an alphabetized index of your entire program library from disk directones 
Program names and free space are read automatically (need not be typed in) and may be 
alphabetized by disk or program The list may also be searched for any disk, program, or 
extension; disks or programs added or deleted; and the whole list or any part sent to the 
printer Printer output may be requested in three different formats including labels. The 
list itself may also be stored on disk for future access and update. It also includes a 
PURGE mode for quickly killing unwanted files Directory reads and alphabetizing is 
done m machine code for speed. 1.000 programs may be sorted in less than 10 seconds. 
Works with TRSDOS. NEWDOS. and NEWDOS'80 single Of double density. One dnve 
and 32K required 
Specify Model I or Model III. INDEX $24.95 

4 SPEED OPTIONS FOR YOUR TRS-80 

The SK-2 dock modification allows CPU speeds to be switched between normal, an 
increase of 50%. or a 50% redudion; selectable at any time without interrupting execu- 
tion or crashing the program. Instructions are also given for a 100% increase to 3.54 MHz. 
The SK-2 may be configured by the user to change speed with a toggle switch or on 
software command. It will automatically return to normal speed any time a disk is adive. 
requires no change to the operating system, and has provisions for adding an LED to 
indicate when the computer is not at normal speed. It mounts inside the keyboard unit 
with only 4 necessary connections for the switch option (switch not included), and is 
easily removed if the computer ever needs service The SK-2 comes fully assembled 
with socketed IC's and illustrated instructions 
Model I only. SK-2 $24.95 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new. powerful tape- based assembler and debugger for 
the TRS-80. Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger. Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning tool lor assembly language programming 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers in that it 
produces relocatable code modules that can be linked with the separate LINKING 
LOADER, which is supplied in two versions for loading programs into either high or low 
RAM. This lets you build long programs with small modules. INSTANT ASSEMBLER also 
features immediate detection of errors as the source code is entered, a compactly coded 
source format that uses 1/3 as much memory as standard source, and many operational 
features induding single stroke entry of DEFB and DEFW. pinpoint contrd of listings. 
alphabetic listing of symbol table, separate commands for listing error lines or the symbol 
table, block move function, and venficatwn of source tapes. 

INSTANT ASSEMBLER'S debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly 
of objed code in memory, memory display in ASCII lormat. and hex-to-deamai or 
decimal-to-hex conversion. The single -stepper will step one instruction at a time or at a 
fast rate lo any defined address. 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory. In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 
bytes. This and its module-linking feature make INSTANT ASSEMBLER ideal for users 
with only 16K machines. The instaidion manual may be purchased separately for $3. 
which will apply towards the purchase of the INSTANT ASSEMBLER 
Specify Model I or Model III. INTASM $29.95 



RAM SPOOLER AND PRINT FORMATTER 

This program is a full feature pnnt formatting package featuring user dehneable line and 
page length (with line feeds inserted between words or after punctuation), screen dump, 
printer pause control, and baud rate selection. In addition, printing is done from a 4K 
expandable buffer area so that the LPRINT or LLIST command returns control to the user 
while printing is being done. Ideal for Selectric or other slow pnnters. Allows printing and 
processing lo run concurrently. Output may be directed to either the parallel port, serial 
port, or the video screen. 
Specify Model I or Model III. SPOOLER $16.95 

MACHINE CODE FAST FOURIER TRANSFORM 

This complete package includes 3 versions of the machine language FFTASM routine 
assembled for 16. 32. and 48K machines, a short sample Basic program to access them, 
a 10K Basic program which includes sophisticated interadive graphing and data manipu- 
lation, and a manual of instructions and examples. The machine language subroutines 
use vanables defined by a supporting Basic program to make data entry and retneval 
extremely fast and easy for custom implementation They perform 20 to 40 times faster 
than their Basic equivalent (256 points in 12.5 seconds), and require less than 1550 bytes 
of memory. The FFT is useful in analyzing stock market and comodity trends as well as for 
scientific information. 
Specify Model I or Model III. FFTASM $49.95 

DUPLICATE SYSTEM TAPES WITH CLONE 

Make duplicate copies of any tape written for Level II They may be SYSTEM tapes or 
data lists The file name, load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. Model III version allows changing tape speed 
Specify Model I or Model III. CLONE $16.95 



RAMTEST FOR LEVEL II 

This machine language program is a very thorough test for several types of RAM errors 
A complete test of each individual bit in a 48K machine takes (ust 14 seconds. Includes a 
separate test for power line glitches. 
Model I only. RAMTEST. ...$9.95 

EDIT BASIC PROGRAMS WITH ELECTRIC PENCIL 

Load Basic programs or any other ASCII data file into the disk version of Elednc Penal 
for editling. One command from DOS quickly modifies existing files to Penal format One 
disk and 32K required 
Model I only. PENPATCH $9.95 



MUMFORD 

MICRO 

SYSTEMS 



ORDERING: Complete satisfaction is guaranteed or a full lefund will be made All programs 
[except IF.l.COM) are shipped on cassette unless $5 is included lor a formatted (no system) 
disk Include >1 50 lor postage and handling California residents add (>°o sales tax Visa. 
Mastercharye and COD orders accepted SPECIFY MODEL I OR MODEL III. Dealer 
inquiries invited 

Box 400-E Summerland, California 93067 (805) 969-4557 



■See List ol Advertisers on page 402 
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change Basic's line printer 
Device Control Block to reflect 
this routine location. In fact, 
once you have run Superlist 
you can continue to use its 
printer driver routine to LLIST 
and LPRINT. I borrowed the 
RS-232 driver routine used by 
Electric Pencil to drive my H-14 
and modified it to count lines 
and form feed after a full page. 
Pencil's driver is a bit shorter 
than the relocatable code pro- 
vided by Small Systems. 

If you use Radio Shack's 
RS-232 interface to drive your 
serial printer, use the source 
code provided by Radio Shack 
in the book included with the in- 
terface. 

In each of these cases the 
printer driver can be assembled 
separately if there Is not room 
in the Editor/Assembler buffer 
for the additional text. Use an 



origin of 7DB4H. BUFF should 
be after the printer routine, so 
set It in the main source listing 
to the last address of the driver 
plus one byte. Try not to get car- 
ried away writing a long printer 
driver. BUFF should not end up 
above 7EC0H. 

About Basic RAM 

Before you can understand 
what Superlist is doing, you 
should know the format Basic 
uses to store its programs. This 
task would have been close to 
Impossible were it not for Fuller 
Software's "Supermap" Level II 
ROM documentation. Although 
there seemed to be a few 
crucial things missing from the 
map, Fuller provided most of 
the information I needed. 

The first line of any Basic 
program begins at 42E9H. The 
first two bytes of a line contain 



the starting address of the next 
line (stored by Superlist in 
NXTLIN). This is followed by the 
line number (stored in binary as 
a two-byte unsigned integer) 
then the line of text ending with 
a zero byte. 

The big problem becomes 
decoding the Basic keyword 
tokens. The ASCII for each 
keyword is stored in ROM; all of 
the keywords are stored back 
to back in a list beginning at 
1650H. The ASCII keywords are 
stored in the numerical order of 
their tokens, starting with 
token 128. The beginning of 
each keyword is marked by set- 
ting the highest bit (bit seven) in 
the first byte, which is the same 
as adding 128 to the ASCII code 
for the letter. In order to locate 
the ASCII keyword correspond- 
ing to a particular token, the 
program subtracts 128 from the 



token (by zeroing bit seven) and 
uses the remainder to count 
through the table. The count is 
decremented each time a new 
keyword is encountered (a byte 
with bit seven set) until the cor- 
rect keyword is found. 

Fuller referred to this sub- 
routine in Level II ROM by say- 
ing "Call Mr. Spock for his 
opinion of this message," so I 
called my decoding routine 
"Spock." I had fun trying to find 
out how to decode the tokens, 
since the format of this table 
was one of the few things Fuller 
left out of "Supermap." 

The surprises came after I 
had a working program to test. 
Basic stores an Else with a 
colon immediately before it. 
This had the desirable effect of 
breaking the line of text at each 
Else. But if the Basic program- 
mer had already put a colon 



le cls 

20 CLERK 200 

3e DIM Ni*<32>.B>:<8,3),N2*<:i6) .G\<3.3>.N3*< 16> 

4C DEFSTR N.Vi 

DEFINT ft - M.O - y-Z 
38 UI » 13360: 



0: 
l: 



SC 
IM 

u - e 

53 FOR I - 
FOR J ' 
B<I.J> = 0: 
G<I.J> - 0: 
NEXT J, I 



TO 3: 
TO 3: 



1 TO 31 

RIGHT* 



1 TO N 
STRING* 



3 TO 16: 
STRING* 



1 TO 3: 

str* <:■>>■ 



;tr* ci>,2): 



2. CHft* 164 * x>: 



chr* :6? » :•>-,: 



9 TO 

CHR* 



16: 
(96 



I> 



:.©■•: 



60 FOR I 

NKI) 

NEXT 
70 FOR I 

N2(I> 

NEXT : 

FOR I 

N2<I> 

NEXT 
80 FOR I 

N3<I) 

NEXT : 

FOR I 

N3<I) 

NEXT 

IF C THEN 110 

CLS I 

PRINT « 

PRINT 

PRINT 

PRINT I 

PRINT "DO VOU NEED INSTRUCTIONS" 

V » INKEV* I 

IF V » "" THEN 93 

iee print vjj 

FOR I - 1 TO 200: 

NEXT : 

IF V - "V" THEN C 

GOTO 8000: 

ELSE IF V < > "N" 

GOTO 93 
110 C - 0i 

CLS 
300 FOR UU 

FOR HU 

D - UI 

POKE 0. 143: 

POKE ♦ 1.143: 

NEXT HU*UU 
310 FOR I = 1 TO 8» 

PRINT 465 ♦ 3 * 

NEXT 
320 FOR I - 9 TO 161 

PRINT 4136 ♦ 64 * <I - 9>.NUI>;: 



83 

90 



95 



"BLACK BOX UERSION 
"BV MORRIS JONES": 



- l: 



PRINT CHR* :33~:: 



1 TO 8: 
1 TO 8: 
63 ♦ 64 



I, NKI);: 



- 17),NKUJ: 



NEXT 
330 FOR I = 17 TO 24: 

PRINT 4663 - 3 ♦ CI 

NEXT 
340 FOR I - 23 TO 32: 

PRINT *377 - b4 * <.I - 25).N1*<I>;: 

NEXT 
530 PRINT 499, "CHOOSE: ";: 

PRINT 4163. "DEGREE OF DIFFICULTY, " ;: 

PRINT 4227. "NUMBER OF BALLS -;3-3>?"; 
360 H - UAL < INKEV* >* 

IF H < 3 OR H > 3 THEN 360: 

ELSE PRINT 4250 -H; 
370 FOR I - 1 TO H 
530 HU ■ RND <8>: 

UU --• RND <8> 
590 IF B<HU.UU~' THEM 380 : 

ELSE BO*'. UU) ' - l: 

NEXT 
600 FOR I = 1 TO 700: 

NEXT 



610 


GOSUB 8-110 


620 


PRINT 499. "CHOOSE:";: 




PRINT 4163. "1) STOP AND SCORE" Ji 




PRINT 4227, "2) LAUNCH RflV";: 




PRINT 4291, "3:> PLACE BALL GUESS"; 


630 


PRINT 4353. "4) REflOUE BALL GUESS";: 




PRINT 4419. "5) REDRAW BOX";: 




PRINT 4773. "POINTS US£:>:";SC; 


640 


PRINT 4803. STRING* <3-5" "): 




PRINT 4803. "CHOICE""; 


650 


X0 * URL < INKEV* •: 




IF XO < t OR XB > 3 THEN 650: 




ELSE PRINT X0;: 




FOR I ~ 1 TO 200: 




NEXT 


660 


ON X0 GOTO 18O0 , 2000, 30OO -1000 . 5000 


1000 


FOR I = 1 TO 8: 




FOR J - 1 TO S: 




IF G<I,J> THEN W - U + t: 




NEXT J. I: 




ELSE NEXT J. I 


1010 


IF U > H PRINT 4863. -TOO MfiNV GUESSES";: 




U - Oi 




FOR I - 1 TO 700: 




NEXT : 




GOTO 610 


1020 


IF U < H PRINT 4803. "NOT ENOUGH GUESSES";! 




U - 0: 




FOR I = 1 TO 700: 




NEXT : 




GOTO 610 


1025 


GOSUB 8410: 




GI = - 1 



33 BASIC LINES IN PROGRAM 
112 BASIC STATEMENTS IN PROGRAM 
1348 BYTES USED BV PROGRAM TEXT 
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SAVE 
$$$ 



TRS-80 

MICROCOMPUTERS 

CALLUS... 
SAVE MONEY 



SAVE 
$$$ 




Model II 

64K 

$3325.00 

Full 3 

Month 

Warranty 



CALL COLLECT: 
512-689-5536 
Master Electronics, Inc. - 84 
154 N. 5th, Raymondville, Tx. 78580 




Form F48 Provided 
Standard Warranty On Merchandise 




Authorized TRS-80 Dealer. Store #F-723 



X" 



By Charles Butler 

Take on the formidable "Liberty Links" golf course by 
yourself or with a friend. The course changes each time 
you play, offering 18 holes in a mixture of straight and 
dogleg configurations. They range from three to five par 
and are replete with trees, water hazards, sand traps, 
and out of bounds areas. 

You judge the distance, choose your club from the full set 
provided, and indicate the direction you wish the ball to 
go. But watch out for the breeze or a poor hit - it can 
play havoc with your shot! Just like in real golf, it takes 
practice to hit a sub par round. Available on tape for 
TRS-80* models I t III with a minimum of 16K RAM. Order 
now for only $13.95. 

MAIL ORDERS: Include $2 00 shipping 4 handling (DC residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-6674 (of lastesl service 



THE LIBERTY SOFTWARE CQ 

635 Independence Avenue, S.E. 
Washington, D.C. 20003 

(202) 544-6674 + 61 



^See List ol Advertisers on page 402 
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BASIC Is ^ not nearly as slow 
as most programmers think. 

BASIC Faster and Better shows you how to 
supercharge your BASIC with 300 pages of 
fast, functions and 
subroutines. 

You won't find any trivial poorly designed 
'check- book balancing' programs in this 
book- ifs packed with useful programs. 

Tutorial for the beginner, instructive for 
the advanced, and invaluable for the pro- 
fessional, this book doesn't just talk. . . it 
shows how! All routines are also available on 
disk, so that you can save hours of 
keyboard ing and debugging. 

The # 1 disk BFBDEM contains all the 
demonstration programs, and # 2 BFBLIB has 
all the library functions. 

BASIC Faster & Better is $29.95, and the two 
program disks are $19.95 each. 
Get the book and/ or disks from your local 
IJG dealer and B. Dalton bookstores. 




1260 W. Foothill Blvd. 
Upland. California 91786 

(714)946-5805 
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before the Else I ended up with 
double colons, and a blank line 
of text. When Basic does a list 
to video, it suppresses the 
colon preceding an Else. I de- 
cided that was desirable, so 
Superlist looks only for the 
case of double colons and 
skips over one of them, so you 
won't produce a blank line. Let 
it be known you need never put 



a colon before an Else. Basic 
will do it for you, and you will 
never see it unless you use 
Superlist. 

The other surprise was the 
way Basic stores remark lines. 
An apostrophe is interchange- 
able with a REM statement, but 
Basic does not store them the 
same way. If you put the key- 
word REM in a line, Basic will 



store REM as a one byte token. 
But if you put an apostrophe in 
a line Basic first stores a colon, 
then a REM token, then the 
apostrophe token. What looks 
like a one byte apostrophe 
actually takes three bytes of 
memory to store. 

Superlist will look for an 
apostrophe token each time it 
encounters a REM token and 









Program Listing 3 








08100 


JSOURCE FILE FOR SUPERLIST. 


NEMSIZE-31487 '31488 






08110 


JCOPVRIGHT MORRIS JONES MRV 


14, 1988 


7888 




08120 


ORG 


7B88H 




ms 


ED73FE7F 


08130 


LO 


<7FFEH>,SP 


;SAUE SP 


7884 


31FE7F 


88148 


LO 


SP/7FFEH 


>NEW STACK 


7887 


0O21PO7O 


88158 


LD 


IK, LINES 


J INDEX TO CLEF* UfiRS 


7986 


flF 


88168 


MM 


a 




7NC 


007788 


08178 


LD 


<ix>,n 


JCLEflR LINES 


7B8F 


D07781 


08108 


LO 


<IX+D.fl 




7B12 


DD7782 


88198 


LO 


<lX+2>.« 


i CLEAR STMNTS 


7B1S 


D07783 


88288 


LO 


<IX+3>.A 




7818 


OO7704 


88210 


LD 


<IX+4>»fl 


JCLEflR OUOTES 


7B1B 


0O7785 


08228 


LD 


<ix+3>>n 


ICLEflR OUITFL 


7B1E 


007706 


08238 


LD 


< ix+6> . n 


JCLEflR CHHRS 


7821 


00212348 


00240 


LD 


IX.4823H 


fPRINTER DCB 


7823 


21B47D 


B8238 


LD 


HL, PRINTS 


>USE 858DH FOR 


7828 


007381 


88268 


LD 


(IX+D.L 


; BASIC'S PRINTER 


7828 


0D74B2 


08270 


LO 


<IX+2>,H 


I DRIUER. 


7B2E 


0D368336 


88288 


LD 


<IX+3>,34 


19 OF LINES 


7832 


00368486 


88288 


LD 


<IX+4>,0 


JLIME COUNTER 


7B36 


FD21E942 


88388 


LD 


IV,42E9H 


UNIT BflSIC POINTER 


7838 


FD22887D 


88310 


LD 


CHXTLIN>.IV 


J START IMG POINT 


7B3C 


F8288B7C 


88320 


STHRT2 LD 


IV, <MXTLIN> 


»NEU LIME START 


7842 


0O21197E 


88338 


LD 


IX, BUFF 


JlNIT OUTPUT BUFFER 


7846 


FD4E88 


88348 


LD 


C, CIV) 


JNEXT LIME LSB 


7849 


FD23 


80338 


IMC 


IV 




7848 


FD4688 


88368 


LD 


B, <IV> 


;MEXT LINE MSB 


7B4E 


FD23 


88378 


INC 


IV 





skip past the REM if there is an 
apostrophe. 

If you wish for Superlist to 
suppress these Basic extras in 
the same fashion an ordinary 
list does, see the modifications 
below. 
Superlist Routines 

The only way to tackle any 
large programming problem is 
to break it down into a group of 
smaller problems. Superlist 
was written in this "block" 
fashion. Here are descriptions 
of the routines used by Super- 
list (keep the source listing 
handy as you read these): 

•From the beginning to 
Start2 the program initializes 
the memory and variable space 
it will be using. Superlist can be 
left in high memory and used 
over and over. Each time it is 
restarted it must clear the 
various flags and counters, 
which is done by lines 150 
through 230. Lines 240 through 
290 initialize Basic's line 
printer Device Control Block at 
4025H. 

Start2 is the starting point 
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Program continued 












7B38 78 


88380 




LD 


0,8 


iTO TEST 


7BS1 Bl 


08398 




OR 


C 


;FOR ZERO. END OF FILE 


7832 CA8B7D 


80488 




JP 


Z.QUIT 


;ouit IF SO 


7833 ED43AB7D 


08418 




LD 


(NXTLIN),8C 


JSAUE IF NOT 


7859 FD6E99 


O0429 




LO 


L.(IV) 


JLOM BYTE LINE • 


7B3C FD23 


88430 




INC 


IV 




7B5E FDfefeee 


88448 




LO 


H. ( ISO 


IHIGH BVTE LINE • 


7861 FD23 


09430 




IHC 


IV 




7863 AF 


OOMJO 




XOR 


A 


iCLEflR ACCUMULATOR 


7864 111827 


88478 




LO 


OE. 10888 


;FIRST DIUISOR 


7867 CD0C7B 


88490 




COLL 


SUBTR 


JLEAUES DIGIT IN R 


7B6A 11E883 


88499 




LO 


OE.1088 


JTHOUSANDS DIGIT 


7860 CD0C7B 


88388 




CflLL 


SU8TR 




7B78 116488 


88318 




LD 


DE. 100 


JHUNDREDS DIGIT 


7873 CODC7B 


98529 




CALL 


SUBTR 




7876 118A08 


90530 




LO 


DC. 18 


;TENS DIGIT 


7B79 COOC7B 


88348 




CflLL 


SUBTR 




7B7C 78 


89538 




LO 


B,L 


JONES DIGIT IS LEFT 


7B7D C638 


99360 




HOP 


0.38H 




7B7F 007789 


99570 




LO 


(!X>«fl 




7B82 D023 


99589 




IMC 


IX 




7B84 3E28 


93590 




LO 


R,29H 


JSPflCE AFTER LINE • 


7B86 DD7788 


88688 




LO 


(IX), A 


JSAUE IT 


7889 DD23 


88618 




INC 


IX 




7888 FD7E88 


99620 


1=12 


LO 


H, (IV) 


;GET NEXT CHflR 


7B8E FD23 


09630 




INC 


IV 


;INC BflSIC PHTR 


7898 CS7F 


99648 




BIT 


7, A 


JCHECK HIGH BIT 


7892 2833 


88658 




JR 


Z.A3 


JGO IF HOT 


7B94 FE93 


Mg£a 




CP 


93H 


JCHECK FOR REH 


7896 281C 


88678 




JR 


HZ. 01.3 


JNO.GO TO ELSE CHECK 


7898 FD7E88 


08688 




LD 


A. <IV> 


JLOOK AT NEXT FOR ' 


7898 FEFB 


88690 




CP 


BFBH 


J APOSTROPHE TOKEN 


7890 2883 


08790 




JR 


Z.A14 


JVES. GO TO « CHECK 


7B9F F07EFF 


00710 




LO 


fl, (IV-1) 


JNO. GET BACK REH 


7BA2 1828 


08728 




JR 


A15 


JGO TO SPOCK 


7BB4 FD23 


80730 


B14 


INC 


IV 


JSKIP PAST REH IF ' 


788* FD7EFC 


80748 




LD 


fl, (1V-4) 


JLOOK BACK FOR « 


7BA9 FE3fl 


88738 




CP 


3flH 


JIN CASE OF 2 COLONS 


7888 2882 


80768 




JR 


HZ.R16 




7BAD 0O2B 


00778 




DEC 


IX 


JURITE OUER IT 


7BAF FD7EFF 


09789 


016 


LD 


fl, (IV-1) 


JGET BACK APOSTROPHE 


7882 1818 


09798 




JR 


nis 


JGO TO SPOCK 


7BB4 FE95 


88888 


013 


CP 


95H 


JCHECK FOR 'ELSE' 


7BB6 2B8C 


08818 




JR 


NZ.A15 




7B88 FD7EFO 


88828 




LO 


R, < IV-3) 


JLOOK FOR ' l s ' 


7888 FE3H 


09838 




CP 


3AH 




7BBO 2832 


88848 




JR 


MZ,fll7 




7BBF 0028 


88858 




DEC 


IX 


JVES, URITE OUER SECOND 1 


7BC1 FD7EFF 


08000 


017 


LD 


fl.(IV-l) 


JGET BACK 'ELSE' TOKEN 


78C4 C0F87B 


08878 


015 


CflLL 


SPOCK 


J INTERPRET IF BIT7 SET 


78C7 18C2 


08888 




JR 


82 




7BC9 B7 


09890 


R3 


OR 


fl 


JTEST FOR ZERO 


7BC8 2889 


88988 




JR 


HZ, 84 


JGO FORWARD 


7BCC 007788 


90918 




LO 


(1X5.0 


JSAUE THE ZERO 


7BCF C0367C 


88928 




CflLL 


PRINT1 


JPRINT THE LINE 


7BD2 C33E7B 


80930 




JP 


START2 


; TRUCK ON 


7BOS OD7788 


89940 


04 


LD 


(IX), n 


JJUMP HERE IF 


7B08 0O23 


89950 




INC 


IX 


J ORDINARY ASCII 


78DA 18AF 


90969 
99979 


1 


JR 


02 


JGET ANOTHER UN 


7B0C AF 


00980 


SUBTR 


XOR 





JCLEflR fl 


7800 E052 


09990 


Bl 


S8C 


HL,D£ 


: SUBTRACT DE 


780F FAE57B 


01099 




JP 


M,C1 


JJUMP IF NEGATIUE 


78E2 3C 


01010 




IIC 


fl 


jcount IF positiue 


78E3 18F8 


01029 




JR 


81 




78E3 87 


01939 


CI 


OR 


fl 


JTO RESET CflRRV FLflG 


7BC6 ED5A 


01949 




OOC 


HL.DE 


JADD THE DIUISOR BACK 


7BE8 C638 


01930 




ftDD 


R.38H 


JCONUERT TO ASCII 


TBEfi 007788 


01969 




LO 


(IX). fl 




7BED 0023 


01979 




IIC 


IX 


JSAUE CHAR 


78EF C9 


01989 




RET 




JCOUMT THROUGH 



78F0 
7BF1 
7BF4 
7BF6 
7BF8 
7BFA 
78FC 
7BFE 
7C81 
7C83 
7C84 
7C86 
7C87 
7C88 
7C8B 
7C8C 
7C8E 
7C8F 
7C11 
7C13 
7C14 
7C16 
7C19 
7CIB 
7C1C 
7C1D 
7C1F 
7C2I 
7C24 
7C26 
7C28 
7C2B 
7C20 
7C2E 
7C38 
7C33 
7C33 

7C36 
7C3fl 
7C3E 
7C3F 
7C43 
7C47 
7C48 
7C4C 
7C4F 
7C32 



F3 

D07EFF 

FE28 

2896 

FE3A 

2887 

3E20 

DD7799 

0023 

Fl 

E67F 

47 

84 

215916 

7E 

C87F 

23 

28FR 

18F8 

2B 

E67F 

DD7788 

D023 

23 

7E 

C87F 

2087 

0O7798 

0023 

18F3 

FD7E90 

FE28 

C8 

3E28 

007708 

0023 

C9 



0021 197E 

EDSBAD7D 

13 

ED53RD7D 

EDSBAF70 

13 

ED53flF70 

CODF7C 

DD4E88 

D023 



81108 
81118 
81129 
01138 
01140 
01150 
01160 
01178 
01180 
01190 
01280 
01210 
01229 
01230 
01249 
01239 
01268 
01279 
01288 
81298 
81388 
81318 
81328 
81330 
01340 
01350 
01360 
01378 
01388 
01390 
01488 
01410 
01428 
01438 
01449 
01459 
81468 
81478 
81488 
81498 
01588 
81518 
81528 
81538 
81540 
01558 
01568 
01370 



CP 
JR 
CP 
JR 
LD 
LO 
INC 
POP 
AND 
LD 
INC 
LD 
LO 
BIT 
INC 
JR 

DJNZ 
DEC 
AND 
LD 
INC 
IMC 
LD 
BIT 
JR 



IMC 
JR 



INC 
RET 

LO 
LO 

INC 

LO 

LD 

INC 
LO 

CflLL 
LD 

INC 



OF 

fl. ( IX- 1 > 

28H 

Z.SP1 

3flH 

Z.SP1 

fl, 28H 

(IX), fl 

IX 

OF 

7FH 

B,0 

B 

HL, 1630H 

fl, (HL) 

7. A 

HL 

Z.SP2 

SP2 

H- 

7FH 

CIX>,H 

IX 

HL 

A, <HL> 

7. A 

HZ.SP4 

(IX), A 

IX 

SP3 

fl, CIV> 

28H 

Z 

A.28H 
(IX), R 
IX 



IX. BUFF 

DE, (LINES) 

DE 

(LINES), OE 

DE, (STMNTS) 

DE 

(STMNTS >.DE 

INDENT 

C.(IX) 



JSAUE CODED CHAR 
JLOOK BACK AND SEE 
JIF ITS A SPACE 
JIF IT IS FORGET IT 
JOR IF IT'S fl COLON 
JFORGET IT. TOO 
J8UT IF IT ISN'T 
JPUT ONE THER 

JGET BACK TOKEN 
JURSTE THE HIGH BIT 
JMAKES IT fl COUNTER 

J TABLE START 
JGET A SAMPLE 
JCHECK THE HIGH BIT 
JMOUE AHEAD ANVURV 
JNO GOOD, GET ANOTHER 
JDEC COUNTER IF IT IS 
JUE FOUND IT 1 
JAHD IT'S IN A 
JSTORE THE SUCKER 

JLOOK AT THE 
J NEXT ONE 
J NEW UORD? 
JVES. OUIT 
JNO. SAUE IT 

JGO LOOK AGAIN 

JLOOK AT NEXT CHAR 

J FOR A SPACE 

JOUIT IF IT IS 

JELSE 

JPUT ONE IN 

JSPLIT 

J RESET BUFFER PNTR 

JGET LINE COUNTER 

JADD ONE 

JSAUE IT 

JGET STATEMENTS COUNT 

JADD ONE 

JSAUE IT 

JSET LEFT MARGIN 

JGET FIRST CHARACTER 

JPOINT TO NEXT 



Program continues 



for each new line of Basic text 
read by Superlist. It begins by 
reading the address of the next 
line of program and storing it. 
Then it reads the two-byte line 
number. Converting this 
number into decimal digits is a 
matter of dividing the line 
number by 10000 to get the first 
digit, dividing the remainder by 
1000 for the next digit and so 
on. The line number is stored in 
HL, the divisor in DE. Upon 
returning from SUBTR (de- 
scribed below) the ASCII digit 
has been stored in the output 
buffer, and the remainder is left 
in HL 

Each character of the Basic 
line is then put through a series 
of tests in lines 620 through 
960. If bit seven of the character 
is set, then it is a Basic token. If 
not, it is merely placed in the 
output buffer as an ASCII char- 
acter. A zero byte indicates the 
end of a line, and the program 
calls Printl to print the buffer 
and goes back to Start2 to set 
the next line. If the character is 
a Basic token, it is tested to see 
if it is an Else or a REM. In the 
case of an Else, it checks to see 
if it was preceded by two 
colons and deletes one from 
the listing. If the token is a REM 
followed by an apostrophe, it 
deletes the REM. The program 
also looks for two colons pre- 
ceding the REM and deletes 
one of those. After testing, the 
token is sent to Spock for 
decoding. 

•SUBTR is the division 
routine for the line number. DE 
contains the divisor and HL the 
dividend. Each time DE can be 
subtracted from HL with a 
positive result, register A is in- 
cremented. When the subtrac- 
tion produces a negative result, 
DE is added back to HL. 
Register A then contains the 
quotient and HL the remainder. 
Adding 30H to A converts it into 
an ASCII digit which is then 
stored in the output buffer. 

Upon encountering a Basic 
token, the program calls Spock. 
One of the aims of Superlist is 
to spread out the compacted 
lines. Spock does this by check- 
ing for a space before and after 
the keyword and putting in 
spaces if they don't exist. To 
decode the token, the high bit is 
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set to zero by ANDing the A 
register with 7FH. The number 
remaining is how far down the 
table you must look to find the 
keyword. (For instance, after 
zeroing bit seven, if 34 is left, the 
word is 34th in the list.) 

• Printl is called after a com- 
plete line of Basic has been in- 
terpreted, spread out and 
stored In the output buffer. 
First the counters for lines and 
statements are incremented, 
then the program looks at the 
first characters of the line 
number. In order to prevent 
leading zeros from being 
printed, the routine substitutes 
a space for a zero until a non- 
zero character is encountered. 

Printl also looks for colons 
and If it encounters one, in- 
crements the statement 
counter, prints a carriage 
return and indents six spaces. 
However, if the colon is en- 
closed in quotation marks as 
part of a string constant, we do 
not wish to split the line. 
Quotes Is a flag set when the 
routine encounters a quotation 
mark. If Quotes is set, the colon 
check is skipped and reset if 
Printl encounters a zero byte 
signifying the end of the line. 

Subroutines 

The program drops into four 
levels of subroutines before 
printing a character. 

•The main routine calls 
Printl when the output buffer is 
ready to be printed. Printl calls 
Prlnt2 each time a character is 
ready to be printed. 

•Print2 counts the char- 
acters to provide a right margin 
before finally calling Print. If a 
line is full, Print2 sends a car- 
riage return and indents 11 
spaces before continuing. If 
the character sent to Print2 is a 
carriage return, Print2 resets 
the character counter. 

•Indent is optional. It merely 
prints eight spaces to provide a 
left margin. 

•Print begins by checking to 
see if you are pressing Break 
and jumps to Quit if you are. 
Print is written as if the location 
of the printer routine is un- 
known. Index register IX Is 
loaded with the start address of 
Basic's line printer Device Con- 
trol Block which contains the 



Program continued 

7C34 
7C35 
7C37 
7C39 
7C3B 
7C3E 
7C68 
7C*3 
7C*3 

roM 

7C60 
7C*fl 

TCfO 

7C6E 
7C71 
7C74 

tcts 

7C76 
7C70 
7C7A 
7C7C 
7C7D 
7C7F 

Tcaa 

7C83 
7C85 

rem 

7C89 
7C8C 
7C8E 
7C92 
7C93 
7C97 
7C9A 
7C9C 
7C9F 
7CA2 
7CR4 
7CA6 

rem 

7CH8 



79 



CDRD7C 

18EF 

DD4E88 

0023 
79 
FE22 
2987 

3RB17D 

2F 

32B17D 

3AB17D 



FC3R 
2912 
87 



328170 

8EBD 
CDAD7C 
C9 

CDAD7C 
18D2 

CD5BAF7D 
13 

ED53AF7D 
CDAD7C 
SE8D 
CDAD7C 
CDOF7C 

MM 

0E20 

CDAD7C 
18FB 

1863 



01380 

01590 

01600 

01610 

01620 

01630 

01640 H6 

01630 

01660 

01670 A12 

016S0 

01690 

01700 

01710 

01720 A3 

01730 

01740 

01730 

01760 

01770 

01790 R7 

01798 

01880 

01810 

01820 

01838 

01840 

01838 A18 

01868 

01070 AS 

01888 

01890 

01980 

01910 

01920 

01930 

01940 

01938 

01968 A9 

81978 



7CTD 79 
7CAE FE8D 
7CB8 2823 
7C82 3MB37D 
70J3 3C 
7C8* 32B37D 
7C89 FC41 
7C8B 201E 
7C8D CS 



01< 



82818 
82828 

mw 

82840 

02850 



82878 



7CC8 
7CC3 

7CC6 
7CC8 
7CC8 
7CO> 
7CCF 
7C02 
7CD4 
7CD3 
7C07 

tcdb 

7CD8 
7CDE 



C0EB7C 
CDDF7C 



BE20 

C0EB7C 
10FB 
CI 
1884 

rr 

32B37D 
CDEB7C 
C9 



7CDF C3 
jgg 8688 
7CE2 8E28 
7CC4 C0CB7C 
7CC7 18FB 
7CE9 CI 
7CBA C9 



82898 

82180 

02110 

02120 

02130 

02140 

82130 

82168 Pi 

82170 

92180 

82198 

82280 PI 

82218 

82228 P2 

82238 

82248 I 

82238 INDENT 

82260 

82278 

82280 IND1 



Tea 

7CEC 
7CEE 
70F1 
7CF3 
7CF3 
7CF9 
7CFC 
7CFD 



ES 

ODES 

214838 

CBS* 

2823 

00212948 

218470 

ES 

DMC81 

0O6682 

£9 

Doei 
El 

C9 



7D88 3AB27D 
7088 87 



82310 

82328 J 

82338 PRINT 

82348 

82330 

82368 

02370 

82388 

82398 

82488 

82410 

82420 

82438 

82448 PRTRET 

82438 

82468 

82478 J 

82480 QUIT 

82490 



LD 

CP 

JR 

L_D 

CALL 

JR 

LD 

IMC 

U> 

CP 

JR 

LD 

CPL 



LX> 
JR 



XOR 

LD 

LD 

CflLL 

RET 

CflLL 

JR 

LD 
IMC 
LD 
CALL 



call 

CflLL 

LD 

LD 

CALL 

DJNZ 

JR 



PRINT2 LD 



7D18 
7D13 
7013 
7D18 
7D1C 
70IF 
7D23 
7D27 
7D28 
7D2F 
7D31 
7DJ2 
7D33 
7036 
7038 
7D3B 
7D3E 
7D42 
7D44 
7047 



328270 

8E8C 
COE87C 



'70 
E043317D 
ED4BAF7D 

ED436C70 

Foes 

El 

11E942 

87 

EOS2 

228C7D 

014A7D 

E043RB7D 

3EFF 

328270 

C33E7B 



82318 
82328 

02330 
82348 
02330 02 
82368 
02370 Ol 



7D4A 4F7D 
7D4C 0888 
7D4E 88 
7D4F 6870 
7091 0888 
7D33 42 



82688 

02610 
82620 
02630 
02640 
02630 
02668 
02670 
82688 

02690 
02780 
82718 
82728 J 
82738 HI 

82748 mia 

82738 
82768 H2 
82778 M2B 
82788 



CP 

JR 

LD 

IMC 

LD 

CP 

JR 

PUSH 

LD 

CflLL 

CflLL 

LD 

LD 

LD 

LD 

CflLL 

DJNZ 

POP 

JR 

XOR 

LD 

CflLL 

RET 

PUSH 

LD 
LD 

CflLL 
DJNZ 
POP 

RET 

PUSH 
PUSH 

LD 

BIT 

JR 

LD 

LD 

PUSH 

LD 

LD 

JP 

POP 

POP 

RET 

LD 

OR 

JR 

LD 

LD 

LD 

CALL 

LD 

JP 

LD 

LD 

LD 

LD 

PUSH 

POP 

LD 

OR 

sec 

LD 
LD 
LD 
LD 
LD 
JP 

OEFU 

DEFU 
DEFB 

DEFU 

DEFW 
DEFM 



fl.C 

38H 

M2.A12 

C.28H 

PRINT2 

All 

C.(IX) 

IX 

n.c 

22H 

NZ.AS 

A. (QUOTES) 

(QUOTES >.H 

A. (QUOTES) 

A 

A.C 

MZ.A7 

3AH 

Z.A8 



(QUOTES). A 

C.0OH 

PRINT2 

PRINT2 

A6 

DC. CSTMNTS> 

DE 

(STMHTS).DE 

PRINT2 

C.80H 

PRINT2 

INDENT 

8.6 

C.20H 

PRINT2 

A9 

A6 

A.C 

eoH 

Z.Pl 

A, (CHARS) 

A 

(CHARS), A 

63 

NZ.P2 

BC 

c.eoH 

PRINT 
INDENT 

A. 12 
(CHARS) .A 

B. 11 

C.28H 

PRINT 

P3 

BC 

^2 

A 

(CHARS>.A 

PRINT 



BC 

0.8 

C.20H 

PRINT 

IND1 

BC 



HL 

IX 

HL.3848H 

2. (HL) 

HZ. 02 

IX.4023H 

HL. PRTRET 

HL 

L.<IX*1> 

H,<IX+2) 

(HL> 

IX 



A. (OUITFL) 

A 

Z.Q1 

A.0 

(OUITFL).A 

C.12 

PRINT 

SP.(7FFEH> 

72H 

BC- CLIMES > 

(H2A>.BC 

BC. CSTMHTS) 

<MSA).BC 

IV 

HL 

DE.42E9H 

A 

HL -DE 

(M4A>.HL 

BC.M1 

(NXTLIN).BC 

A.8FFH 

<OUITFL),A 

STORT2 

K2 

I 

e 
H3 

9 



J TEST FOR ASCII ZERO 

JOUTPUT LINE IF OK 
ISEMD A SPACE IF NOT 

;GO GET NEXT ONE 
*GET FIRST CHAR 
fPOINT TO NEXT ONE 
;T0 TEST IT 
; FOR QUOTES 
JMO. GO AHEAD 
»VES. 
ICHANGE THE FLAG 

fUELL IT UASH T THERE 
; IF WE JUTTED HERE 
{GET BACK CHAR 
J IF FLAG SKIP COLON TEST 
J CHECK FOR COLON 
IVES. GO FORUARD 
*H0. TEST FOR ZERO 
»N0. JUMP TO PRIMT 

tCLEAR QUOTES FLAG 
IVES. SEND 
I A CRLF 

;PRINT THE CHAR I FOB 

iGET MORE CHARACTERS 

JHERE IF COLON 

;aoo ONE TO 

t STATEMENT COUNTER 

JPRINT THE COLON 

JflND SEHD 

lA CRLF 

;SET LEFT HARGIM 

{COUNT SIX 

; SPflCES 

«AND SEND 

( EACH ONE 

JGET MORE CHARS 

JROUTINE TO COUMT CHARS 

1TEST FOR CR 

JGO CLEAR AK) SEND 

;GET CHAR COUNTER 

4ACO ONE 

iSAUE IT 

J63 IS FULL LIME 

JPRINT IT IF MOT 65 VET 

»SAUE THE CHAR 

1L0A0 A CR 

iAND SEND IT 

JLEFT MARGIN 

i RESET CHARS 

i TO INDENTED UALUE 

>FOR ELEUEN SPACES 

JSPACE ASCII 

;PRINT A SPACE 

lELEUEN TIMES 

;GET BACK CHAR 

;GO PRINT IT 

;CLEHR 0**S 



;BACK TO PRINT 1 



JlMOENT FOR LEFT l*«01N 
»SPACC 



<LOOK AT BREAK KEY 

*QU1T IF PRESSED 
•PRINTER DCS GOES IN IX 

>PUSH RETURN ADDRESS 
1UE DO THIS SINCE 
; UE CAN'T CALLCHL> 

1RETURN HERE AND GET 
I BACK REGS 



IGET FLAG 

•TEST IT 

JlF IT'S HOT SET GO UP 

JCLEAR IT IF IT IS 

SFORM FEED 

; RESTORE STACK 

tflND GO BACK TO BASIC 

*PUT LINES 

JIN MESSAGE 

JPUT STATEMENTS 

J IN MESSAGE 

;END OF BASIC 

<INTO HL 

JSTART OF BASIC 

JCLEAR CftRRV 

JGET THE DIFFEREHCE 

*PUT IN MESSAGE 

»GET LINE ADDRESS 

(AND PUT IN NXTLIN 

»T0 SET QUIT FLAG 

JGO PRIMT IT' 



'BASIC LINES IN PROGRAM' 



Program continues 
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Now my accounting systems 
run on CP/M as well asTRSDOS. 

So they'll work with your micro, 
no matter which it uses. 



I'm Irwin Taranto, and I originally designed my 
Model II systems to work with TRSDOS, the operating 
software Radio Shack supplies with the TRS-80. 

I designed them extremely carefully, with features 
other microcomputer accounting systems don't have. 
Mine all integrate with the general ledger, and, 
where it helps, they integrate with each other. 

My general ledger system gives year-to-year 
comparisons, in dollars and percentages. It figures 
budgets and it even has a report generator. 

My accounts receivable systems can do sales 
analysis by product code and figure in salesmen's 
commissions. They generate mailing lists by customer 
code or zip code for up to 2000 customers. 
You can choose either an open item system or a 
balance forward system which works on a cash or 
an accrual basis. 

My payroll system can handle up to 600 
employees in multiple departments, with any state 
tax routine (we provide them all). It can make any 
miscellaneous deductions you ask it to —it even 
does tips and meals. 




thsdos and TRS-80 are trademarks of the Tandy Corporation. 
CP/M is a trademark of Digital Research Corporation. 



My inventory control system stores up to 5000 
items. It can report by vendor, tell you when you're 
out of stock or when you need to reorder. It can 
update price or cost automatically, and integrates 
fully with my invoicing system. 

There's a lot more, too. Over the years, I've 
had thousands of phone conversations with 
my customers, working out the bugs and kinks and 
adding desirable features. Everybody talks about 
"user-oriented" systems, but because of all these 
phone calls, it really means something when I say it. 
These may well be the most thoroughly researched 
small business accounting programs in the world. 

They're also the best supported, at least as 
far as microcomputer systems go. If you have a 
problem, just call. If your problem is tough enough, 
I'll get on the phone myself. There's no charge for 
phone assistance, ever. 

All these calls keep me upgrading my systems 
constantly. If you own one, you're eligible for a 
standing offer I've made all along: send me your 
diskette, and I'll send you the latest upgrade for 
only $25. 

Now I've taken another step. More and more 
owners are switching over to CP/M software these 
days. It seems to be where the whole microcomputer 
industry is heading. 

That's fine with me, because I've just converted 
all these accounting systems, and can sell them for 
the prices I've listed: 

General Ledger/Cash Journal $ 299 

Accounts Payable/Purchase Order 349 
Open Items Accounts Receivable /Invoicing 349 

Balance Forward Accounts Receivable 399 

Payroll 299 

with Job Costing Option 399 

Inventory Control 399 

For mail-order programs, these prices may seem 
high. But for serious accounting programs, nothing 
can touch them. 

Michael Tannenbaum, the "80 Accountant" 
in 80 Microcomputing, just called them "a very 
impressive product at a very reasonable price." 

Our TRS-80 Model I and Model III systems 
aren't quite as sophisticated. But they're tremendous 
buys at $99 each ($149 for general ledger). 

So call me and take your choice —CP/M or 
TRSDOS. Same price, same support. My systems 
are ready and waiting. 



Taranto 

45 & ASSOCIATES, INC. 



f$9* List of Advertisers on page 402 



121 Paul Drive, San Rafael CA 94903 

Outside California, toll free (800) 227-2868. In California. (415) 472-2670. 

80 Microcomputing, November 1981 • 341 



Program continued 


7084 
7D33 
7DK 
7D37 
7D58 
7D39 
7DSA 
7D9B 
7D3C 
7080 
7O0E 
7D3F 
7DM 
70*1 
7DC2 
7D*3 
7064 
70*5 
7066 
7067 
7068 


41 
53 
49 
43 
28 
4C 
49 
4E 
43 
53 
20 
49 
4E 

2a 

58 
32 
4F 
47 
32 
41 
40 












7069 


88 


02798 


DEFB 


e 






7D6A 


8R7D 


02808 K3 


OEFU 


m 






706C 


8888 


82818 KSfl 


D€FU 


8 






706E 


42 


82828 


OEFM 


'BRSIC STATEMENTS 


IN PROGRflfl ' 




706F 


41 












707a 


53 












7071 


49 












7072 


43 












7073 


20 












7074 


33 












7D75 


34 












7076 


41 












7D77 


34 












7078 


43 












7079 


40 












707R 


43 












707B 


4€ 












7D7C 


34 












7O70 


33 












7D7E 


28 












707F 


49 












7088 


4€ 












7D61 


20 












7082 


39 












7D83 


32 












7D84 


4F 












7085 


47 












7086 


32 












7087 


41 












7088 


40 












7D89 


88 


82838 


DEFB 


a 






7088 


897D 


82848 M4 


OEFU 


M5 






7D8C 


0009 


82858 M4A 


OEFU 





Program continues 



address of the printer driver, 
and this address can be loaded 
into HL. The driver routine ends 
with a RET, but there is no Z80 
instruction to Call (HL). When 
the RET is executed it will pop a 
return address from the stack; 
the program must put the re- 
turn address in the stack by 
PUSHing it before loading the 
routine address in HL and jump- 
ing to it. 

When the main routine en- 
counters 0000 as the NXTLIN 
address, Superlist has reached 
the end of the Basic program 
and jumps to the Quit routine. 

The messages that tell how 
big the program is must still be 
taken care of. To print these 
messages I decided to set up a 
block of memory with the same 
format as Basic RAM. The lines 
and statements have been 
counted and saved in LINES and 
STMNTS. These are two-byte 
unsigned integers, just like the 
line numbers of Basic. Quit 
stores these numbers where 
the line numbers would appear 
in Basic. When the program 



i Cosmopolitan Electronics m 
Corporation 

INTRODUCES 

MULTIDOS 

With Exclusive SUPERBASIC " 

Written By: Vernon B. Hester 

The Ultimate in DOS's 

at the Ultimate Price . . . 

** $ 79.95 ** 

MULTIDOS"* OUTPERFORMS any current DOS 
Total DOS system consumes only 16 grans of 
disk space. Can be reduced to 9 grans. (Who 
needs data diskettes?) 

• The only FULLY AUTOMATIC MULTIPLE DEN- 

SITY OPERATING SYSTEM including Format 
and Backup 

• The only ALPHABETIZED DIRECTORY with 

DATEO FILES 

• Absolutely the only NO HANG DOS 

• The only DOS with NESTED "DO's that will OO 

ANYTHING 

• Absolutely the fastest copy. 

• Retains date and time after non-power up reboot. 

SUPERBASIC* Has Don* It Again . . . 

Free Memory over 40K with everything I 
Here is a brief list ol functions that the author introduced 
lust and has enhanced, where others are stumbling lo 
duplicate 

• Chain Basic programs keeping current variable 

values. 

• High-speed dual dimension sort. 

• Allocate addition file buffers after program is loaded 

• Master global editor and Find Command 

• Dynamically deletes and zeros arrays 

• Assigned variables listed intelligently 

It you wait another year, and pay the exorbitant update 
fee. the other DOS's may have some of these features 
(Possibly, then, the update tee will cost more lhan this 
DOS.) 

COSMOPOLITAN ELECTRONICS 
CORPORATION ^415 

P.O. Box 234 - Plymouth, Ml 48170 
(313) 397-3128 

- DEALER INQUIRES WELCOMED - 
Please include $2 SO ship/hand Send your address & 
Check or M O Mich residents, please add 4% sales tax 



rX.« MMmCH -C- cm 

t»*****»***— ******* miwiwiiMwi ii iiiiiiMi mim iwi 



» llWRL'te T"» -XCJJ.59 E « •> *,wxr 



-80 SPACE RAIDERS 
Starship Simulator 
and Combat Game 

This is the most realistic combat space simulation 
available for any computer system anywhere! 
Operator is placed in a rapidly moving ship looking 
out through a window into the depths of space. 
Thousands of stars appear in the distance and part 
toward the screen edges as the ship flashes past. 
Forward and aft views available at any time. Ac- 
curate celestial navigation using both XYZ and 
spherical Coordinates! Comment from Aug '81 80 
Microcomputing: "May be the ultimate Star Trek 
type game and, possibly, the most complex micro- 
computer game ever attempted"! Fast action 
graphics never stop! 

!!!!Ultimately Realistic!!!! 

$24.95 (MasterCard. VISA, check, etc ) 
includes shipping. COD OK 

Model 1 Level 2 16K 



Bosen Electronics ^416 

445 E. 800 N. 

Spanish Fork, UT 84660 



m SICK x 

OF PROGRAMS THAT TREAT YOU LIKE 
AN IDIOT, WASTING TIME & MONEY?? 

RANDOM ACCESS PAYROLL VER. 1.1 

• No complicated initialization 

• EDIT & LIST 

• NO SPECIAL CHECKS 

• USES NEB 9020 checks 

• PAY any employee anytime 

• SALARIED or hourly 

• SPECIAL PAY— special hours 

• TWO SAVINGS— including RIA 

• CLASSED by occupation or dept 

• PAYSTUB shows Year-to-Date 

• STATE-FICA-FED. TAXES-SAVINGS 

SEND YOUR STATE TAX SCHEDULE- 
FREE— customized to your state tax 

Documentation $10.00 
Disk & Documentation $95.00 

RANDOM ACCESS DEPRECIATION 

• LISTS any one year's depreciation 

• OR complete list of all property 

• PRINTOUT shows— ID. Number— description— 

• Yr. purchased— life— method— 
1st yr. additional depreciation— 

• Reg. deprec.— deprec. prior yrs.— balance 

• SUMMARY— total value prop— additional 1st yr. 

• REGULAR deprec —deprec. prior yrs. 

• PERMANENT records for your taxes 

Documentation $15.00 

Disk & Documentation $195.00 

MIN:32K— 1 DISK— PRINTER/132 CPI 

TERMS: Personal checks require 3 weeks to clear. 

USE— VISA— MASTER CHARGE— MONEY ORDERS 

TEL 7 PM-9:30 PM EASTERN-(617) 359-2364/6370 

SEND: SASE for additional information 

MEDRELD " m 
COMPUTER SOFTWARE 

39 GREEN ST., MEDFIELD, MA 02052 
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N^ What 
<* makes your 

CENTRONICS® 

737 or 739 

the better buy... 

the new ETI 

ETI'8 own microprocessor intelligence 

can put all the power of your 737 or 739 Printer 

at your fingertips... 

ETI's pioneering design (patents pending) allows you to ceatrol all 
the iptitis of this powerful printer with simple commJs right 
from Basic or the body of your word processing text 
Provides naxlnin priitiii tpttl with mainframe-like dedicated 
peripheral control and programmability. 

Compatible with most popular word processing packages and 
microcomputer hardware. 

Features: 

• access to all six fonts of the 737 printer & graphics on 739 

• true proportional spacing with justification 

• superscript, subscript underlining 

• user definable spacing, line centering, form feed 

• UPPER/lowercase support also for UPPER-only systems 

• optional use of BASIC as a simple but flexible wordprocessor 

• no additional cables— Centronics-like edge-card connector 
ETI-A:$147 ETI-T: $147 ETI-U:$157 

(Apple* II +) (TRS-80* Mod. I.ll.lll) (all others) 
order now directly from us (check, MO, Visa, MC) 
or your local printer dealer 

(N.J. residents please add 5% tax) 




micrOdomc 

CORPORATION 

Denville, New Jersey 07834 
RO. Box 392 (201)627-8554 



• 248 



WBSM 



TURN YOUR TYPEWRITER 
INTO A PRINTER 




New KGS-80 
Keyboard Actuator. 



Dealer 
Inquiries Invited 



□ 



Because of its hardware interlace, the KGS-80 is the only actu- 
ator that is delivered ready to set up and run with no alteration 
of your existing software. 

D Rests on keyboard of IBM Selectric. SCM or other typewriters 

May be installed or removed in seconds. 
N New third generation unit engineered and manufactured for 

reliability and long life by Kogyosha Co.. Ltd.. Japan's largest 

manufacturer of DC solenoids 

□ Price $599 FOB New York. NY 

I ! "Y" cable switch option allows alternative operation with high 
speed matrix printer. 

For further information, call (201) 569-8769. »^149 

Authorized Importer 

NIK International Trading Inc. 

114 Liberty St. Suite 204, New York, NY 10006 



THE PROGRAMMER'S GUILD 
MEANS 
ADVENTURE! ! 

GAUNTLET OF DEATH 

This new style of Adventure features an 
exclusive TRAPMAZE™ format in which 
escape is the primary concern. You are 
THORAN THE BARBARIAN, under the 
power of the Tyrant of Graylockland, 
accepting the challenge of the most deadly 
dungeon known to man. In the GAUNTLET 
OF DEATH you are pitted against 
mechanical devices that sling darts with 
uncanny accuracy, deadfall traps where a ton 
of pure marble can crush you in an instant. 
You can find potions which may or may not 
help you in your struggle. You may find 
treasures worth SURVIVAL POINTS against 
the ultimate confrontation of the LAST 
ROOM. Can you survive? Can you make 
your way through the maze of invisible traps 
that keep you from your mission? THE 
GAUNTLET OF DEATH. Tough, unyielding, 
the absolute deadliest of challenges. Will you 
make it? or will you die trying 
TAPE ONLY $19.95 

THE DOMES OF KILGARI 

In the far reaches of the Outrim.the 
Adventure continues. For those who've been 
waiting so long, the sequel to the classic 
DEATH DREADNAUGHT ADVENTURE is 
here at last. You barely make it to Kilgari 
before your fuel is exausted. The Interspacial 
Digitron Corporation has boobytrapped the 
Ion fuel center. Your job though traditional 
adventure format is to overcome all traps and 
retrieve the ion rods necessary for your 
survival and continued journey. THE DOMES 
OF KILGARI. Classic! Adventure at its best. 
$19.95 TAPE $29.95 DISK 



COMPUTER MAIL ORDER IS HERE! ! ! 



Programmer's Guild 

PO Bo. bt>. PeieifiO'Ouqh Nm 034SS • 603-921 606S Voice • fe03-924 7920 Oila 



^S»« List of Advertisers on page 402 
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Program continued 










7D8E 


42 


02860 




DEFM 


'BVTES USED BV PROGRFW TEXT' 


7U6F 


59 










7V» 


34 










7OTI 


43 










7t>92 


33 










7093 


29 










7D94 


35 










7D95 


33 










7t9t. 


43 










7097 


44 










7D98 


29 










7D99 


42 










7D9fl 


39 










7OT8 


29 










709C 


59 










7D9D 


32 










7D9E 


4F 










7MF 


47 










7MB 


32 










7MI 


41 










7WC 


40 










70«5 


29 










7WH 


34 










7DH3 


43 










7TW6 


36 










7DA7 


34 










7MB 


99 


02870 




DEFB 


8 


70«9 


6606 


92889 


re 


DEFU 





70PB 


0006 


92899 


KCTLIN 


DCFU 


6 


TOflO 


0969 


82966 


LINES 


DCFW 


9 


70flF 


0066 


82910 


STJ*fTS 


DEFU 





7061 


96 


82920 


QUOTES 


DEFB 





70B2 


00 


02936 


QUITFL 


DEFB 





7DB3 


09 


82946 
B2930 


CHARS 


DEFB 









82966 


> INSERT VOUR 


PRINTER ROUTINE HERE 






02970 


1 






7064 




02966 


PRINT3 


EQU 


* 






02996 


•LIST OFF 


.•PROTECT TRS232 DRIUER 






03606 


♦LIST ON 




7E19 




03610 


BUFF 


EOU 


• 


7666 




03629 




END 


7B00H 


eeeee total errors 








DCLRV 7E13 










OUT 


7E6E 










0UT8 


7E6C 










PR1 


7DF8 










0UT1 


7E96 










PRIHT4 7DEF 










ST4 


7DDF 










ST3 


7DE9 










ST2 


70C8 








Program continues 



reaches Quit the last address 
of the Basic program is in IY. 
The start of Basic is subtracted 
from this address to set the 
length of the program in bytes, 
and this number is stored with 
the last message. Quit then 
sets a flag (Quitfl), stores the 
start of the message block in 
NXTLIN and jumps back to 
Start2. The program decodes 
the text and prints it just as if It 
were Basic. The next time con- 
trol goes to Quit and the flag 
has been set, Quit prints a form 
feed, restores the stack pointer 
and jumps back to Basic. 

Modification* 

Superlist can be customized 
to suit whatever needs or 
desires you may have for Basic 
listings. 

The left margin of the listing 
is set by the Indent routine. To 
change the left margin, change 
the value in line 2260. If you 
want no left margin, leave out 
the Indent routine and delete 
the calls to Indent in lines 1550, 
1930 and 2110. 




*&L 



EDITOR, ASSEMBLER AND MORE! 



SOFTWARE DEVELOPMENT SY8TEM 

The Micro Works Software Development System (SDS80C) is a complete 6809 
editor, assembler and monitor package contained in one Color Computer program 
pack! Vastly superior to RAM-based assemblers/editors, the SDS80C is non- 
volatile, meaning that il your application program bombs, it can't destroy your 
editor/assembler. Plus it leaves almost all of 16K or 32K RAM free for your 
program. Since all three programs, editor, assembler and monitor are co-resident, 
we eliminate tedious program loading when going back and forth from editing to 
assembly and debugging! 

The powerful screen -oriented Editor features finds, changes, moves, copys and 
much more. All keys have convenient auto repeat (typamatic), and since no line 
numbers are required, the full width of the screen may be used to generate well 
commented code. 

The Assembler features an of the following: complete 6809 instruction set; 
complete 6800 set supported for cross-assembly; conditional assembly; local 
labels; assembly to cassette tape or to memory; listing to screen or printer; and 
mnemonic error codes instead of numbers. 

The versatile ABUG monitor is a compact version of CBUG, tailored for debugging 
programs generated by the Assembler and Editor. It features examine/change of 
memory or registers, cassette load and save, breakpoints and more. SDS80C 
Price: $89.95 



mtQ- 




CRACK THOSE ROMS! 



SOURCE GENERATOR: This package is a disassembler which runs on the color 
computer and generates your own source listing of the BASIC interpreter ROM. 
Also included is a documentation package which gives useful ROM entry points, 
complete memory map, I/O hardware details and more. A 16K system is required 
for the use of this cassette 80C Disassembler Price: $49.95 



CBUO IS HERE! 

MONITOR TAPE: A cassette tape which allows you to directly access memory, I/O 
and registers with a formatted hex display. Great for machine language 
programming, debugging and learning. It can also send/receive RS232 at up to 
9600 baud, including host system download/upload. 19 commands in all 
Relocatable and reentrant CBUG Tape Price: $29.95 

MONITOR ROM: The same program as above, supplied in 2716 EPROM This 
allows you to use the entire RAM space. And you don t need to re-toad the monitor 
each time you use it The EPROM plugs into the Extended Basic ROM Socket or a 
modified ROMPACK CBUG ROM Price: $39.95 



LEARN B80S! 

6809 ASSEMBLY LANGUAGE PROGRAMMING, 

by Lance Leventhal. contains the most comprehen- 
sive reference material available for programming 
your Color Computer. Price: $16.95 



PARALLEL O! 

USE A PARALLEL PRINTER with your Color 
Computer! Adaptor box plugs into the serial port and 
allows use of Centronics/Radio Shack compatible 
printers with parallel interface. Assembled and 
tested PI80C Price: $69.96 



THE 






• 109 




GOOD STUFF! 



3SK RAM! 

MEMORY UPGRADE KITS: Consisting of 4116 
200ns integrated circuits, with instructions tor 
installation. 4K-16K Kit Price: $39.95. 16K-32K 
Kit (requires soldering experience) Price: $39.95 

WE SHIP FROM STOCK! 
Master Charge/Visa and COO Accepted 



P.O. BOX 1110 DEL MAR, CA 92014 714-942-2400 
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The total line length is set in 
line 2060 to 65 characters. You 
can change this value to what- 
ever right margin you prefer. 

Line 280 intiallzes the printer 
Device Control Block for 54 
lines per page. If you want more 
or less, change that value. You 
must have a printer routine that 
keeps track of the line count to 
get paged output. 

If you do not wish the auto- 
matic colon before Else state- 
ments, delete lines 820-840 and 
860. To suppress the automatic 
colon before an apostrophe re- 
mark statement, delete lines 
740-760 and 780. 

Superlist was written before 
the recent changes in Level II 
Basic. The only changes af- 
fecting Superlist are the start 
of Basic program storage and 
the possible relocation of the 
token look-up table. I under- 
stand a new edition of "Super- 
map" includes all the changes 
to Level II. "Supermap" is 
available from Fuller Software, 
Grand Prairie, TX, or your local 
computer store. ■ 



Program continued 


ST1 


7006 


MS 


70**? 


m 


7MR 


rts 


IMM 


NM 


7D4C 


IB 


7D4F 


HI 


7D4A 


MM 


7MC 


H3M 


7MC 


KM 


jnu 


01 


IMP 


QUITFL 


7W2 


PRIRLI 


7004 


A3 


7010 


nm 


7CS4 


P3 


7CCT 


•HINT 


7CEB 


n 


7C00 


CHRM 


7D03 


M 


7CD7 


m 


7CW 


Aia 


7CO» 


M 


7COC 


«7 


7C7C 


QUOTES 


7001 


m 


7C71 


M 


7C60 


mum 


7C00 


Ma 


few 


Ml 


7C4F 


INDCNT 


7C0F 


STmTS 


70HF 


94 


7C20 


tn 


7C10 


ST2 


7cao 


71 


7C03 


CI 


7BES 


•1 


7O0O 


MtlHTl 


7CS* 


M 


70D9 


SPOCK 


7BF0 


M7 


TOC1 


M* 


TOflF 


HIS 


7BC4 


M4 


7WM 


HI 3 


7B04 


fO 


7BC9 


n 


7080 


SUBTR 


7BDC 


QUIT 


7DOO 


•UFF 


7E19 


mm 


703E 


M<TLIH 


70HO 


PWIKT3 


7004 


LINK 


7DOD 



The 

Intersoft 



C 



Compiler 



for the TRS-80 Model I and Model III 

* Fully compatible with all known TRS-80 Disk Operating 
Systems 

* Compiles C programs into a form which may be assem- 
bled into a cmd Tile on disk 

* No knowledge of assembler required 

* Compatible with disk EDTASM or Radio Shack Disk 
Editor-Assembler 

* Features Unix-style parsing of command lines, with full 
i/o redirection for all C programs 



* detailed Users Manual 

* sample programs 



Package includes: 

* ready-to-run compiler 

* source code for all support 
libraries 

library contains over 30 functions, including: 

* memory allocator * string manipulation functions 

* numeric functions * DOS interface routines 

* and a complete i/o package, including print (f) 

Abo available for CP/M and 6809/ Flex systems 
Available soon for OS- 9 

Price: $75.00 for complete package; manual available separately for 
$15. 00 (applicable towards purchase of complete package.) 
Ontario residents please add 7% Provincial Sales Tax. 

Please specify your operating system and assembler when ordering. Personal 
cheques take IS banking days to clear. Send cheque or money order to: 

Intersoft Unlimited 

Box 383 Station C. Kitchener- Waterloo Ontario. N2G 3 Y9. Canada 



Unix is a trademark of Bell Labi 
OS-9 Microwaie Systems Corp. Flex Technical Syilems Coiuultaau 

CP/M Digital Research Corp TRS-80 and HPT ASM Tandy Corp. 



-591 




"Simply the Best" 

Service 
Technologies 

Centronics Printer Sale 

Completely Refurbished, 30 Day Warranty 

Model # 

101 165 c.p.s., 132 print positions, 5x7 dot matrix, 

areal work horse only $449.00 

101 A Same as above with the added features of 9 x 7 
dot matrix and USASCII 95 character 

only $549.00 

101 AL Added Bells and Whistles. All the features of the 
101 line plus LSI only $749.00 

102A 330 c.p.s., 125 L.P.M. bi-directional print 9 x 7 dot 
matrix only $949.00 

*306 The best of Centronics line at the best price, 

compact, 120 characters per second. 5x7, VFU. 
top of form and more only $689.00 

Quietizer covers available for this model only 

only $ 89.00 

501 120 c.p.s., 30 L.P.M. at 132 character lines, 150 

L.P.M. at 30 character lines, 5x7 dot matrix, 
sprocket feed, motor control only $649.00 

503 120 c.p.s., sister to the 501 with bi-directional 

print at twice the speed only $749.00 

• Print stands available for all models only $ 70.00 

• Paper catchers for all models only $18.00 



Options 



• Add lower case to most 
Centronics Printers only $89.00 

• Add Motor Control to your 
779 printer only $95.00 

Our Conversion Kit I gives most 
Centronics printers the ability 
to print in upper and lower 
case - $89.00 

Our Conversion Kit II turns 
your motor on and oft auto- 
matically. Increases the life of 
your printer $95.00 
Both kits require NO soldering, 
etch cuts, software mod. or 
interface. Easy Installation 



Interfaces 

• Now use your Centronics 
Parallel Printer on any Computer 
with a serial Port. Available in 
four models all with switchable 
baud rates. 
Model 
CSP 100 

No buffer only $175.00 

CSP • 200 

256 char buffer only $225 00 
CSP - 200X 

Xon/Xoff Protocol only $340.00 
CSP - 2000 

2048 char, buffer only $395.00 

Many More Interfaces Available 




To order Call 603-883-5369 

Service Technologies 
32 Nightingale Rd. 
Nashua, N.H. 03062 




Visa and Master Charge accepted 
Inquiries Always Welcome 

Shipping and Handling Extra 
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Special values on complete 
TRS-80™ Model III systems and disk drives! 



AM Electronics. Inc has created the most powerful and reliable 
TRS-80 hardware and software systems available to get your 
microcomputing system up and running. Take advantage of 
special values like these: 

New TRS-80 Model III with disk drives 

Model III with dual 80-track disk drives -704K of reliable disk 
storage on only two drives. System features two double-density 
80-track disk drives. 48K RAM and A.M. Electronics controller 
board. It's yours complete and ready to run ! $2,295 

Model III with dual 40-track double-density disk drives. 48K RAM 
and A.M. Electronics controller board, complete and ready to 
"jn! $1,895 



Model III ROM Commented 

The definitive guide to Model III ROM 



$22.00 



NEW! Multiplier from A.M. Electronics 

Tired of unreliable double density operation? Try our new 
Multiplier and upgrade from single-density without doubling 
your problems $99.95 

Special Offer: Multiplier and NEWDOS 80 Version 2.0, together 
in our low package price 5/99.95 



NEW! Teac or Tendon disk drives, 

complete with power supply, case and 

extender cables 

40-track disk drive $285 

80-track disk drive $395 

Dual-headed 80-track disk drive $499 

Disk drive cases and power supplies 

5'/4-inch single drive unit w/case & power supply $85 

5 1 /4-inch dual drive unit w/case & power supply $720 

8-inch single drive unit w/case & power supply $750 

Save on valuable accessories, too! 

16K 200 nanosecond RAM memory chip $2.00 ea 

Disk drive extender cable $8.95 ea 

Now available: Teac technical manuals $75.00 ea. 

NEW! MAKE 80® 
now available for Model III 

Converts Model I single-density 40-track or Model III double- 
density 40-track standard diskettes into Model III double- 
density 80-track-readable diskettes $29.95 
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Also, we specialize in complete, powerful software 
packages for business. Put your TRS-80™ to work for you! 



Manufacturing Inventory 
Control 

The system comprises six programs to 
give you complete control of raw mate- 
rials from ordering to after-production 
disbursement Finished goods files are 
maintained and updated. 

The system features addition, deletion 
and editing of raw materials, cost averag- 
ing raw material checking, finished goods 
costing, full bill of materials listings, 
complete where-used reports, and raw- 
material disbursement. Re-order point 
calculation is built-in. 

Reports may be generated on complete 
inventory, below-reorder point, out of 
stock, by vendor, inactive items, bill of 
materials, finished goods lists, cost lists 
(with and without inventory count), costs 
lists by finished good or complete 
finished goods list. 

The system runs on either the Model I or 
Model III computer and file capacity 
varies with your hardware configura- 
tion $299.95 

Dealer/Service Center 
Record Package 

This package is built in several modular 
packages and can be used separately or 
together as a complete system. Modular 
units are self-contained. When combined, 
you get the most comprehensive service 
center bookkeeping and record keeping 
package on the market. 

A complete history of customer repair 
files is maintained on-line. They can be 
accessed by account number or customer 
name. Information includes customer 
name, address, phone number, make of 
unit, service dates, technician, services 
performed and total amount billed. Infor- 
mation can be called to the screen or 
printer as a total list, or by previous serv- 
ice date. 

The customer records module can post 
to the accounts receivable module, 
payroll module and our Inventory Control 
System. 

Approximately 1.800 customers and 
records can be held with a Model I com- 
puter with four 80-track drives, or a Model 
III with two 80-track drives 

By adding additional drives to the 
Model III. more than twice this amount of 
information can be maintained. By switch- 
ing diskettes in drives, the capacity be- 
comes unlimited 



See your 


nearest 


A.M. Electronics, Inc. dealer 


Here is a partial list 


ng of our dealers 


in North America and Europe: 


ARIZONA 


Matrix Software 




3i S Marion Ave 


Simutek Computer Product* 


Big Rip ds. Ml 49307 


PC- Box 13687 




TuCton.AZ 85710 


RemerkaMe Software 




> 508ACVer.se 


CONNECTICUT 


Muskegon Ml 49441 


Computer Service* ol Deneury 


Soft Sector Marketing, Inc. 


14 Summit Street 


6250 Midd'eoeil Rd 


Danb jry CN 06810 


Garden City. Ml 46135 


Mountain Vtew Software 


NEW HAMPSHIRE 


Mirybrook Road 




Oanbury CN 06810 


TSLXardslds 


COLORADO 


6 South Street 
M.llord NH 03055 


Data Resource* 


NEW JERSEY 


8000 East Oumcy 




Denver CO 80237 


Floppy Otak Services 


Robanson Enterprise* 
2356 E Boulder 


CNS212 
Princeton NJ 08540 


Colorado Springs CO 80909 


NEW MEXICO 


DIST. OF COLUMBIA 


Rocky Mountain Engineering 


Program Stora 

4200 Wisconsin Avanua. NW 


4749 Southern. SE 
Albuquerque NM 67106 


Washington. DC 20016 


NEW YORK 


FLORIDA 


B.T. Enterprises 


Adventure International 


171 Hawkins 


507 East Straat 


Centereach. NY 11720 


Longvrood.FL 32750 


NORTH CAROLINA 


AH Sjratems Oo 

105 W Plant Street 


Alpha Technology 


Winter Garden. FL 32787 


1201 Wicker Drive 




Raleigh. NC 27604 


ILLINOIS 


OREGON 


3H Computer 


1300 Centre Electronics 


1950 Bitter Road 


13006th Street 


Aurora. IL 60504 


Umatilla. OR 97682 


Mldwaat Computer Peripheral. 
1467 S Michigan Ava. 


PENNSYLVANIA 


Chicago. IL 60605 


Steven* Radio Shack 


Thayer Medio 


562 rvuti Road 


151 Alkire St. 


Phoenixville. PA 19460 


Greenview. IL 62642 




MASSACHUSETTS 


BELGIUM 


Small Business Systems Group 


Datavlslon 
Av du Diamant 45 


6 Carlisle Road 


1040 Brussels ■ Belgium 


Westtord. MA 01886 


TELEX 64229 FITECOb 


Computer Phi* 
245A Great Road 


WEST GERMANY 


Littleton. MA 01 460 


Fueener 


MICHIGAN 


Computer Systems . QMBH 




4430 Stemlurt 


Jemee Butter 


Markt 17 


438 E Lake Street 




Peioskey. Ml 49770 


REP. OF SOUTH AFRICA 


Eight Bit Comer 


Breum Business Machines 


722 Evanston Ave 


480 Sydney Rd 


Muskegon. Ml 49442 


Durban 4001 



This package may be specified for auto 
dealers, mechanics. TV repair centers, 
electronic technicians, and appliance re- 
pair centers $799.95 

Order Entry 
With Invoicing and Inventory 

Orders are composed of name and ad- 
dress information (with optional company 
name), method of shipment, payment 
method, items on order, quantities, prices. 



description, and stock number. This sys- 
tem also prints invoices. 

At point of shipment, inventory is au- 
tomatically updated. Dollar sales are re- 
corded. Shipping charges and dates are 
logged. Entries may be edited. Partial 
shipping is permitted. 

The inventory module allows checking 
and updating stock, inventory reports, 
sales reports, shipping charges, and 
more. 

This complete system is for almost any 
wholesale or retail business. Capacity is 
upward-expandable from a dual 40-track 
Model I system: 1,750 inventory items, 
385 orders per diskette $799.95 

Inventory Control System 

This system gives you complete control 
over an unlimited amount of inventory 
items. (Note: Systems containing more 
than 13,000 items are difficult to handle 
from a maintenance time standpoint, e.g. 
Block File reorganization can take over 
3 hours.) 

As presently configured, a Model I 
computer with one 40-track drive will hold 
1,925 items, or a four-drive system a total 
of 6,625 items. Four 80-track drives will 
hold over 13,000 items. A Model III com- 
puter, with two 40-track drives, will hold 
about 13,000 parts. 

If necessary, A.M. Electronics, Inc. can 
modify both the program and hardware to 
allow on-line storage of an unlimited 
amount of items. As the file becomes 
larger, maintenance operations take 
longer. Average search time is six sec- 
onds, with 12 seconds the longest time. 

Upon program initialization, the user 
specifies the item number and descrip- 
tion digit length. This allows for item num- 
bers up to 23 alpha-numberic characters. 
(As item number digits increase, digits for 
description usage are decreased.) 

The program is completely menu- 
driven. Items can be added, edited, or 
deleted from the file Items can be placed 
on order, received to stock, or sold from 
inventory. Complete printout capabilities 
are available. 

Item information includes, item number, 
description, supplier, re-order point, cost, 
wholesale and retail selling price, quan- 
tity, on-order, and total sold The re-order 
point is calculated by the program, based 
upon number of units sold over a 
specified period of time $799.95 



rne power baa 



A.M. ELECTRONICS, INC. 
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Ann Arbor: 3366 Washtenaw Ave. 48104 (313) 2312 Open M-F 10-6, Sat. 10-5 

Fowlerville:* 111 North Grand, Box 1071 48836. (517) 223-7281 

Attention Dealers, OEM's & Distributors: Call us for details on our attractive pricing 



'"TRS-80 is a trademark ol Tandy Corp 



"Authorized Radio Shack dealei 



Prices sub/ect to change without notice 



*-See List Of Advertisers on page 402 
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APPLICATION 



An op-amp screening program for those times 
when you can't get the one you really want. 



Second Sourcing 



David Tlnis 
National Controls Inc. 
4500 John Young Parkway 
Orlando, FL 32804 



Have you ever been enthusi- 
astic about an electronics 
project only to find one or two 
parts were hard or impossible to 
get? When it comes to op-amps 
this seems especially true. 
While many bear standard part 
numbers, it's not uncommon for 
equivalent parts to have a dif- 
ferent identification. 

Since one facet of my job is to 
screen vendor-submitted com- 
ponents for compliance with 
specifications established for 
current parts in usage, it 
seemed desirable to let the com- 
puter do the preliminary screen- 
ing. Op-amp is a program I wrote 
that allows me to compare 14 
selected parameters between a 
currently used part and one be- 
ing submitted as a possible sec- 
ond source. The program was 
originally written for use on an 
INTEL MDS230 and later adapt- 
ed to my TRS-80. 

The Part* File 

There are actually two parts 
to this program. The first is used 
to create a file named Parts con- 
taining the specifications of 
known and used parts. The sec- 
ond is to compare the part under 
consideration with a known part 
in the previously created Parts 
file. 

The Parts file is created as a 
sequential access file under 
VTOS 4.0. One feature of VTOS 
4.0 is an enhancement to Disk 
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Basic which allows a sequential 
file to be opened and positioned 
to its end. New data can then be 
added without the necessity of 
reading the entire file into an ar- 
ray in memory, adding the new 
data to the array and then rewrit- 
ing the file. Non-VTOS users will 
have to modify the program for 
this type of operation. 

The Evaluation 

The evaluation function of the 
program is straight forward. The 
program first queries for the 
known op-amp in the Parts file 
to be used as the standard of 
comparison. It then asks for pa- 
rameter information about the 
part under consideration and, 
after all information has been 
entered, lists any specifications 
that compare unfavorably. A 
printout or display on your video 
of all the parameters point by 
point can be obtained. 

One thing to remember when 
entering parameter information 
Is to avoid using typical data. In- 
stead, use a bad example for the 
parameter being evaluated. 

The fourteen parameters con- 
sidered by the program are list- 
ed below: 

• Power Supply Voltage: 
Most op-amps operate from 
equal voltages of opposite po- 
larity. The value to be used here 
is the maximum allowable pow- 
er supply voltage of either 
polarity referenced to zero volts. 

• Differential Input Voltage: 
The maximum allowable differ- 
ence in input voltage between 
the two op-amp input terminals. 

• Input Voltage: Maximum al- 
lowable input voltage of either 



an input with the other held to 
zero volts. 

• Input Offset Voltage: The 
voltage that must be applied to 
the inputs to achieve a zero out- 
put voltage. This generally indi- 
cates how closely matched the 
inputs are. The lower this value, 
the better. 

• Input Offset Current: The 
difference in input bias currents 
which causes a voltage differ- 
ence across the input resis- 
tors. If this value is large, unac- 
ceptable input voltages can be 
generated. 

• Input Bias Current: Average 
of the two Input bias currents 
which cause voltage drop across 
the input resistors that must be 
overcome to the input signal. 

• Input Noise Voltage: A 
measure of internally generated 
noise at the inputs of the op-amp. 

• Differential Input Resis- 
tance: The impedance seen by a 
source looking into the inputs of 
the op-amp. This figure Is used 
when matching the op-amp to 
driving device. A mismatch will 
cause excessive loss of input 
signal. 

• Common Mode Rejection 
Ratio: This indicates how well 
balanced the differential stages 
of the op-amp are. 

• Large Signal Voltage Gain: 



The ratio of the change in output 
voltage to a change in input 
voltage measured without feed- 
back or compensation. This 
figure is frequency-dependent. 

• Output Voltage Swing: 
Peak voltage output that can be 
obtained without clipping. This 
is measured with reference to 
zero volts. 

• Slew Rate: The maximum 
rate of change of output voltage 
with respect to time that can be 
obtained while maintaining 
linearity. 

• Power Supply Rejection 
Ratio: A measure of sensitivity 
to changes In power supply volt- 
age and noise on power supply 
lines. 

• Power Dissipation: The 
maximum power the device can 
safely dissipate at a given tem- 
perature and under specified 
conditions of power supply 
voltage and load. 

Most op-amp data sheets list 
other parameters but these 14 
were chosen for their overall im- 
portance to device operation. 
Once a preliminary screening of 
these parameters has been 
done, a closer look can be given 
the part if warranted. In any 
event this program can be a real 
aid in finding new sources of re- 
placement parts. ■ 



polarity that can be applied to 
80 Microcomputing, November 1981 



Program Listing 



IB CLS 

21 CLEAR5IBiDIM A( 16) ,K ( 16) ,U ( 16) , 55 ( 16) ,US 1 16) 

21 P0RX»lT016iREADU$(X) iNEXTX 

22 DATA "VOLTS"," ", "VOLTS", "VOLTS", "MICROVOLTS" , "NANOAMPS" , "NAN 
OAMPS" , ■MICROVOLTS" , "MEGOHMS " , " " , "DB" , "V/MV" , "VOLTS" , "V/MICROSB 
COHD" , "DB" , "MM" 

25 FORX-lT016xREADS5{X):NBXTX 



Program continues 



How to Buy or Soil 

Computer Equipment 

and Software 



and come out a winner 



START HERE 
WITH... 




Begin your search in the in- 
dex of Computer Shopper's 
bargain filled pages. Locate 
the category and page 
number of items that 
interest you. 




> 



As you outgrow your 
system or want to trade up 
(most dealers won't take 
trade-ins), use Computer 
Shopper ads to sell your 
items to 20,000 readers na- 
tionwide for the low cost of 
10 cants per word. 




If you need help with any 
computer related problem 
whether it's an interface 
problem or advice on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose 



WIA 



i 



Congratulations, you're a winner whether you buy, sell 
or trade in the computer marketplace by subscribing 
and using Computer Shopper's action yellow pages. 
And for your first bargain, take advantage of a FREE 
issue of Computer Shopper as a "Special Get 
Acquainted Offer." 

Act today and receive your first issue free in addition 
to the $10, one year/12 issue regular subscription. 
Of course, if you are not 100% satisfied, you may 
cancel and still keep the free issue just for trying 
Computer Shopper. 

BONUS : New subscribers are entitled to a complimen- 
tary classified ad. Use it for pre-owned equipment or 
software or as a want-to-buy ad. Just print or type your 
ad on a plain piece of paper and send it along with 
your subscription. Your phone will probably start ringing 
before you receive your first issue. 

For MasterCard and VISA Subscriptions only, 
CALL TOLL FREE 18OO-327-9920 

For MasterCard and VISA Classified Ad orders only, 
CALL TOLL FREE 1-800-327-9926 



You have the convenience 
of shopping nationwide 
without ever leaving your 
home or office. And if you 
buy out of state you'll save 
on sales tax. 



► 




Computer Shopper's easy- 
to-read format makes your 
search quick and simple 
with classifications at the 
top of each column in bold 
black headings. 




Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment 




You've got your computer 
hardware, but what about 
the software? Use a Com- 
puter Shopper ad to find 
what you need. Someone 
advertising in Computer 
Shopper probably has what 
you want. 




COfTIPUTBR SHOPPBR - 

P.O. Box F138 • Titusville, FL 32780 
Telephone 305-269-3211 




Don't be misled by more expensive imitations! 

This is the original Photo point light pen pre- 
ferred and supported by some of the leading 
software sources like, "Quality Software"— "In- 
stant Software"— "Level IV "products and so on, 

Just imagine . . . 

In playing backgammon, (included) when you 
want to move a man, you just point at where you 
want to move from, then point at where you 
want to move to, and your man moves!!! No 
more fumbling with keyboards— YEA! 

Your Photo Point package comes complete; 

• 1 Photo point light pen (of course) 

• Info sheets on how to connect the pen and 
how to write your own programs 

ALL IN BASIC 

• Two apertures 

• AND two sensitivity settings 

• A cassette tape with 4 informative programs 
and games 

• Ready to connect to your TRS-80 System. 
(DOS too!) 

• Does not void any Radio Shack warranties 

Requirements: 

• Level II basic 

• And a little imagination!! 

For fast real time programming it is your lowest 
cost peripheral at S19. 95 



Announcing 




NEW PEN BASIC by Steve Bjork 

Steve is one of the Best Assembly Lang, pro- 
grammers around, and he has come up with PEN 
BASIC. This low memory routine will add 10 more com- 
mands to Level II such as PENGET which searches the 
entire screen for the pen and returns a number between 
0-1024 in about 1 sec. Plus 9 other commands. Perfect for 
you lightware authors and NEW light pen owners 
too! only *14. 9 5 



(COUPON) 

Micro Matrix ^ea 

P.O. Box 938 • Pacifica. CA 94044 

Send for yours NOW: (415)355-4635 

Name 



Address 

City 

Zip 



St.. 



Photopoint 
n $19.95 

Pen Basic 
n $14.95 



Card# 

Ex. 

Date_ 



Money 
CK. Order Visa MC 

n n n n 



Program continued 



26 DATA 'POWER SUPPLY VOLTAGE* , ■ ','DIPPERENTIAL INPUT VOLTAGE', 
"INPUT VOLTAGE', 'INPUT OPPSET VOLTAGE', 'INPUT OFFSET CURRENT', 'I 
NPUT BIAS CURRENT', "INPUT NOISE VOLTAGE" , "DIFFERENTIAL INPUT RES 
ISTANCE"," " 

27 DATA "COMMON MODE REJECTION RATIO' , "LARGE SIGNAL VOLTAGE GAIN 
","OUTPUT VOLTAGE SWING", 'SLEW RATE", 'POWER SUPPLY REJECTION RAT 
10', 'POWER DISSIPATION' 

3B PRINTTAB(IS); 'OPERATIONAL AMPLIFIER EVALUATION' : PRINT 

49 PRINT'THIS PROGRAM CREATES AND UPDATES AN OP-AMP DATA FILE NA 

MED': PRINT" PARTS'. THIS PILE PROVIDES A DATA BASE FOR PARAMET 

ER":PRINT*COMPARISONS WHICH WILL DETERMINE COMPONENT INTBRCHAGEA 

BILITY.":PRIHT 

70 INPUT'OPTIONS (1) PARTS FILE UPDATE (2) EVALUATE A PART (3) Q 

UIT";A 

81 IFA<lORA>3THENPRINT:GOT079 

90 ONAGOTO2000, 4000, 5088 

2080 CLS:PRINT:PRINT"PARTS FILE UPDATE. ENTER SPECIFICATIONS AS 

REQUESTBD.':PRINT'IP UNABLE TO DETERMINE A VALUE, ENTER 0.' 

2005 PRINT 

2010 INPUT'WHAT IS THE PART ID "jFS 

2011 ONERRORGOTO2015!OPEN "I* ,#1 , "PARTS' 

2012 INPUT#1,A$,K(1) ,K(2) ,K(3) ,K(4) ,K<5) ,K(6) ,K(7) ,K(8) ,K(9) ,K(1 
0) ,K(11) ,K(12) ,K(13) ,K(14) ,K(15) ,K(16) :IFF$-A$THENPRINT:PRINTP$j 
" IS ALREADY IN THE PARTS FILE. ' rPRINTiCLOSE 1:GOTO70:ELSEIPEOF( 
1) THBNCLOSB1 :GOT02B15 : ELSE2012 

2015 PRINT 

2020 PORX-1T016 

2039 IPX-2ORX-10GOTO2050 

2940 PRINTSS(X) ;' ('iOS(X)i') ';:INPUTA(X) 

2959 NBXTX 

2180 F0RX-1T016!K(X)-A(X) iNEXTX 

2190 OPEN 'B', 41, 'PARTS' 

2200 PRINT41,F$;",";K(l);K(2);K(3),K(4) ; r;(S)»M6);K(7)»K(8)|*;(9) 

)K(10),K(11),K(12);K(13)|K(14);K(15);IC(16) 

2210 CLOSE 1 

2229 PRINT I PRINT "PARTS PILE HAS BEEN UPDATED TO INCLUDE ">F$ 

2230 PRINT:GOTO70 

2240 PRINT'DISK ERROR - RESTART NECESSARY' :RESUME70 
4009 CLS: PRINT: PRINT 'OP- AMP COMPONENT EVALOATIOH.' 

4919 PRINT: INPUT'WHICB OP-AMP DO YOU WISH TO EVALUATE AGAINST* |A 
$ 

4920 OPEN 'I",#l, 'PARTS' 

4030 INPUT#1,F$,K(1) ,X(2) ,K(3) ,K(4) ,K(5) ,!C(6) ,K(7) ,K{8) ,K(9) ,K(1 
0) ,K(11) ,K(12) ,K(13) ,K(14) ,K(15) ,K(16) 

4031 IFA$«P$THBN403B 

4032 IF EOP(1)THEN4034ELSEGOTO4030 

4034 CLOSE 1:PRINT:PRINT'UNABLE TO FIND ")A$;*. TRY AGAIN. 'iPRI 

NTiGOTO70 

4038 CLOSE 1 

4040 PRINT: PRINT "ENTER THE SPECS OP THE OP-AMP BEING EVALUATED A 

S REQUESTED." 

4045 PRINT: INPUT'WHAT IS THE ID OP THE OP-AMP BEING EVALUATED "; 

XS 

4050 P0RX=1T016 

4055 IFX-2ORX-10GOTO4065 

4060 PRINTSS(X);" CjUS(X);') 'j:INPUTU(X) 

4965 NBXTX: PRINT 

4975 IFK(1)-0TBENPRINT"NO DATA FOR * ;S$ (1) :GOTO4095 

4989 IFU(1)<K(1)THENPRINT*FAILS *»S$(1) 

4995 IFK(3)-9THENPRINT'NO DATA FOR ";S$(3) :GOTO4105 

4190 IPU(3)<K(3)THENPRINT*PAILS 'jS$(3) 

4105 IFK(4)-0THENPRINT"NO DATA FOR ' |SS( 4) :GOT04115 

4110 IFU(4)<K(4)THENPRINT"FAILS "|S$(4) 

4115 IPK(5)-9THENPRINT*NO DATA FOR " ; S$ ( 5) :GOT04125 

4129 IFU(5) >K(5)THBNPRINT'FAILS *)SS(5) 

4125 IFK{6)-0THENPRINT*NO DATA FOR " ;S$<6) :GOT04135 

4130 IFU(6) >K(6)THENPRINT*PAILS *;S$(6) 

4135 IFK(7)-0THENPRINT*NO DATA FOR * jSS(7) :GOT04145 

4140 IFU(7) >K(7)TBENPRINT"FAILS 'jS$(7) 

4145 IFK(8)-0TBENPRINT'NO DATA FOR * |S$(8) :G0TO4155 

4159 IFU(8)>K(8)THENPRINT*PAILS *;S$(8) 

4155 IPK(9)-8THENPRINT'N0 DATA FOR ' jS$( 9) :G0T04175 

4169 IFU(9)<K(9)TBENPRINT*FAILS *jS$(9) 

4175 IFK(11)-0THENPRINT"NO DATA POR "iS$(ll) :G0T04185 

4180 IFU(11)<K(11)THENPRINT'FAILS *)S$(11) 

4185 IFK(12)-0THENPRINT'NO DATA POR a ;S$(12) :GOT04195 

4190 IPU(12)<K(12)THENPRINT*FAILS *|S$(12) 

4195 IFK(13)-0THENPRINT'NO DATA FOR ";S$(13) :GOTO4205 

4200 IPU(13)<K(13)THENPRINT*FAILS ";S$(13) 

4205 IFK(14)-0THENPRINT'NO DATA FOR " |S$ (14 ) :GOT04215 

4210 IFU(14)<K(14)THENPRINT*FAILS *|S$(14) 

4215 IFK(15)-9THENPRINT'NO DATA POR ';S$(15) :GOT04225 

4220 IPU{15)<K(15)THEHPRINT"PAILS *|S$(15) 

4225 IFK(16)-0THENPRINT*NO DATA FOR ";S$(16) :GOT04235 

4239 IFU(16)<K(16)TBBNPRINT"FAILS *»S$(16) 

4235 PRINT I PRINT "EVALUATION COMPLETED. DISCREPANCIES AS NOTED." 

4240 INPUT'DO YOU WANT A COMPARISON PRINTOUT (Y/N) ';A$ 
4250 IFAS-'N'GOTO4310 

4260 IFAS<>'Y"THEN4240 

4261 PRINT: INPUT'DO YOU WANT THE PRINTOUT ON (1) VIDEO (2) PRINT 
ER*;A:IFA-1THEN4265ELSE43 20 

4265 PRINT'PARAMETER';:PRINTTAB(30) )F$» : PRI NTT AB ( 3 9 ) »X$; :PRINTTA 

B(50);'UNITS' 

4270 P0RX-1TO16 

4280 IPX-2ORX-10GOTO4300 

4290 PRINTSS(X) ; : PRINTTAB(31) ;K(X) | :PRINTTAB(38) |U(X) ; :PRINTTAB( 

«8);U$(X) 

4300 NBXTX 

4310 GOT079 

4329 A-PEEK( 14312) :IPA>128THEN4389ELSELPRINT"PARAMETER" J :LPRINTT 

AB(39) )FSj:LPRINTTAB(39)|XS»:LPRINTTAB(59) j'UNITS' 

4339 FORX-1T016 

4349 IFX>20RX-19GOTO4369 

4359 LPRINTS$(X) ; : LPRI NTTAB ( 3 1 ) jK(X) | :LPRINTTAB(38) |U(X) ; :LPRINT 

TAB(48) »U$(X) 

4368 NEXTX 

4379 GOT079 

4389 INPUT'PRINTER NOT RBADY. ABORT? ( Y/N) " ; AS: IFASO"N'THEN4398 

ELSEINPUT'READY PRINTER AND PRESS <ENTER>' ; A$:G0TO4329 

4399 INPUT'PRINT TO VIDEO INSTEAD ( Y/N) ' | A$: IPA$-'Y'THEN4265ELSE 

79 

5990 CLS:END 
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DR. SOFTWARE 



Presents 



GRID IRON 

SOME FEATURES 

AMS PF PA OFF DEF TD TP FO FO FR FL 

403 272 3649 3264 31 24 19 336 23 9 

434 311 3482 3279 30 21 11 337 12 14 



ATLANTA 

vs 

DALLAS 



DIFFERENCE 
DIFF. /GAME 16 

AVG.PTS. /GAME 16 



49 39 167 13 
3 2 10 O 



13 8 1 




11 3 
O O 



28. 373 DALLAS ATLANTA 

27.3623 NEW ENGLAND VS 

26.3 LOS ANGELES DALLAS 



AVG.PTS./GAME 16 
23.312S 
28.373 



222 PHILADELPHIA 
231 HOUSTON 
260 BUFFALO 



- POINTS FOR 
PA • POINTS AGAINST 
OFF* OFFENSIVE YARDS GAINEO 
OEF- YARDS PERMITTED 
TD - TOUCHDOWN PASSES 
TP - TOUCHDOWN PASSES PERMITTED 
FG -FIELD GOALS MAOE 
FO - FIRST DOWNS 
FR - FUMBLES RECOVERED 
FL - FUMBLES LOST 

COMPLETE DOCUMENTATION 
REQUIRES LEVEL II BASIC 32K 
TRS-80 MODEL .1 A3 

TAPE TO DISK $24.95 

CHECKS, MONEY ORDERS. C.O.O. 
CA RESIDENT ADO 6% TAX 



>READ 3.0623 

© 1981 JAMES OUNSRACK • PETER GABRIELLI 

OTHER MENU OPTIONS INCLUDE: 

WEEKLY DATA UPDATE 

DISK LOAD 

DISK SAVE 

TEAM LISTING 

PRINTER SELECTION 

CASSETTE 
SPECIAL FEATURES: 

NUMERICAL RANKING OF ANY DATA 

FINAL I960 DATA AS ABOVE 

DR. SOFTWARE 

1199V1 EDGEMOUND DR. 

SANTA BARBARA. CA 93105 *»318 

TO ORDER CALL: 

(805) 687-9501 or 962-3029 

CONSULTATION SERVICE AVAILABLE 



•» » —»— »—»— » — — »—##+»#———» —» —»+——# » — 




trol language system! 

§ Create and run your own multilevel procedures, dynamically \ 

\ generate/store replies for prompts, intercept and switch con- < 

I trol back and forth between running program and ICL, execute! 



NEWD0S2.1 — NEWDOS/80 users 

Add new dimension and class to your programming! 

INTERACTIVE CONTROL LANGUAGE 

Aren't you tired of waiting for and answering endless pro- 
mpts like — "ENTER FILE NAME?" every time you've got to 




! To you procedures look like additional and quite intelligent; 

[ commands. '< 

ICL is especially convenient for 1 drive systems where a lot I 

of diskette swapping is necessary. ; 

Works fine with BASIC programs, EDTASM, DISASSEM, F80, ; 

L80, SUPERZAP... almost any program using standard DOS \I0< 

drivers and conventions. Basic editor can be used to create; 

! procedure text files. 

Superb documentation with detailed "how-to-use" and '• 
tutorial information, most useful procedures, system informa-i 
; tion and patches are provided. 

All for unbelievable low price of $29.49 — 

— (on 5" diskette + documentation). 

To order send check or money order to 

XYZT COMPUTER DIMENSIONS INC. 

2 PENN PLAZA, suite 1500. New York, N. Y. 10121. 

* Requires min 32K 1 Drive Model 1. 

* Specify NEW00S2.1 w NEWDOSJ60 diskette format (works with either DOS), f 
' N.Y. state residents add 5% sales tax. 



COMSOFT 

N E 




TSHARE 2.0 
MULTI-USER SYSTEM 

for the) 

TRS-80® MODELS I Cr III 

Powerful addition to NEWDOS80* expands the capacity of a 

single TRS-80 to service TWO active users with full access to 

Newdos60. 

Users operate independently with joint access to disk and up to 

two printers. 

Execute BASIC or ASSEMBLY language (above 7740 Hex). 

2nd user communicates via a TERMINAL, modem, or second 

computer acting as a terminal. 

NEW BUILT-IN FUNCTIONS 

• Communicate between users 

• Execute two programs concurrently 

• Joint execution of single source 
program with separate data areas 

• Open same file by two users 

• Multi-user MINI-DOS 

Requires 32K model I or III with one disk drive and a serial port 

interface (software drivers built-in for RS-232*. HUH-8100*, 

TRS232»,andMPR-232» interfaces). 

SIMPLEX mode for non serial-port users. Requires only expansion 

interface or TRS232 with printer to act as second "screen". 

Jobs share TRS-80 keyboard under user control. 

CONFIGURE utility makes it easy to partition memory between 

users and select I/O modes. 

TSHARE 2.0 for NEWDOS80 , $ 99 

Please specify model I or III (Model in available Sep. 1, 1981) 
TSHARE 1.3 forTRSDOS 2.3/NEWDOS 2.1 $ 89 

TSHARE 2.0 + MPR-232 interface (for non RS-232 users) . .$199 
$10 Upgrade privilege for TSHARE 1 .3 licensees 



DDM5 



$79 
MODELS I t 



MULTI-FEATURE DATA MANAGER 



Up to 20 user defined fields. 

Files extend across multiple 

diskettes. 

Supports up to four drives. 

Automatic single drive disk 

mount requests. 



Four data types and compu- 
tational fields. 

Flexible REPORT GENERATOR. 
Fast assembly language sorts. 
MULTI-FIELD sorts 4 searches. 
Keyed access on any sorted field. 
Indexed relations between files. 



VIEW 



$19.95 



CSTOCK 



$49 



A SCREEN FORMATER 

FORDBM5 

Full CURSOR control 

Protected fields 

User form DESIGN 

File data entry, inquiry, 

4 edit 

Elegant & professional look 



DI8K DATA BASE & 

ANALYSIS TOOL 

FOR STOCKS* OPTIONS 

Regression analysis 
Charts 

Portfolio selection 
* Risk management 



SERIAL I/O 
MPR-232 



A serial port interface designed to properly connect to TRS.-80 
with or without an expansion interface. 

• Glitch free operation 

• Connects with card edge connector 

• Uses TRS-80 power supply 

• All parameters switch selectable 

• Baud rates 50 to 19200 
Manufactured by: 
Micro Projects Engineering Co. 
Culver City, CA 

$119 (ASSEMBLED & TESTED) 



TO ORDER 



ComScf t 



TRS-80 tm 

Radio Shack/Tandy Corp. 
NEWDOS tm Apparat. Inc. 
TRS232 tm Small System 

Software 
HUH tm California Computer Systems. 



1 569 Westwood Blvd. 

Suite B 

W. Los Angeles, CA 90024 

__ 2138490369 
^204 



• See List ol Advertisers on page 402 
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TUTORIAL 



. . . of things that go bump in your keyboard. 



Keyboard Incantations 



Allen V. Robnett 
Gallatin High School 
Green Wave Drive 
Gallatin, TN 37066 

Ghost stories are usually just for thrills, 
but here's one which offers insights, 
too. A good ghost story depends on setting 
the scene, and this scene requires a TRS-80 
keyboard. 

So sit ye down, and turn the lamp 
down low. 

The incantation must be carried out ex- 
actly or the spell will not work. Certain keys 
must be held down while others are struck. 
The held keys are indicated by a numeral 
below the key name. The number indicates 
which finger must be used for everything to 
come out right. The little finger of the left 
hand is numbered 1, and the little finger of 
the right hand, 10. An asterisk means the 
key is not to be held. 

As the warlock of the story, I will make in- 
termittent utterances. You must not release 
any held key until instructed to do so. 

The spell involves keyboard-video I/O, 
so do this: 

I O Space 

(8) (9) (•) 

Hmmm. Very strange. Maybe you ought 
to do that again. This time don't release the 
keys. 

Let's take a bit from machine language 



and make a CD call to the wizard of 
Halloween: 

C D H Space 

(3) (2) (7) (•) 

Don't let go! That's creepy— a syntax er- 
ror and you never came close to the Enter 
key. 

Don't turn back now. Strike: 
t o 
O C) 
Release your right hand (1,0, and H) and 
press onward: 

O O L T 

C) C) C) C) 

How's that for spelling? 

Release and clear everything. We'll try a 
few more. 

When you and your keyboard play a duet, 
you should let it do more of the work. Press 
(in succession) and hold: D U T 

See what I mean? What's behind this 
mystery? Clear again and release. We'll ask 
the keyboard. 

Press and hold the letters: C L U S 

OK, release and relax. 

Breaking the Spell 

Of course, the parlor tricks we've done 
here are just for fun, but they reveal some- 
thing about the way the keyboard works. 
Multiple key presses can be useful. Shifted 
characters are a good example, as are the 
123, DFG, or JKL commands used in some 
well-known utilities. 



Many sources refer to addresses 3800H 
through 3BFFH (14336 through 15359) as 
keyboard memory. Maybe it should be 
called pseudo memory. The first byte of the 
address (38, 39, 3A, or 3B) simply connects 
the keyboard output lines to the micropro- 
cessor. The second byte of the address, 
which ranges between 00 and FF, selects 
the key row to be read. For discussion or 
scanning purposes, the keys are arranged 
in an 8 x 8 matrix (or map) as shown in Fig. 
1. It is convenient to call one matrix index R 
(for row) and the other C (for column). This 
description reflects the electrical connec- 
tions but is not related to the physical rows 
of the keyboard. 

Each key is simply a switch which, when 
pressed, will connect its row conductor to 
its column conductor. Each row is ad- 
dressed by one bit of the low byte of the 
memory address. Hence, 3801 H has bit 
set (2° = 1), and thus addresses row 0. 

The row addresses, are as given in Fig. 2. 

In scanning the keyboard for input, ROM 
simply addresses each row in turn, thereby 
sending a signal to the row, and looks to 
see which column (if any) is activated. The 
eight columns become the eight bits of the 
output data byte. When a single key is 
pressed, the data byte will have only one bit 
set. The decimal value of the byte must be 
either 1,2,4,8,16,32,64, or 128 (decimal). It is 
a simple matter for ROM to figure out which 
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Fig. 1 Keyboard Matrix 









Keyboard Row 


Keyboard Address 




Hex 


Decimal 





3801 


14337 


1 


3802 


14338 


2 


3804 


14340 


3 


3808 


14344 


4 


3810 


14352 


5 


3820 


14368 


6 


3840 


14400 


7 


3880 


14464 


Fig. 2. Keyboard Memory Addresses 



352 • 80 Microcomputing, November 1981 




MODEL III DISK KITS 

TWO 40 track dnve kit and hardware Comaa 
complete with all tha necessary hardware and 2 
onves of your choice. (MPI or TANDON 40 
track) NO SOLDERING OR TRACE CUTTING 
REQUIRED! COMPLETE EASY TO FOLLOW 
INSTRUCTIONS INCLUDED 87S.95 

TWO 80/track drive kit and hardware Same at above 1.0M.OO 

ONE 40/track drive kit with all hardware and your choice of MPI or TANDON 40/ 
track drive (INSTRUCTIONS INCLUDEO) 5M.M 

ONE 80/track drive kit with all hardware and one MPI 80/track drive. No soldering! 

(INSTRUCTIONS INCLUDED) 699.99 

TRS-80 MODEL III. 48K, 2 40 Track TANDON or MPI drives 2,095.99 

TRS-80 MODEL III. 48K. 2 80 Track MPI drives 2.325.99 

1 YEAR WARRANTY 

16 K MEMORY 19.95 

MODEL I. Ill APPLE AND EXIDY. Instructions included. 
(MOD 1 Keyboard requires jumpers. $ 200 extra) 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTWARE! 45.00 

MONITORS 

Black and White Monitors 12" (TECO) 129.95 

Green Phospher Monitors 12" (TECO) 159.95 

AMDEK Black and White 12" Monitor 159.95 

AMDEK Green Phopher 12" Monitor 100G 189.95 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis. 
90 day warranty on disk drives. ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80. LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density! 80 track drives require MAKE-80 program to run 
regular software. (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 

40 TRACK MPI or TANDON DRIVES 319.95 

80 TRACK MPI 439.95 

DOUBLE SIDED 80 TRACK MPI 579.95 

2 DRIVE CABLES 25.95 

4 DRIVE CABLES 35.95 

SPECIAL DOUBLE SIDED CABLES (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 

(SPECIFY MOD I. Ill) 29.95 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 20 . 49.95 

SPECIAL: Brown Bag Diskettes 100 Ouantity 214.00 

VERBATIM DATALIFE DISKETTES Box of 10 32.50 

VERBATIM DATALIFE DISKETTES lOOGuantrty 275.00 




SPECIAL DISK HOLDER 



Holds 50 Diskettes 
Reg. Price $35.95 
SPECIAL 



'21.95 



PERCOM DOUBLER II (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes! Will not 

effect normal operation! 169.95 

NEWDOS-80 (New Version 2) 139.95 

LDOS 139.95 

DOSPLUS 3.3 89.95 

(Specify Mod I or III) 



LYNX TELEPHONE MODEM 

AUTO/DIAL AUTO/ANSWER. 
COMPLETE WITH SOFTWARE AND 
HARDWARE FOR MODELS I AND III 
The RS-232 is not needed! Completely 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 
or sending data from disk and more! Mod I or III ... 149.95 




PRINTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 

WITH ALL PRINTERSI 

CABLES FOR MODEL I EXPANSION INTERFACE, MOD III. 
or PMC-80 EXP 100 or PIF-40 only.) 
PLEASE SPECIFY WHICH COMPUTER! 



HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed onfy) 

EPSON MX-80 FT (Tractor and Friction feed) 

EPSON MX-70 (Tractor feed only) 

EPSON MX-1 00 (Tractor and Friction feed 14.5 wide) 

EPSON MX-80 Hi-Res Graphics Option 

Add-On Friction Feed Adaptor for MX-80 or MX-70 
OKIDATA MICROLINE 80 (Friction and Pin feed) . 
OKIDATA MICROLINE 82 (Friction and Pin feed) . 
OKIDATA MICROLINE 83 

(Friction, Pin and Tractor feed 14.5") 
OKIDATA MICROLINE 82A. 120 CpS 

(9x9 matrix w/descenders) 
OKIDATA MICROLINE 83A. 120 cps 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 



539.95 
639.95 
419.95 
895.95 
89.95 
59.95 
414.95 
597.95 
897.95 

625.00 

925.00 

75.00 



LETTER QUALITY PRINTERS 

The C-itoh Daisy wheel printer is one of the finest Letter 
Quality printers we've seen. WHY PAY MORE FOR LESS??? 
Exchange Daisy wheels to get the kind of printing fonts you 
need. 12-10 pitch. Excellent with Scripsit or Electric pencil. 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to get 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS 1,795.25 

C-ITOH DAISY WHEEL 45 CPS 1,995.25 

C-ITOH TRACTOR FEED 219.95 



PMC-80 COMPUTER 

16K LEVEL II Fully compatible with 

all TRS-80 Mod I Software 595.95 

PMC-81 COMPUTER 19K LEVEL II 

with upper /lower case Upper/ lower case 
driver in ROM Auto key repeat Numeric keypad 
4 programmable key*. Built in speaker 100% Mod I software compatible 679. M 
EXPANDER 100 PMC's expansion interface 32K. disk controller printer interface 

(Expands PMC-80 81 to 48K) 4M.M 

RF -MODULATOR for PMC or TRS-80 to TV Hook-up Completely assembled and 
tested (Plugs m Video port) UHF CH 33 39.es 




JQS 



TRS-80 Disk and Other Mysteries Book. 132 pp 22 50 

Microsoft Basic Decoded and Other Mysteries. 312 pp 2fJ.M 

Custom TRS-80 and Other Mysteries. 300 pp 29.98 



CALL TOLL FREE: 800-528-1149 



NO SURCHARGE FOR VISA. MASTER CARO OR AMERICAN EXPRESS"' 
(10% DEPOSIT REQUIRED ON CO D S OVER $20000) Send Certified Check. 
Money Order or Check 

^19 



4877 E. SPEEDWAY 
TUCSON. AZ 85712 
(602) 323-9391 



INC. 

CALL FOR 

FREE 100+ PAGE 

CATALOG!!! 



TRS-80 IS A TM OF TANDY CORP PMC-80 IS TM OF PERSONAL MICROCOMPUTERS 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE 



•"See List ol Advertisers on page 402 
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Wages 

Is 
Here 

FORTHETRS-80 

» Wages MEETS PAYROLLS 

► Wages IS GUARANTEED 

■ Wages COST ONLY 
$35.00 FOR MODEL I 
($45.00 FOR MODEL II) 



FROM 
The Maine Software Library 
P.O. Box 194 "»• 

Standish, Maine 04084 

*A Trade name of the Tandy Corp. 




HOW LOW 

Can we Co? 

8 Premium 
16K Dynamic rams: 

$19.95! 

These top quality, high speed, low power 
RAMs expand memory in TRS-80* l/ll/lll 
and Color Computers. Heath H88, Apple, 
newer PETs, etc. Backed by one year limited 
warranty. Add $3 for two dip shunts and 
conwjrsion Instructions for TRS-80* I. 

Why pay more. . .we stock the right parts 
at the right price. 



Terete: Cal m nH lei «i>o» «' iuii >% Kneeing, en 
•tiunaeo visa' iuiiwho' order* ea>i i«m MI-etM. 24 hours 
Include street Mdmi for UPS deliver) Prxet subfeci ro chenge 
wtfhoul notice 

CompuPro 

BOX23SS. OAKLAND ARPORT, CA 84«14 



mm 

EL EC TRONIC S 



• 75 



"This bit of magic 
served as an incentive." 

key it was. You try it. 

Suppose you PEEK(3804H) and get a re- 
ply of 8 (decimal). Which key was being held 
down at the time? Address 3804H means 
ROM read row 2 (2* = 4). Data byte 8 ( = 2 s ) 
means the column of the key was three 
which makes the key "S". 

So much for single key presses. Now try 
an experiment. Type in PRINT PEEK(14337), 
but before hitting Enter, press and hold A 
and B simultaneously while you backspace 
twice and enter (still holding "AB"). Why 
does the computer respond 6? Did It add the 
2 for A to the 4 for B? Not exactly; it OR'd 
them. 



OR 

Yield* 



00000010 
00000100 



00000110 6 

Isn't that the same as adding? No, 
look at: 



OR 
Yields 



00000010 

00000110 
00000110 



For our present purpose since each key in a 
row sets only one bit in the data byte, the ef- 
fect will be the same as adding. If the row 
data byte is 6 (for AB), how does ROM know 
it is supposed to print either A or B? 

Glad you asked. ROM uses seven memo- 
ry locations (4036H through 403CH) to store 
the data byte for each of the rows except 
the last (which contains only Shift). With 
each scan of the keyboard, the new byte for 
each row is compared with the byte from 
the previous scan. No action is taken if they 
are the same. If they are different, the 
previous byte is masked out and the result 
is output. 

Note that Shift is treated differently since 
there is no reason to separate it from keys 
pressed simultaneously. But that's another 
story. 

If you really manage to press the two 
keys close enough in time for ROM to see 
the events as simultaneous, then ROM will 
not be able to strip the extra code properly. 
It will happily take the lower of the bits re- 
maining after the attempt. 

Letter Substitutions 

This still doesn't explain the weird letter 
substitutions or what happened to the ad- 
dresses in between 3801 H, 3802H, 3804H, 
3808H, and so forth. The missing addresses 
represent combinations of rows, which 
might conceivably be useful if you wanted 
to use some exotic password or command. 

The substitution sleight of hand stems 
from a sneak path in the electronic circuit. If 
you hold keys from a given column but in 
different rows, all of the columns activated 
in any row appear to be activated in all the 
involved rows. 



For example, if you own a utility that is 
activated by holding 123, try holding ABC2 
instead. It works. Looking at Fig. 1 you can 
see that ABG1 or ABC3 would have worked 
just as well. Believe it or not, even "Clear/ 
Break/tl" do the job. 

A set of keys in one row defines the col- 
umns involved, and one more key links the 
rows together. Now you see why "1 Space" 
clears the screen. I and activate columns 
C1 and C7. Space makes sure that when 
row 6 is scanned, it too appears to have C1 
and C7 activated. 

ROM knows the previous data byte for 
row 6 was 00, so it doesn't strip anything. It 
is quite content to take the lower of the two 
activated columns, which (for row 6) is 
Clear. 

More Mysteries 

This bit of magic served as an incentive 
to wend our way through the keyboard 
mechanism. It gives some insight into how 
wizards use multiple key codes, and it pro- 
vides a little Halloween fun. 

If you are interested in PEEKing at the 
keyboard memory, you must arrange it so 
that Enter is not the last key hit. Program 
Listing 1 will do this, formatting the display 
in lines 16-bytes wide and identifying the 
first address of each line. 

You must press a key and hold it while 
the display is printing, or press several keys 
together. 

If you are curious about the remainder of 
the keyboard memory (3900H through 
3BFFH), insert lines 

36 For K = 1 TO 4 : PRINT 
105 NEXT K 

You will find that the next three pages are 
identical to the first page. They exist only 
because of a shortcut in the row-addressing 
scheme. 

If you are intrigued by the ROM 
mechanism in stripping off previously held 
keys, try disassembling 03E3H through 
03F9 in ROM. It's only 23 bytes. 

Ask your computer what turns it on. Hold 
down in this order I F M N Space 0.B 



10 DEFINT A-2 

20 K$ = INKEYS : IF K$ = " " THEN 20 

30 M ■ 14336: 1 = M: N = 14351 

40 FOR J = 1 TO 16 : PRINT 

50 PRINT I; 

60 FOR I = M TO N 

70 PRINT PEEK (0; 

80 NEXT I 

100 M= M + 16:N= N + 16 
110 NEXTJ 
120 GOTO 20 



Program Listing. Active Keyboard Display 
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We Accept C.O.D.'s • Stock Shipments Same Day or Next 
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OKIDATA 
APPLE 

TELEVIDE 

COMMODO 
RADIO SHA 
AMDEK 



IN fERT rX SUPERBHAIN 64K RAM 


$2799 


-'ERBRAlN 


12999 


1 FR {/7iri 


$2345 


NEC* ".PiTEF (7 ?*, ■ 


52895 


.530SWNWRITEPf 


$2345 


NEC 1 ■ 
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OKIDATA MICR0LINE-6. 


529 


OMDATAMlCROLINE-83 ■ 


S 769 
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S1995 


APPLE II PLUS 48K W ~ M 


$1139 


APPLE DISK w/3.3 DOS i x 1 




APPLE DISK «.o Controller 


$ 449 


HAZELTINE 1420 




NORTHSTAR HORIZON II 32K OD 


$2925 


ANADEX DR-9500/9501 


$1249 


TELEVIDEOSi 


$ 639 


TELEVIDEO920C 


$ m 


TELEVI0EO950 


$ 929 


CBM 8032 COMPUTER 


$1149 


<~PW 8050 DISK. DRIVE 


$1346 


' *M 4032 COMPUTER 


$1029 


« 44M 4040 DISK 0RIVE 




ooM 4022 




CBM VIC-20 


$ 269 


. • ■ i ■ ■ | 6AK 


$324*. 


n >\ ,f^HA 


$ 849 


uE&DE/w'AMOEK 100 




LEE I OG 


$ 189 


lEEDEX'AMDEK COLOR 1 13" Color Mon.tof 




MICROTEK 16K RAM8OAR0 for A I 


$ 79 


IQTEK4EK 




Q'JME SPRINT 9/45 {• 


$2296 


ATARI 400 16K 


$ ru9 


ATARI 825 PRINTER 




ATARI a^C INTERFACE 


t 19 


ATARI 8 10 DISK DRIV 


$ 449 


AT AW 809 


$ 749 
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WEST COAST 
1-800-2S5-1581 

OMEGA SALES CO. 

3533 Old Conejo Rd. 4102 

Newbury Park, CA 91320 

1-805-499-3678 

CA. TOLL FREE 1-800-322-1873 



OMEGA 
BALES 
CO. 






EAST COAST 
1-800-556-7586 

OMEGA SALES CO. 

12 Meeting St ' 

Cumberland. Rl 02864 ■ 
1-401-722-1027 



Omega sales company 



UTILITY 



A machine-language 



( 



er. 



Purezzap 



Purezzap 

Computer Consultants 

Downey, CA 

W.R. Stanley 
City Rte. 5 
204 Avery Lane 
La Orange, QA 30240 



Just as there are monitor programs 
available for cassette users, there are 
several monitors that allow the disk user 
to analyze and modify programs on disk. 

Two disk-based monitors that come to 
mind are Superzap by Apparat, and Purez- 
zap by Computer Consultants. 

Superzap is loaded and run under Disk 
Basic, and some of Its functions are slowed 
by dependence upon the Basic interpretive 
process. This in no way detracts from the 
technical accuracy and wide capabilities 
of Superzap. 

Purezzap is a machine language pro- 
gram that takes much less time to bring 
up, and its overall operation seems to be 
smoother because of the smaller time lags 
encountered. 

For the one-drive owner, the entire pro- 
gram should be initially loaded into RAM 
so that a program of interest on another 
disk can be manipulated by inserting that 
disk into the same single drive. 

The monitor program should allow the 
user to specify any desired track and sec- 
tor location to be examined, instead of 
always starting at track 0, sector for al 
functions. This will. save a lot of wear am 
tear on both the disk drive mechanism anc 
the user's patience. 

The monitor should also permit e> 
amlnation of an entire sector at a tlmi 
with a pleasing and functional form* 
displayed on the video screen. Cursor oc- 
troi should be versatile so that a particul 
byte displayed can be specifically desi 
nated for modification as necessary. 
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The user should be able to step the drive 
(and display) in either direction from the 
current sector location to an adjacent sec- 
tor without returning to a menu and re- 
entering a whole string of commands and 
options. This saves considerable time in 
examining the many sectors storing a 
lengthy program. 

Since we might also be interested in 
making minor changes to Basic programs 
on disk, an ASCII-equivalent dump of the 
256 hexadecimal bytes in the sector 
display is of great help In locating specific 
program elements. 

This ASCII display assists in analyzing 
and locating certain subroutines in a 
lengthy machine language program be- 
cause many complicated programs use 
ASCII phrases for menu and error mes- 
sage displays. 

We want to not only transfer disk data to 
the screen (and RAM), but also have the 
capability of modifying specific bytes and 
writing the modified sector back to exactly 
the same disk location from where the sec- 
tor data was read out. There would be no 
point otherwise in attempting to modify 
bytes in a sector. 

Pur >zzap 



i 
wh 
its* 



rezzap comes on a formatted disk 

i contains only the monitor program 

, a directory track and a boot. No 

s on the disk; you must transfer 

«p to a disk containing at least a 

i disk operating system. The 

program is furnished In this 

> protect the copyrights of others 

DOS programs. 

icumentation furnished with 
;onslstsof a single page that ex- 
unctions of the commands and 
uded In the menu displayed on 
screen. 

ezzap is loaded from disk, it 
il of the computer. That disk 
removed to make room for the 
... amined. This makes It nice for 
■•/ho have only one drive. The 
ully capable of functioning 



with two drives, however, with the active 
drive designated by the user. 

When the program is brought up, a com- 
prehensive menu is displayed. You can 
then choose any of several options such 
as reading a sector from disk, comparing 
two designated sectors, purifying the 
directory, zeroing unallocated sectors, kill- 
ing all system flies to derive a formatted 
disk, computing hash codes, or jumping 
from Purezzap back to DOS. 

Read and Write 

Several choices from the master menu 
will bring up sub-menus that get down to 
specifics in configuring program opera- 
tions to arrive at desired results. For in- 
stance, pressing the R key (Read Disk Sec- 
tor) will replace the master menu with a 
smaller menu asking you to specify the 
drive, track and sector to be dumped from 
disk into memory and be displayed on the 
video monitor screen. 

After the Read function has been com- 
pleted, the full 256 bytes of the specified 
sector will be displayed in 16 lines of 16 
bytes each. The ASCII equivalent of each 
hex byte in that line will be to the right of 
each line. 

Along the left side of the screen you will 
see the current drive, track and sector 
numbers. Also displayed is the relative 
byte number corresponding to the current 
cursor location. 

In addition, you will see a non-destruc- 
tive cursor blinking at the zero relative byte 
in the current sector. You will also see a 
blinking cursor in the ASCII equivalent 
segment of the display. As the main cursor 
is moved around on the screen, the ASCII 
cursor is also moved to the corresponding 
relative location. 

Let's say that you have examined the 
dump of this sector and see the byte that 
you wish to change. Simply use the arrow 
keys on the keyboard to position the cur- 
sor over that byte. Then press the M 
(Modify) key. The size of the cursor will 
change, Indicating that Purezzap Is now In 



Now NRI takes you inside the 

new TRS-80 Model III microcomputer 

to train you at home as the # 

new breed otcomputer specialist! 



NRI teams up with Radio Shack 

advanced technology to teach 

you how to use, program and 

service state-of-the-art 

microcomputers . . . 
It's no longer enough to be just a 
programmer or a technician. With mi- 
crocomputers moving into the fabric of 
our lives (over 250,000 of the TRS-80™ 
alone have been sold), interdiscipli- 
nary skills are demanded. And NRI can 
prepare you with the first course of its 
kind, covering the complete world of 
the microcomputer. 

Learn At Home 
in Your Spare lime 

With NRI training, the programmer 
gains practical knowledge of hardware, 
enabling him to design simpler, more effec- 
tive programs. And, with advanced pro- 
gramming skills, the technician can test 
and debug systems quickly and easily. 

Only NRI gives you both kinds of 
training with the convenience of home 





Training Includes new TRS-80 Model III micro- 
computer, 6-function LCD Beckman multimeter, 
and the NRI Discovery Lab with hundreds of tests 

and experiments. 

(TRS-80 is a trademark of the Radio Shack division of Tandy Corp ) 



study. No classroom pressures, no night 
school, no gasoline wasted. You learn at 
your convenience, at your own pace. Yet 
you're always backed by the NRI staff and 
your instructor, answering questions, giving 
you guidance, and available for special help 
if you need it. 

You Get Your Own Computer 
to Learn On and Keep 

NRI training is hands-on training, 
with practical experiments and demonstra- 
tions as the very foundation of your knowl- 
edge. You don't just program your computer, 
you go inside it. . .watch how circuits in- 



Send for Free Catalog. . . 
No Salesman Will Call 

Get all the details on this exciting 
course in NRI's free, 100-page catalog. It 
shows all equipment, lesson outlines, and 
facts on other electronics courses such as 
Complete Communications with CB, 
TV/Audio and Video, Digital Electronics, 
and more. Send today, no salesman will ever 
bother you. Keep up with the latest technol- 
ogy as you learn on the latest model of the 
world's most popular computer. If coupon 
has been used, write to NRI Schools, 3939 
Wisconsin Ave., Washington, D.C. 20016. 




NRI Schools 

McGraw-Hill Continuing 

Education Center 
3939 Wisconsin Avenue 
Washington, D.C. 20016 



NO SALESMAN WILL CALL. 

Please check for one free catalog only. 

□ Computer Electronics including 
Microcomputers 

□ Color TV, Audio, and Video System 
Servicing 

□ Electronics Design Technology 
D Digital Electronics 

□ Communications Electronics • FCC 
Licenses • Mobile CB • Aircraft • Marine 




teract . . . interface with other systems . . . 

gain a real insight into p— _— ■—- — _— — — — — nW w 

its nature. 

You also work 
with an advanced liquid 
crystal display hand- 
held multimeter and 
the NRI Discovery Lab, 
performing over 60 
separate experiments. 
You learn troubleshoot- 
ing procedures and gain 
greater understanding of 
the information. Both 
microcomputer and 
equipment come as part 
of your training for you 
to use and keep. 



All career courses 
approved under Gl hill 
□ Check for details 



I 
I 
I 
I 
I 
I 
I 
I 
I 

' City/ State/ Zip 

I Accredited by the Accrediting Commission of the National Home Study Council 



□ Basic Electronics 

□ Small Engine Servicing 

□ Appliance Servicing 

□ Automotive Servicing 

□ Auto Air Conditioning 

□ Air Conditioning, Heatin_ 
Refrigeration, & Solar Tec 

G Building Construction 



(Please Print) 
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IS YOUR MICRO TOO small? 


THEN 

ENLARGE^ 




IT ^ 


^P^-S too —~ --" 




WITH 




S-100! 



Why the S 100 lit BE 696 t) Bus Slanted" 

• // Mill turn your MICRO mto a compute with the 

capability oi a MINI. 

• v. : . ,,a-.i ri.s — ri- MEMORY as "f.-n-'i tadd I 

7 oi moie (><fK RAM boards) 



• AM a Board to give you as much. HARD oi Hoc 
:v :s: CAPACITY ji .r<j neeo 



• Aw a high density COLOR-GRAPHICS board 

and much MORE! 

• These boa/OS ;ust PLUG INTO your sySlem- 

prewded you have an S-100 mainframe and 
an interlace adaptei liom {^qmpuTER WIT. 

• For TRS-40 Pet & others 

• Fiom $9b mainframes Iter. $310 Catalog $1 

(refunded with order) 

\<^° , COMPUTER V/Ff ^ 198 
SjAc*^ incorporated 

5620 176't Street S-W. 

L ynnwood Washington 98036 

/206I Z43-4336 

formerly HUH 



COMPILER 
WORKSTATION 

TRS-80 Model I and III 

Your BASIC program development 
could go faster... 

EDIT: Full-Screen BASIC editor with floating cursor and auto- 
repeat More than 30 commands and lunctions let you var- 
iously hnd. criange. insert, delete replace, replicate, copy, 
move or position BASIC text at the character string, line or 
Block level Developed in Britain oy Southern Software Mod I . 
Ill $40 00+ 1 50 shipping 

PACKER: (Cottage Software) baiting tool will unpack shorten, 
repack, renumoer all or part of your BASIC text The UNPACK 
segment is very useful when preparing BASIC source pro- 
grams 'or compilation oy ACCEL2 Mod l.l'l $?9 95 + 1 00 
shipping 

Then your BASIC program 
could go faster. . . 

ACCEL2: Compiler lor TRS 80 Mod I. Mod I'l Disk BASIC New 
functional improvements in place to give more ease ol-use 
quicker compilation of large programs, Petter chaining ot com- 
piled and non-compiled programs Size read out helps you 
monitor code growth during compilation REM NOARRAY option 
lets you use variable Pound arrays Professionals note Com 
prehensive instructions show how to organize your compiled 
programs lor resale on tape. tS/F water or disk No royalties! 
Developed in Britain Dy Southern So'tware Specify Modi 0' I II 
$88 95 + $2 00 shipping 

TSAVE: Writes compiler output to independent SYSTEM tape 
$9 95 + $1 00 shipping 

EXEC: Command-List Processor tor TRS-80 Mod I Prepare 
execute, pass as many as nine parameters to lists ol TRSDOS 
or NEWD0S commands and/or BASiC statements Simplifies 
repetitive procedures such as power-up sequences, die set- 
ups, etc Compatible with ACCEL2 compiler disk output 
Developed in Britain By Southern Software $?2 00 + $1 00 
shipping y ^ 7g 

y Allen Gelder Software 
M/C.ViSA R, Box 11721 Main Post Office 
CA aad 6% t v San Francisco, CA 94101 

g*i (415) 387-3131 

IRS-80. TRSDOS tm Radio Shack tS/F tm Exatron 



"You can get in trouble very fast 
by zapping bytes on a disk 
without knowing what you are doing. 



the Modify mode. 

Type in your desired byte value at the 
current cursor position. The byte display 
at the current cursor location will change 
as you enter the new value. If this is the 
only change to be made to data in this sec- 
tor, press W (Write). 

Another sub-menu will now appear, of- 
fering you, among other things, the option 
of writing the edited sector back to disk. 
This intermediate step reduces errors in 
writing a modified sector to disk because 
you must request a Write operation on two 
separate occasions before that operation 
will actually occur. 

While still in the Read mode, you can 
use the Search command to locate the 
byte you want. Simply type S, followed by 
the byte value you are looking for. If that 
byte is displayed, the cursor will be 
automatically placed directly over it. 

To search the remainder of the sector 
for that same byte value, hit the S key 
again. The cursor will then indicate the 
next occurrence of the byte. When the 
search function turns up no further loca- 
tions for that byte, the cursor will auto- 
matically return to the zero-relative byte 
location. 

Directory Cleanup 

Purifying the directory consists of zero- 
ing out all killed directory entries. This 
makes it easier to find the entry data for 
the program of interest. 

Zeroing unallocated sectors is helpful 
for transferring programs back and forth 
between locations on one or two disks in 
the modification process. You usually end 
up with the same sector data in two or 
more locations on the same disk, but the 
data in only one sector is valid. The other 
sector data is still accessible by the moni- 
tor because only the directory entry is 
modified when a kill is made; the sector 
data itself is unchanged. 

This can be misleading to the unwary 
because, if Purezzap is used to hunt all 
over the disk for sector data, you have a 
good chance of seizing upon a dead sec- 
tor. The data in that sector looks just as 
you expect it to, so you go to great lengths 
to modify it. 

After that sector is written back to disk 
and the main program is run again, it will 
appear that your modifications were un- 
successful. This minor tragedy can be 
alleviated if all unused sectors on that disk 
were zeroed. 

Hash code computation is a mystery to 
most disk zappers, but it is necessary to 
derive or verify the proper hash code when 
reconstructing the directory for a clob- 
bered file. This code is based on the values 
of the hex numbers representing the file 



name in a given directory entry, and it is 
stored In a specific position in the Hit table 
In the directory. 

The hash code is a pointer to both the 
location and validity of a specific entry in 
one of the following sectors in the direc- 
tory track. If the code is improper or miss- 
ing, the computer will not be able to find 
the file you request it to load. Purezzap will 
generate and display the proper hash code 
for any filespec you type in. 

Other Functions 

Sector comparison using Purezzap is 
also very useful, especially when you are 
using two drives to reconstruct damaged 
sectors. This function still works just fine 
using one drive, though, because you can 
specify the drive, track and sector num- 
bers for the comparison operation. 

This is initiated by Reading the speci- 
fied sector as before. Then the C key is 
pressed, bringing up another sub-menu. At 
this point you designate the exact location 
of the sector to be compared with the one 
just displayed. The data from the second 
sector is loaded into memory, and the 
comparison starts. 

The relative byte number of the first oc- 
currence of a byte value difference be- 
tween the two sectors being compared is 
displayed, along with the values of those 
two bytes in their respective sectors. Hit- 
ting the C key again will continue the com- 
parison until the next difference is en- 
countered. 

The kill function in Purezzap will change 
a system diskette to a formatted data 
diskette by killing all system files such as 
the SYSx/SYS, Basic and Format programs 
that are usually on a full DOS disk. The 
directory track and the boot sector are still 
available for use. Unchanged are all user 
programs and files present at the time of kill. 

Pressing J will jump from the Purezzap 
master menu to the DOS currently in the 
computer, returning you to the DOS Ready 
prompt. 

Return from any function of Purezzap 
back to the master menu is done simply by 
typing X. This is not only for recovery from 
an incorrectly entered command or param- 
eter, but returns you to familiar ground in 
case you and the progam get into foreign 
territory. 



Further Thoughts 

If you don't already realize it, you can 
get in trouble very fast by zapping bytes on 
a disk without having at least a general 
idea of what you are doing. A publication 
of immense value to the neophyte is Harv 
Pennington's TRS-80 Disk and Other 
Mysteries. ■ 



358 • 80 Microcomputing, November 1981 



MODEL III OWNERS 

LAYMAN'S GUIDE TO NEWDOS $5.00 

An easy to understand plain-english guide to the 
most commonly used (by the layman) features of 

NEWDOS 80. 



CONVERT MODEL I SCRIPSIT 

TO MODEL III 

'Renumber Program Lines 

'Move Program lines 

'Move Blocks of Program Lines 

'Duplicate Program Lines 

'Selective Variable Clearing 

'Program Single Stepping 

'Memory sort multi-dimensioned arrays 



AND/OR VISICALC 

PLUS 

'Swap Variables 

'Read & Write to Mod I disks 

'Reference Keywords 

'Spool Printing 

'Change Disk Speeds 

•Disable BREAK and /or CLEAR 

'Much Much More!! 



All of the above shipped with Apparats Newdos 80 2 
Regular $149.95 — Now only $129.95 (Mod III only) 

COPY MODEL III SCRIPSIT AND VISICALC $15.00 

Allows UNLIMITED BACKUPS of your Master Disk. 
Works if you have already backed up twice. 
Comes as a simple 17 line basic program. 

ST80D PATCH $15.00 

Makes your Model I ST80D work on Model III. 
Comes as a simple 30 line basic program. 



m 



VISA - Mastercard - Money Orders - COD 

Allow 2 weeks for personal checks 
Kansas residents add 3.5% sales tax. 

l K m 526 East 4th, 316-665-3611 



TA.INC 



Hutchinson, Kt. 67501 



*• 143 



m 



Don't pay High Prices 

for TRS^O 
Computer Forms 



Get top quality ft fast service 
at the lowest prices, from NEBS ... 
Your satisfaction guaranteed 

Send today for information on NEBS continuous 
INVOICES, STATEMENTS, PAYROLL CHECKS, 
ACCOUNTS PAYABLE CHECKS and more ... Designed to 
fit Radio Shack", TRS-80* Software. 



• LOW PRICES 

• FASTSERYICE 



AVAILABLE IN 
SMALL QUANTITIES 



• MONEY SACK 
GUARANTEE 



Please rush Information to: 



NAME. 



COMPANY . 
STREET 



CITY, STATE and ZIP . 



QMi^er 



L_ 



CODE 45460 



Forms " m 

78 Hotlis Street. Groton. Mass. 01471 

Attrition gf 

Naw England Buamen Same*. Inc. 



._l 



WE HAVE A PROBLEM 
WITH OUR SOFTWARE 

The problem is that it is underpriced! Potential buyers don't believe the 
accounting software has much capability at $450, so they buy software with less 
capability at $1000. 

What do the ones who buy it say? 

"I have become more and more convinced ... it 
is one of the best bargains available . . ." 

80 REVIEW, 80 MICROCOMPUTING, June 81. 

"The single data diskette with common files is 
really convenient ..." 
Randy Bemis , Bemis Construction, San Diego. 

"I recommend MICROED software for my com- 
puter customers." Smdof Zobokj President 

ZOBEX Computer Systems. 



THE BUSINESS SOFTWARE NOW AVAILABLE 

GENERAL ACCOUNTING PACKAGE $450.00 
G/L, A/R, A/P 

INVENTORY I $250.00 

PAYROLL $250.00 

System requirements: CP/M, 64K memory, two disk drives. 132 column 
printer 

TRS-80, Model II SOFTWARE NOW AVAILABLE 

1.4 CP/M Special $90.00 

Single or double density auto-select 

SMARTERM $50.00 

Versatile terminal program, requires CP/M 

CP/M. T.M. ot Digital Research. TRS*0. TMd Tandy Corp. 



We are dedicated to selling quality business software at reasonable prices. 



Dealers, we have a deal for you. 

Write or Call 



MICROED 



3910 BANDINI STREET. SAN DIEGO, CALIFORNIA 92103 • (714) 299-1125 




►'See List of Ao\erfisers on page 402 
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UTILITY 



Say, disk users, here's a sexy sector inspector. 



Simplezap 



David Safford 

887 Linda Lee Circle 

Lemoore, CA 93245 



This simple Basic program 
allows direct sector input, 
examination, modification and 
output. To understand how the 
program works, you need some 
elementary disk theory. 

A floppy disk Is organized 
into 35 concentric tracks, and 
each track is divided into 10 
sectors. Each sector contains a 
header which tells which track 
and sector it Is, followed by 256 
bytes of data. Any DOS must 
have routines that read and 
write these 256 byte sectors 
directly. The higher level DOS 
functions take these physical 
records and translate them to 
logical records or files as 
necessary. 

All current Model 1 versions 
of TRSDOS locate these rou- 
tines on memory page 4600- 
46FF (hex). Memory page 
4600H is loaded from track 
sector 7 during bootstrap, 
which is why any change must 
be made to this critical sector. 
Page 4600H contains all the 



subroutines to select a disk 
and start its motor, seek the re- 
quired track, then read or write 
a specified sector. In assembly 
language, accessing these rou- 
tines Is extremely easy. The for- 
mat is: 



C ■ Drive • (00-03 H) 
D « Track f (00-23 H) 
E = Sector • (00-00 H) 

HL-256 byte RAM buffer 

CALL 4600 for read sector to buffer 

CALL 4SE6 for write sector from buffer 



My Basic program simply 
POKEs the machine language 
routine into memory, calls it 
with the USR function, and then 
calls Debug to examine and 
modify the sectors in memory. 
After returning to Basic from 
Debug, the program can use 
the machine language routine 
to write the sector back to disk. 

How to Use It 

• It is not necessary to re- 
serve memory for the buf- 
fer—the program uses so little 
memory that judicious selec- 
tion of the buffer address (I.e., 
75O0H-7AO0H) will keep it clear 
of the Basic program and the 
processor stack even in a 16K 
machine. 

• The program first prompts 
for the 256-byte buffer address. 
The program will always locate 
the buffer at the start of a page 
address; if you Input 8180H, the 



buffer will actually be located 
at 8100H. This allows Debug to 
display the entire sector as one 
full page of memory. 

• The "Drive, Track, Sector" 
prompt asks for decimal in- 
puts—drive (0-4), track (0-35), 
sector (0-9). Once entered, the 
computer loads the sector to 
the buffer location and calls 
Debug. 

• After examining and modi- 
fying the sector with standard 
Debug commands, type "G" 
(enter) to return to Basic. 

• The program will then ask if 
you want to write the buffer 
contents to disk. Entering "E" 
will stop the program and return 
to Command Level Basic. This is 
the only way to exit since the 
break key will only execute 
Debug. Entering "Y" will write 
the sector; any other track sec- 
tor prompt. Any entry other than 
"Y" will jump the program back 



to the drive, track, sector prompt 
without writing the sector. 



• Once the program and 
Debug have been called into 
memory, any disk can be 
substituted In drive for ex- 
amination or modification as 
long as they are formatted. 
Therefore, even single drive 
systems can use the program 
to restore bad directories or 
otherwise defective disks. The 
only irreparable defect is one in 
which the disk interface chip 
cannot find or read the sector 
header. If the interface cannot 
positively identify the re- 
quested sector by its header, it 
will lock up. 

This program makes sector 
I/O on a TRSDOS system easy. 
Since the program is in Basic, 
modifications are relatively 
simple to make. ■ 



1* DATM4,0,2 2,e,3B,B,3 3,a,126,19 5,221,78 

28 H$-*B12345«789ABCDEF" 

38 CLS:PRINT*SECTOR I/O PROGRAM* 

48 INPUT'ENTBR BUPPER LOCATION (BBX)*|A$ 

58 A"8:P0RI«1T016:F0RJ«1T04 

61 imiDS(A$,J,l) -MIDS (H$,I,1) THENA-A+(I-1)«16((4-J) 

78 NEXTJ:NEXTI:A-INT(A+.S) iC"INT(A/256+.5) I IPA>32767THENA»A-6553 

6 

88 PORI«BT011:READB:POKE(A+256+I) ,B:NEXTI 

98 DEFUSRl-A+256:PO*.EA+264 r C 

188 CLS I INPUT* ENTER DRIVE(8-4) ,TRACK(8-34) ,SECT0R(8-9) ";D,T,S 

lit POKEA+257,D:POKEA+25 9,T:POKEA+261,S 

121 PRINTUSRl(B) sCLS 

138 CHD'D* 

148 CLSl"INPUT*OUTPUT UPDATED SECTORIY/N/E) 'rAS-'E' THEN STOP 

158 IPA$<>*y*THEN18B ELSE IP T-17 THEN 1-239 ELSE I-23B 
168 POKEA+266,IiPRINTUSRl(B) iCLSt P0KEA+2<6,221:G0TO18B 



Program Listing 
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; v S^irHprta>s d predict is marketed that is of such g< 
quality and value that it soon becomes the standar 
in its cfasS v Orchestra-80 is this kind of program. 
JimHBfa. 

8 M °oX C °pT ,in9 



.80 

sort*****" 






**v>* v 



■•V" . •••• 




MUSIC SYNTHESIZER 

$79.95 

plus $200 postage and handling 
CA residents add 6% sales tax 
MasterCard and Visa 
accepted 



018«< 



vf**> 



ORCHESTRA "Itl^'* 



' Free Downloading of Orchestra-80/8 5 Files N 

Photo-80 (201)790-6795 < 

*' Torum-80 (201)688-7117 

'■••miot-ii ..'■'. , C 

J Builet-80, ., (: 

:•' Connection- 80 I 

Bullet-80 ( 







Orchestra 80 and 85 systems are outstanding 
jvements m cost vs performance in the music 
esizer area They produce a fine sound, and pro- 
easiiy that novices have little trouble r " 



ftngis: swa 



STCRK>-^Sepaicitton by instrument! Ry ex- • New editing featu 
ample, play tumpet and oboe through • pkjqs into any 1 
channel A. clarinet and organ through 

• ■ channel B. Yau can, switch instiuments 
■:'; 4tc*p channel to channel at any time! 0g 

• 'f0X^SSKDN~Npw you con add a 



WW 



Vm 



• Op+ksnal Sth VWCe for use with 
speed-up mods! 



orc 



Copvngh* 






TAP| 



* ^d/ 



n* 



I commands! 
I keyboard or i 
it voiding 



I 



ORC»5T 



$0**** 



AT*** 



i K?i I "3 M ■ r * ■ 



L^SlKHiV 





to Orchestra-85 Switch to Stereo! 



toad and play! 



all $79.95 . " 



$129.95 



MasterCard and Vtea, . 
accepted; 



SSfrRubis Drive. Sunnyvale. CA 

\ ■■■■:*/" vs» • 008)295-9195 



^See List ol Advertisers on page 402 
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INTERFACE 



This mod rolls 16K of RAM over your ROM operating system. 



ROM Roll-Over 



Geary Kelch 

23 Mapledale Avenue 

Glen Burnie, MD 21061 



If you are concerned with ma- 
chine-language programming 
or would like to add 16K or Ran- 
dom Access Memory to your 
TRS-80 without buying an ex- 
pansion interface, you should 
be interested in this hardware 
modification. It is straight- 
forward, inexpensive, and 
takes less than eight hours to 
build and debug. And it may 
give you a new perspective on 
your TRS-80's basic operating 
system, whether you have a 
Level I or a Level II machine. 

By adding four chips and a 
16K bank of 4116 chips whose 
address can be externally 
relocated anywhere in memory, 
you can replace your TRS-80's 
ROM with more versatile RAM 
memory. With this modification 
you can overlay the TRS-80's 
ROM operating system with 
your modified version, or with a 
4ota4ly rewritten one contained 
in the Random Access Memory. 



The existing ROM is taken out 
of the circuit when this overlay 
is performed, and system con- 
trol passes to the program 
contained in the added 16K 
memory block. Then you are 
able to dynamically change or 
replace part or all of the 
TRS-80's ROM-driven operating 
system. 

Let me explain how this op- 
eration works. First, the TRS-80 
has its operating system and 
Basic interpreter in Read Only 
Memory occupying the lowest 
memory addresses. The Level I 
takes up the first 4K of memory 
space from address 0000 to 
OFFF (hex). Since this is ROM- 
type memory, its contents are 
unchangeable. The same is 
true for the Level II system, ex- 
cept it occupies the first 12K or 
memory address range 0000 to 
2FFF(hex). This modification 
can replace the inflexible Read 
Only Memory with the prefer- 
able Random Access Memory. 
The simplified logic diagram in 
Fig. 1 shows how the chip 
select circuit can make this 
change. The circuit involves 



two 7400 chips, one 7406, one 
7442, a single-pole-single-throw 
switch, and a bank of eight 
4116 RAM chips, at a cost of 
less than $40. 

The rest of the circuit is used 
to generate two chip select 
signals— one for low memory 
(0000-3FFF), the other for high 
memory. The high memory ad- 
dress can be any of three re- 
maining 16K blocks, but the 
circuit shown In Fig. 3 is ad- 
dressing locations 8000-BFFF 
(hex) as high memory. Also, 
since the entire layout can be 
wired in the keyboard, it is not 
necessary to have an expan- 
sion box. That Is what makes it 
a great way to add an extra 16K 
to your machine at about the 
cost of the memory chips 
alone. You will, however, void 
any warranty on the system. 

The trick to making this 
change easily is in adding the 
eight memory chips to the cir- 
cuit with as few lines as pos- 
sible. It can be done by solder- 
ing the new 4116 chips pin-for- 
pin directly to the existing 
memory, piggyback style as in 



Fig. 2. This should be done us- 
ing a low-power iron and solder- 
ing only a few pins at a time. 
The memory chips must be re- 
moved from the sockets before 
any soldering is started. Pin 15 
of the upper chip in the pair 
should not be soldered to the 
corresponding pin of the lower 
chip, since this input will be 
used as the chip select for the 
16K bank. These pins will be 
connected to the chip select 
logic generated by the four 
gates comprising the rest of 
the circuit. Once all the memory 
pairs have been soldered, with 
the exception of each pin 15, 
they can be replaced in the 
sockets. Make sure they are in 
the proper orientation. 

The chip select circuitry that 
will feed pin 15 of the added 
chips is shown in Fig. 3. The 
pins used are noted, but if you 
have a Transistor-transistor 
Logic handbook, you may want 
to change the wiring slightly to 
make it easier for yourself. The 
logic, however, Is in its simplest 
form and the gate count cannot 
be reduced. Location of the 



. CHIP SELECT HI 
132-48K) ^ i sw , 

, , CHIP SELECT LO 
(0-I6K) ^ — 




DATA IN 



JT. 



DATA OUT 



PIN 15 



/ 



SOLDER 
FILET 



Fig. 1. Chip select circuitry for relocatable 16K bank of memory. 

Switch SW1 selects one of two chip select signals determining the Fig. 2. Pin 15 used for chip select of upper bank, bent away from 

address of the RAM memory block. others to avoid shorting to pin 15 of lower chip. 
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THE NEW LAREDO LS525. 

WHEN YOU'RE READY 

TO GET DOWN TO BUSINESS. 



Laredo Systems, Inc. introduces the 
LS525 five megabyte rigid disk memory 
system for TRS80 Models I and III. 
Laredo's LS525 rounds up a Seagate 
ST506 Drive, LDOS Operating System by 
Logical Systems, and Laredo's own LSI 




500 Series Controller into a single-board 
controller that emulates the famed IBM 
3370 disk system, complete with: 
• Improved read/write/seek access time 
through full block buffering and variably 
tuned interleave. 



• Onboard data separator, micro-code 
diagnostics and write-precompensation. 

• Increased disk media reliability and 
data integrity with automatic defect block 
allocation and extended ID fields. 

• Versatile CPU compatibility provided by 
separate host adaptor. 

Introductory Offer To TRS80 Users. 

Now through October 1 , 1981 buy the 
LS525 for the OEM/dealer price of 
$2990. a savings of $760 off the usual 
suggested retail price of $3750. 

LDOS Operating System 
with manual and diskette 
available for $149. 



For more information about the LS525 
Memory System and the LSI 500 Series 
Controller, contact: Laredo Systems, Inc. 
2264 Calle de Luna, ^ 2 , 

Santa Clara, CA 95050 
(408) 980- 1888 




kircdo yp>tniT0 Inc. 



^See List of Advertisers on page 402 
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CHIP 1 




CHIP 2 




CHIP 3 




CHIP 4 


7400 




7406 




7400 




7442 


MOUNTED 




MOUNTED 




MOUNTED 




MOUNTED 


ON 




ON 




ON 




ON 


KEYBOARD 




KEYBOARD 




KEYBOARD 




KEYBOARD 


IC 




IC 




IC 




IC 


Z36 




Z37 




238 




Z39 



Fig. 3. By mounting the 74s on the back of integrated circuits 
Z36<->Z39, wiring complexity and lead length will be kept to a 
minimum. 



chips and the method of wiring 
them is up to you. In my system 
everything was done as simply 
as possible to keep cost and 
lead length down. By inverting 
the chips and mounting them 
upside down on the backs of 
Z36-Z39 as shown in Fig. 4, your 
leads may be soldered directly 
to the integrated circuit pins. 
Mounting the chips in the posi- 
tion minimizes lead length and 
eliminates crossing wires which 
helps to keep down noise. If de- 
sired, a small circuit board may 
be mounted to hold the four inte- 
grated circuits. 

Trouble Shooting 

To make trouble-shooting 



easier, there are a few func- 
tions of the circuit that should 
be discussed in detail. The first 
deals with the memory address 
selection. As mentioned 
before, the add-on memory may 
be switched from a low to a 
high address via an external 
switch, SW1. The 7442 gate 
does the address decoding 
enabling chip selection. It is a 
4-in-10-out binary decoder. By 
running A14 and A15 of the 
TRS-80 address bus to its two 
LSB inputs, you get 16K bank 
select signals at the output 
pins. The output's least signifi- 
cant bit, which is pin 1 of the 
chip, must be used as shown 
because it is used to select the 



RAM when it is in the low posi- 
tion. However, any of the other 
three chip select signals (pins 
2, 3 or 4) may be used to select 
RAM when SW1 is in the high 
RAM position. Pin 2 of the 7442 
would cause position 4000- 
7FFF to be used. Pin 3 selects 
addresses 8000-BFFF and pin 
4 places the memory block at 
the top of storage or addresses 
C000-FFFF in hex. In the exam- 
ple, pin 3 was used, since it 
does not interfere with the ex- 
isting memory in a 16K ma- 
chine, and is contiguous with 
the original 16K. If your memory 
size is not the same you may 
want to move the add on mem- 
ory address up or down. A 
4-position rotary switch in the 
place of SW1 would enable you 
to move the address anywhere 
on a 16K boundary by running 
all four select lines out to the 
externally mounted switch. 

There is another function of 
the chip select logic not im- 
mediately apparent in the 
diagram. This involves the 
deselection of a 4K block at the 
top of the added memory. This 



deselection takes place when 
the memory is located at ad- 
dress 0000-3FFF (when the 
switch is in the low position). 
The deselection is accom- 
plished by ANDing A12, A13 and 
CS Lo. When A12 and A13 are 
both high and CS Lo is active, a 
blocking of the chip select 
signal occurs. This is to prevent 
the processor from accessing 
the address range 3000-3FFF 
of the add-on memory when it is 
occupying low memory. Hence, 
the effective range is the first 
12K (the range of Level II 
ROMs), rather than the full 16K 
block. It is necessary to block 
the upper 4K selection from 
3000-3FFF since this is the 
area used by the video display 
and the keyboard input. This 
chip select blocking is not im- 
plemented when SW1 is in the 
high position; therefore the full 
16K range is accessible in the 
upper addresses. Finally, be 
sure the jumper from pin 5 of 
Z74 to five volts is in place. This 
activates the memory Data In 
buffers for addresses above 
7FFF. Without this jumper, you 



7442 
PIN 3 



PIN I 



+ 5V 

t 

HI 1 LO 



GND 



SWI SELECT ENABLE SWITCH 




> TO 41 I6's 

PIN 15 



LOW SELECT 




DEPEN0IN6 ON ADDRESS CHOSEN AS THE HI ADDRESS, PIN 2, 3, OR 4 OF THE 
VCC 7442 MAY BE USED AS THE HIGH SELECT. THE NUMBER INSIOE THE CHIP 

AI4(PINII,Z35) REFERS TO THE CHIP NUMBER IN FIGURE 3. 

AI5(PIN4.Z3B) 



Fig. 4. Depending on what address is chosen as the HI address pin, two, three or four of the 7442 may be chosen as the high select. The 
number inside the chip refers to the chip number in Fig. 3. 
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Reliable Business 
Bookkeeping Software 



IN ITS 6th SUCCESSFUL YEAR 



NOW FOR TRS-80 MOD III 



ORDER ENTRY S350 

GENERAL LEDGER 140 

ACCOUNTS PAYABLE ... .140 
ACCOUNTS RECEIVABLE . 140 
INVENTORY CONTROL .... 140 
PAYROLL'PERSONNEL 140 

Inquire lot prices on other versions 

Also Available for: 
IBM, NEC, OSBORNE, XEROX 
TRS-80 MOD I. TRS-80 MOD 
II. ATARI. APPLE, VECTOR. 
EXIDY. DYNABYTE, MICRO- 
SOFT CP/M®. CBM DOS 2.0, 
MICROPOLIS. SUPERBRAIN 

CP/M is a trademark ol Ognai Research 




Simple effective programs 
designed for your machine 
Step by step instructions, 
beneficial to the novice as 
well as to the more expe- 
rienced user, accompany 
every program 
The Source Code is provided 
with each program 
You will have a product 
you n be able to use from 
the day you receive it and 
as your company grows 
in size 

One phone ca|l will get 
you same week delivery 
Best of all our programs 
are interactive. 
THEY ALL WORK 
TOGETHER" 




f TRS - 80* MODEL III \ 

MODEL III DRIVE KITS 

TRS-80" MODEL III. Two Disk Drives. 48K. DOS S18M 

TRS-80 - MODEL III. 16K J 899 

INTERNAL DRIVE KITS 

DISK DRIVE 1 $679 

DISK DRIVE 2 I 279 

EXTERNAL DRIVES 

DISK DRIVE 3 (Includes Cable) * 359 

DISK DRIVE 4 S 329 

Fully Warranted for 90 days. 

EPSON PRINTERS 

MX - 70 $ 399 

MX - 80 $ 499 

MX - 80 / FT $ 599 

GRAFTRAX -80 $ 85 

Accessories and Interfaces CALL 

VISTA TRS-80" OISK DRIVE8 

V-80 40 Track Model 1 Drives $329.00 

Model 1 two Drive Cable $ 27.95 

Model 1 four Drive Cable $ 37.95 

Model 2 Disk Drives CALL 

TRS-80 is a Trademark ot Radio Shack. 

Circle number for complete price list. 



PROCESS CONTROL TECHNOLOGY *-<o8 

P. O. BOX 8825 

STOCKTON, CA 86208 

(209) 852-6576 



\ 



/ 





THE 

UNINTERRUPTIBLE 
POWER SUPPLY 



. . . that keeps your computer on 
when the power fails . . . 

Mayday protects the computer and disk system from power surges, sudden drops in 

voltage, or a complete disruption of power. 
Most problems operators or programmers have are caused by voltage or current interruptions of the computer 
There are 12 different Mayday UPS power supplies, one of which is specifically designed to handle your computer 
system from 50 watts up to over 600 watts. 

Protect your time and investment One power failure could well cost you the price of the Mayday. Prices start at 
S240 for the 150 watt system. (Line surge voltage regulator protection is available at additional cost). 
For more information, please call or write. 



from, 



• 151 




{fun JlebeaAcA, tfnc. 

Box 210 New Durham. NH 03855 
(603)859-7110 TWX 510-297-4444 



•See List ol Advertisers on page 402 
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cannot read memory above the 
first 16K of useable RAM. 

There is a short procedure to 
bring the system up for testing. 
With SW1 in the high RAM posi- 
tion, switch on the keyboard. 
The normal power on system 
response should be apparent. If 
there is no response, hit the 
Reset key. If there still is no cor- 
rect response, toggle SW1 and 
try again. If this fails in reset- 
ting the system, there is an er- 
ror In the chip-select circuit. 



Address 


Dat 


7000 


21 


7001 


00 


7002 


80 


7003 


01 


7004 


00 


7005 


00 


7006 


OA 


7007 


77 


7008 


23 


7000 


03 


700A 


3E 


700B 


10 


700C 


B8 


7000 


CA 


700E 


91 


700F 


40 


7010 


C3 


7011 


06 


7012 


70 



Table 1 



Once the circuit is functioning, 
the T-Bug program or some other 
monitor routine allowing the 
writing of a machine-language 
loop must be loaded. When the 
prompt appears, manually load 
the program listed in Table 1, 
using the M verb of T-Bug. This 
short machine loop does a 
block memory move. It copies 
the contents of ROM into the 
added 16K RAM. If you are not 
using memory address 8000- 
BFFF as your high RAM posi- 
tion, addresses 7001 and 7002 
of the program must be 
changed to reflect the starting 
address of the relocatable RAM 
(the least significant byte in ad- 
dress 7001 and the most signifi- 
cant byte in 7002). When the 
transfer is completed, control 
will pass back to T-Bug. Using 
the M verb again, examine loca- 
tions 8000 to BFFF randomly to 
determine if the transfer has 
been made. What should ap- 
pear is a copy of the ROM data 
starting at address 8000. Check 
this by comparing data at Oxyz 
to data at 8xyz. The data should 



be the same. In general, data at 
address Axyz should be the 
same as data at address Axyz + 
8000 for the range of 0-2. Once 
this has been verified, switch 
SW1 to the low RAM position. 
Your operating system is now 
in place. Again, with the M verb, 
try altering location 0000 in 
memory to 00(hex). If this 
works, you have verified that 
the RAM resident operating 
system has replaced the ROM. 
You now have the ability to 
alter the entire operating 
system. 

Here is a short example of 
what can be done with this new 
capability. With a Level 1 
machine, after running a pro- 
gram from T-Bug, once the 
machine loop hangs there is no 
way to return to the T-Bug. The 
only way to regain control of 
the system is to reset and 
reload the T-Bug tape. This can 
be changed by altering two 
locations of the operating 
system. Place the entry point of 
T-Bug at address 0010,0011. 
Press the Reset key and the 



TRS-80 reset jump address con- 
trol will return to T-Bug. Now if 
your machine program gets 
lost, you can Reset and return 
to T-Bug immediately. Any ad- 
dress may be placed at this 
restart location so control may 
be passed to a desired program 
with the Reset key. 

With a little imagination, and 
some machine-language or as- 
sembly program software abili- 
ty, you should find many uses 
for this modified operating 
system.! 



JUMPER 













I 14 


J 


I 


Z74 


] 


[ 




] 


5 f 




] 




[ 




1 


[ 




] 



Fig. 5. This jumper must be in- 
Stalled to enable the data in 
buffers for memory addresses 
above 7FFF (Hex.). 



Combine accurate flight characteristics with the best in animation graphics 
and you'll have SubLOQIC's 

T80-FS1 Flight Simulator 

forthe TRS-80 



SubLOGICsT80-FS1 is the smooth, realistic 
simulator that gives you a real-time, 3-D, 
o u t-o l-t he-cockpit view of flight. 

Thanks to fast animation and accurate repre- 
sentation of flight, the non-pilot can now learn 
basic flight control, including take-offs and 
landings! And experienced pilots will recog- 
nize how thoroughly they can explore the 
aircraft's characteristics. 

Once you've acquired flight proficiency, 
you can engage in the exciting British Ace 
3-D Aerial Battle Game included in the 
package. Destroy the enemy's fuel depot 
while evading enemy fighters 

Computer and aviation experts call the 
T80-FS1 a marvel of modern technology. 
You'll simply call it fantastic! 



Special Features: 

• 3 frame-per-second flicker free 
animation 

• Maximum transfer keyboard input 

• Constant feedback cassette loader 

Hardware Requirements: 

• Radio Shack TRS-80, Level 1 or 2 

• 16K memory 

• Nothing else! 

n.y ^ W 



Only 



See your dealer or order direct. For 
direct order, include $1.25 and specify 
UPS or first class mail. Illinois residents 
add 5% sales tax. Visa and Mastercard 
accepted. 




Communications Corp. 
Box V, Savoy, IL 61874 
(217)359-8482 
Telex: 206995 ^iso 
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EDAS is a sophisticated Editor 
and Assembler for TRS-80 I & III 

• All text may be input in upper or 
lower case. 

• Assemble directly from one or 
more disk files via *GET. 

• Assemble to disk or memory 

• Binary, octal, decimal, hex, and 
string constants; Multiple con- 
stants may be input on a single 
line. 

. CMDFILE utility included. 

• Conditional assembly support 

• Cross-Reference utility. 

. DOS functions DIR, FREE, KILL, 
and LIST are supported. 

• 14-character labels including 
special chars. "@", "$",".",'7". 

• Editor includes block move, 
global change, renumber, find. 

• EDTASM & M-80 source files 
can be read or written. 

• Expression evaluator supports 
+, -, \ /, MOD plus logical AND. 
OR. and XOR. 

• Paged A titled listings with page 
numbers and date/time. 

. PAGE, TITLE, SUBTTL, SPACE. 
& COM pseudo-ops supported. 

• Set memory size, page prompt, 
JCL execution, Abort option. 

• EDAS is supported with TRSDOS 
compatible DOSs (LDOS, VTOS). 

• Price is $79.00 + $4.00. S&H. 




MISOSYS MISOSYS MISOSYS MISOSYS MISOSYS 

£ LDOS, Version 5.1 is the Ultimate in Operating 1 

<0 Systems for the TRS-80 Models I and III. g 

§J MISOSYS is your East Coast Headquarters § 

5 for LDOS, the documented system! Version < 

Jj 5.1 is priced at $169.00 + $5.00 S&H per ^ 

> system. Deduct $50 if ordering both. 5 



LCDS 5.1 



SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW 

DSMBlR 

Complement your assembly language tools with this 
Z-80 disassembler which produces screen, printer, 
cassette, or disk file output A two pass process 
provides SYMBOLS for 1 6-bit address and 8-bit rel- 
ative references EQUatesA ORG are generated 
Read SYSTEM programs & display load address 
range. $20 (DSMBLR I for non-disk use is $15). 

EDAS CMDFILE DSMBLR Specify Mod I or III. Add 
$1 S&H+S.50 per program. VA residents add 4%. 




MISOSYS- Dept MU 3 

5904 Edgehill Drive, 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited .021 




Turn your Editor Assembler into 
a disk package. This 32K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL. & FREE. Upgrade your 
EDTASM! $20. 

THE B00KS 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is inc. 1 ud- 
ed. Volume II tells you every- 
thing you wanted to know about 
the level II I/O— printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKS will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $1 4.95 or buy both for $24.95. 
Add $1.50 S&H per book 
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•SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW SASOSIW 



PIIWI 



OFF!! 
OR MORE I 



Brand New, Top Quality, Exact Replacement Ribbons & Cartridges. These Ribbons Produce 

Super Jet Black Impressions and Ultra Reliable Print Life. They Are Delivered to Your Door 

Promptly for Much Less Than Most Retail Stores 

•SPECIAL! BUY 10 and GET ONE FREE! 



YOUR PRINTER 


•ACKSIZE 


RETAIL LIST" 


YOUR WHOLESALE PRICE 


SIZE 


COMMENTS 


CAT ORDER* 


MMKX tOOO Sarl*t 


l.pl 


14 00 M 


14.00 


(idOOes) 


500 


Nylon Jtl Blk 


t 777 


CENTRONICS 700-703, 737. 77» 


3/pk 


18 95/3 pi 


11 95/3 pk 


13 98 ea) 




Nylon Jtl Bfc 


C-700 


CENTRONICS 100. 101*. 102. 


3(* 


26 33/3 pk 


17 55/3 pk 


(5 85 ea) 




Nylon Jtl Bfc 


C 100 


103.300.301.306.308.330. 












6 mi Met Spttd 




3SI. 398. SOO. 501.503. SOS. 
















588. 820 620 
















CENTRONICS 704-705 


1 l* 


16 95 m 


13 95. Cum Can 


l'3 95 v.; 


5 16' ■ 210 


Cool Cart 


C-7045 


0EC 'A i 40YO 


3 (* 


17 77/3 pk 


12 95/3 pk 


(4 32 eal 


1 2 .120 


OouMo Spools 


R-6O0 


OEC 'A i 80Y0 


Jot 


2012/3 pt 


1*25/3 pk 


(4 25 ta) 


1 2 .180 


OauMa Spook 


R-644 


OU810 HTTm 1 (MS BLK) HI 


l/f* 


9 31 M 


687 t* 


16 87 ra) 


5 16 ■ 


300 000 phi anp 


C-Sll 


YK10 FITS 70 PRINTERS' 










H*» Y.kt 






EPSON MX70 80 


1 P* 


16 00 M 


139V Cart 


(13 95 eal 


500 .60 


Nylon Jd Bfc 


C-S22 


IBM - SR.VER DOLLAR Syi 


Spk 


5 80 t. 


1*90 5 pk 


i2 98 tat 


9 16 .30 


NykMi Jn Bfc 


R-300 


34. Sy» 32 MOU San« 
















IMD14S74. 5256. 3287. 3770 
















3771-377*. 487*. 5100. 5103 
















5110. 5228. 5258. 5320MXA 
















IBM - HARMONICA '/>" SEMES 


3/pt 


9 42 ta 


20 65 3 pk 


16 95 tt) 


12 .108 


Nylon Jf t Bfc 


C-350 


1 MOO 4973/11 3200. 3289 
















MOO 2 
















NIC SPINWRIJER 


«/* 


23 40/3 can 


23 60/4 pk rt reload 


15 90 eal 


1 2" .51' 


Nykm/EilitgliN 


R-400 


0UME (FITS 80 PRINTER MOOS) 


3/1* 


1600/3 pt 


13 95/3 pk 


14 65 eal 


1 4- . 310" 


MiiMtrii.8 Fta 


C-525 


RADU SHACK DAISY WHEEL It 


1 Pk 


24 95 3pk 


a. 26 


(8 25 ea) 




M>Ur Mullnlri*! 


C-769 


RAOn SMACK LPII. IPV 


Hltpt 


1395/cjrt 


8 95/RtloadrO'aMy 


(8 95 ea) 


SOO" .45' 


Nylon liid Inn 


R-T3 


RAON) SHACK LPII. LPIV 


3 pi 


16 95/3 pk 


1 1 95/3 pk 


13 98 ea) 


563 " 1 45' 


Nylon Jm 8fc 


1-700 


TELETYPE MOO 33 28. 35 37 
38. 88 

WANGM.S 55*1W WC. 5581 


I0.pt 


2 40 m 


139010 pk 


II 39 ea) 


1 2 . 36 


Nykon Jtl Bfc 


R-450 


'.'(* 


6 85 si 


5 95 ia 


15 95 ea) 


5 16 .393 


Mitkitnt* Fain 


C-SSO 


W0. 8581W 2281W 


















TERMS: 

MINIMUM PURCHASE - $20 
PAYMENT BY: C.O.D.(UPS), CHECK, 

MASTER CARD, OR VISA CHARGE 

CARD. 
VOLUME DISCOUNTS: 

20 - 50 PACKS 10% 

51-100 PACKS 15% 

•UNDER $20, ADO $5 HANDLING. 
"APPROX. RETAIL. PRrCE VARIES. 

ANCIE LABORATORIES -46i 

9204 l l n 1 1 *M 101 -MS 1000 |*m* OC LM*| 

bloat !>■*. MO 70700 »l-7»7 20M llafta HO [oc*i 

800-638-0987 (National) 



ADDRESS. 
CITY 



.STATE. 



ANCIE Laboratories 
9204 Baltimore Blvd. 
College Park, MD 20740 



301-345-6000 (Wash. DC. Local) 
301 -792-2060 (Ballo. MO Local) 

800-638-0987 (National) 



QTY 



CAT.» 



TOTAL 



□ Check Enclosed 
D C.O.D. 

□ VISA 

D MASTER CHARGE 

ACCT. # 

EXP. DATE 

MIN. ORDER $20 

PRICES SUBJECT TO CHANGE 



•See List of Advertisers on page 402 
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UTILITY 



Fifteen new commands for serious T-Bug aficionados. 



Newbug 



Ken Marks Jr. 
913 W. 62nd Street 
Downers Qrove, IL 60516 



Soon after I had Radio 
Shack's T-Bug, I realized 
that its nine commands did not 
provide enough programming 
power for the serious machine- 
code programmer. Mr. Curtis' ar- 
ticle "T-Bug for II" in the April 
1980 issue of 80 Microcomput- 
ing started me thinking that 
others may find my modifica- 
tions useful. Because I added 15 
new commands to T-Bug and for 
the sake of clarity in this article, 
I have named the new version 
NEWBUG. The following source 
code listing may be assembled 
using Radio Shack's Editor/ 
Assembler. 

NEWBUQ 

Once you have the object 
code of the NEWBUQ patch, 
simply load T-Bug II (the version 
of T-Bug modified with Mr. 
Curtis' enhancements), and 
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with the L command, load the 
patch. When the tape stops, the 
first difference you will notice 
is that the # prompt has 
become an * . This tells you that 
this is no longer T-Bug, but 
NEWBUG. Before you go any 
further, it would be wise to 
punch a copy of NEWBUG to 
tape. To do this, type P 4380 
4C5C 4762 NEWBUG. If you 
use the V command to verify 
the dump, you will get an error 
message. This is because the 
input buffer is written to tape 
also, and when you go to verify 
the dump, the contents of this 



buffer will have changed caus- 
ing the apparent error. You 
don't have to fully understand 
this, but there is usually no 
need to worry. If you are using 
T-Bug to enter the patch, type in 
the jump in line 27 of the listing 
last. This is the line that con- 
verts T-Bug into NEWBUG. If 
you type it in before the rest of 
the patch is in place, it will 
wreak havoc with the system. 

The following Is a short de- 
scription of some of the uses of 
the new commands. Keep in 
mind that these are only ex- 
amples and you should feel free 



to experiment with the com- 
mands where possible, but take 
care to heed any warnings 
given. 

Clear 

Occasionally the CRT screen 
gets cluttered up with al- 
phanumeric or graphic char- 
acters. This can happen while 
debugging programs which 
display data or text on the 
screen. One way to clear the 
screen is to jump to Basic by 
executing a J 0072, hit the Clear 
key, and jump back to T-Bug. 
There is now a quicker and 









Program Listing 








"NEWBUG 


" a patch to modify T-BUG 




ooooi 


. 


written 


by Ken Marks Jr. final copy 1/11/81 




00002 


1 








00003 


; 








0O004 


1 






43A3 


00003 


BACK2 


EQU 


43A3H 


43CD 


00006 


BACK 


EQU 


43CDH 


4401 


000O7 


NONE 


EQU 


4401 H 


4322 


oooos 


tXJTA 


EQU 


4522H 


4332 


OO0O9 


ASPC 


EQU 


4532H 


453C 


OOOIO 


CRS 


EQU 


453CH 


457B 


00011 


SPC 


EQU 


457BH 


4389 


00012 


INA 


EQU 


4589H 

Program continues 



Program continued 












45A7 




00013 


L8T 


EOU 


4SA7H 




4SC8 




00014 


INKY 


EQU 


45C8H 




4762 




00013 


NENBUG 


EQU 


4762H 




4823 




00O16 


REGS 


EQU 


4825H 




482D 




00017 


FLAG 


EQU 


482DH 




4B3D 




00018 


CURSR 


EQU 


483DH 




43DE 




00019 




OR6 


43DEH 


; ADDRESS OF < "T 


430E 


2A 


OO02O 




DEFB 


2AH 


(CHANGE TO S 


4782 




00021 




ORG 


4782H 




4782 


C28D48 


00022 




JP 


NZ, CLEAR 


; INSERT JUHP TO PATCH 


4831 




00023 




ORG 


4831H 


j START OF PATCH 


4831 


09 


00024 


HLIN 


EXX 




;THIS SUBROUTINE 


4832 


CD8943 


O0O23 




CALL 


INA 


; LOADS THE HL 


4833 


D9 


00026 




EXX 




(REGISTER WITH 


4836 


67 


0O027 




LD 


H,A 


;AN INPUT FROM 


4837 


D9 


00028 




EXX 




;THE KEYBOARD 


4838 


CD8945 


0O029 




CALL 


INA 




483B 


D9 


00030 




EXX 






48SC 


6F 


00031 




LD 


L,A 




48SD 


C9 


00032 




RET 






485E 


C5 


0OO33 


HLOUT 


PUSH 


BC 


(THIS SUBROUTINE 


483F 


7C 


00034 




LD 


A,H 


j OUTPUTS THE 


4860 


C06C48 


O0O33 




CALL 


OUT 


; CONTENTS OF 


4863 


7D 


00036 




LD 


A f L 


j THE HL REGISTER 


4864 


CD6C48 


0O037 




CALL 


OUT 


|ti A SPACE 


4867 


CD7B45 


0OO38 




CALL 


SPC 


|AT THE CURRENT 


486A 


CI 


00039 




POP 


BC 


(CURSOR POSITION 


486B 


C9 


0O04O 




RET 






486C 


47 


0O041 


OUT 


LD 


B,A 


(THIS SUBROUTINE 


486D 


CB3F 


00042 




SRL 


A 


(OUTPUTS THE 


486F 


CB3F 


00043 




SRL 


A 


(CONTENTS OF THE 


4871 


CB3F 


00044 




SRL 


A 


(A REGISTER 


4873 


CB3F 


00045 




SRL 


A 


(AT THE CURRENT 


4873 


D9 


00046 




EXX 




(CURSOR PQSXT ON 


4876 


CD2245 


OO047 




CALL 


OUTA 




4879 


D9 


0O048 




EXX 






487A 


78 


O0O49 




LD 


A,B 




487B 


E60F 


00O5O 




AND 


OFH 




487D 


D9 


00051 




EXX 






487E 


CD2245 


00032 




CALL 


OUTA 




4881 


D9 


00033 




EXX 






4882 


C9 


00054 




RET 






4883 


DF 


0OO55 


ERR 


RST 


18H 


(COMPARE START AND END 


4884 


D8 


00056 




RET 


C 


{RETURN IF ALL OKAY 


4885 


2A3D48 


00O37 




LD 


HL, (CURSR) 


(ELSE GET CURSOR POS. 


4888 


3643 


00058 




LD 


(HL),*E* 


(OUTPUT AN "E" 


488A 


C3AS43 


00059 




JP 


BACK2 


(AND ABORT 


488D 


FE63 


00060 


CLEAR 


CP 


63H 


(CHECK FOR < CLEAR > 


488F 


200A 


00061 




JR 


NZ.ARITHM 


(GO IF NOT PRESSED 


4891 


AF 


00062 




XOR 


A 


(CLEAR A 

Program continues 



neater approach. The Clear key 
works just as it did in Basic, 
clearing the full screen and 
returning the * prompt to the 
upper left-hand corner. 

Hexadecimal Arithmetic 

Have you ever wanted to 
calculate an absolute address 
from a jump relative displace- 
ment value? Have you ever 
found the need to add or sub- 
tract two hex numbers for one 
reason or another? Well, my 
hexadecimal math has never 
been great, and the fact that 
even slight mathematical er- 
rors are enough to "bomb" a 
machine-code program should 
point out the usefulness of this 
command. It has saved me 
much needless grief. Type A 
(for arithmetic) followed by any 
four digit hexadecimal number. 
Now specify either addition or 
subtraction by typing + or - . 
You must now give the com- 
puter a number to be added to 
or subtracted from the first, so 
enter a second four digit 
number. An = and the resulting 
hex value will be displayed. 

Selective Block Change 

While working on a program, 
I found the need for a quick way 
to search for all the occur- 
rences of a particular byte and 
then change them to another 
value in a specified block of 
memory. So, out of necessity 
rose the block change corn- 



PR0FBS8I0HAI. MATJUHO 
LtST PROGRAMS 



3 LUTE LABEL OPTIONAL 4TH LINE OR 
UNPRINTED LINE FOR SEARCH CODES. TABULAR 
PRINTOUT. SEARCH AND PRINT ON SCREEN OR PROCT- 
ER SORT 600 NAMES ffl ZIP OR ALPHANUMERIC 
ORDER IN 10 SECONDS, DELETE DUPLICATES, MERGE 
FILES AND MORE S7SJX) 

KAXLBOOlf FLUB A U. THE FEATURES OF PAST- 
MAIL INCLUDING THE OPTIONAL 4TH IJNE SEPA- 
RATE LINES FOR PHONE. ALPHA-NUMERIC SORT 
CODE AND 8EARCH CODES $78.00 

nuxMtuce to mamituulxm nun mil 



MERGE DISKS OF NEW. MDCED NAMES INTO 
YOUR MASTER DISK, SORT AND DELETE DUPLI- 
CATES •M.OO 



'-TAKE FILES WHICH HAVE BECOME TOO 
LARGE AND 8PLIT THEM AT THE POINT OF YOUR 
CHOICE 1*8.00 

FILS- PRINT OUT NUMBER OF NAMES IN EACH 
FILE (88.00 

MBx/CTUT/nufr Bnmimi uriuoui 

tlM.OO 



■LCOMB 

THE PERIPHERAL PEOPLE ^576 

P.O. BOX 21 123 

StATRF, WA981II 
206-632-8*49 




SFINKS1.81 

MICROCOMPUTER 

CHESS 



SRNKS was recently challenged by the best pro- 
yams available for the TRS80* microcomputer 
to a Canadian Round Robin 
THE RESULT: 

SRNKS riddled MYCHESS. SARGON D and 
GAMB1ET 80 to finish in a be for 1st place 
SHNKS features an audio alert, a problem mode, 
superb graphics, and nine levels of play Play chess 
with the best for less' 

32KModelITRS-80* 

cassette or disk only 29.95' 



WILLIAM A. FINK 

P.O. BOX 5912 
Lighthouse Point. FL 33064 

Deoler Inquiries 
Wekome 

'Tn6cmnVoi 
T»ndy Company 
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ACCOUNTS RECEIVABLE 
cV SALES ANALYSIS 

* 1300 Customers 

* 1300 Sales/Payments 

* 99 Departments 

* Alphabetical Listings 

* Selective Late Charges 

* 30-60-90 Day Aging 

* Mailing Labels 

* Sales Analysis by Dept. 

* Rapid Entry & Operation 
REQUIRES 48K MOD III 

2 DRIVES 

$150.00 -<05 

JERRY MEDUN & ASSOCIATES 
310 SOUTH JEFFERSON ST. 
NAPA, CALIFORNIA 94559 
(707)255-4475 



D 
□ 
□ 
□ 

□ 

a 
a 
□ 
□ 
□ 

D 

a 

D 

□ 

D 
D 
□ 



-See List ot Advertisers on page 402 



jnannnaDannDDD 

■ J Microcomputing, November 1981 • 389 



Program continued 










4892 


322240 


0OO63 


LD 


<4022H),A 


j TURN CURSOR OFF 


4895 


CDC901 


00064 


CALL 


1C9H 


; CLEAR SCREEN 


4898 


C3CD43 


00065 


JP 


BACK 


J AND RETURN 


489B 


FE41 


00066 ARITHM 


CP 


'A* 


; CHECK FOR "A" 


489D 


203A 


00067 


JR 


NZ, CHANGE 


;G0 IF NOT PRESSED 


489F 


CD3245 


00068 


CALL 


ASPC 


; OUTPUT (A) + SPACE 


48A2 


CDS 148 


00069 


CALL 


HLIN 


;GET 1st OPERAND 


48A5 


ES 


00070 


PUSH 


HL 


{SAVE IT 


48A6 


CD7B45 


00071 


CALL 


SPC 


{SPACE 


48A9 


CDC84S 


00072 Bl 


CALL 


INKY 


;LOAD A FROM KEYBOARD 


48AC 


FE2B 


00073 


CP 


'+' 


; ADDITION? 


48AE 


2806 


00074 


JR 


Z,B2 




48B0 


FE3D 


0OO75 


CP 


»=' 


» SUBTRACT I ON? 


4BB2 


20F5 


00076 


JR 


NZ,B1 


;N0. TRY AGAIN 


48B4 


D610 


00077 


SUB 


lOH 


j CORRECT TO "-" 


48B6 


F5 


00078 B2 


PUSH 


AF 


(SAVE OPERATOR 


48B7 


CD3245 


00079 


CALL 


ASPC 


; OUTPUT (A) ♦ SPACE 


48BA 


CDS 148 


0O080 


CALL 


HLIN 


;GET 2nd OPERAND 


48BD 


E5 


00081 


PUSH 


HL 


{SAVE IT 


48BE 


CD7B45 


00082 


CALL 


SPC 


1 SPACE 


48C1 


3E3D 


00083 


LD 


A,'-' 




48C3 


CD3245 


00084 


CALL 


ASPC 


j OUTPUT "=" + SPACE 


48C6 


Dl 


0OO85 


POP 


DE 


;POP OPERAND #2 


48C7 


Fl 


00086 


POP 


AF 


;POP OPERATOR 


48C8 


El 


00087 


POP 


HL 


;POP OPERAND *1 


48C9 


FE2B 


00088 


CP 


* +' 


;ADD? 


48CB 


2805 


00089 


JR 


Z,PLUS 


{GO IF <A>="+" 


48CD 


AF 


00090 


XOR 


A 


{CLEAR CARRY 


48CE 


ED52 


00091 


SBC 


HL,DE 


{AND SUBTRACT 


48D0 


1801 


00092 


JR 


B3 




48D2 


19 


00093 PLUS 


ADD 


HL,DE 


{ADD 


48D3 


CD5E48 


00094 B3 


CALL 


HLOUT 


{DISPLAY RESULT 


48D6 


C3A543 


00095 


JP 


BACK2 


{ RETURN 


48D9 


FE43 


00096 CHANGE 


CP 


'C* 


{CHECK FOR "C" 


48DB 


2042 


00097 


JR 


NZ, EXPAND 


{GO IF NOT PRESSED 


48DD 


CD3245 


00098 


CALL 


ASPC 


{OUTPUT (A) + SPACE 


48E0 


CDS 148 


00099 


CALL 


HLIN 


{GET START OF CHANGE 


48E3 


E5 


OOIOO 


PUSH 


HL 


{SAVE IT 


48E4 


CD7B45 


OOlOl 


CALL 


SPC 


{ SPACE 


48E7 


CD5148 


00102 


CALL 


HLIN 


{GET END OF CHANGE 


48EA 


E5 


00103 


PUSH 


HL 


{SAVE IT 


48EB 


CD7B45 


00104 


CALL 


SPC 


{SPACE 


48EE 


CD8945 


00105 


CALL 


INA 


{GET TARGET BYTE 


48F1 


F5 


00106 


PUSH 


AF 


{SAVE IT 


48F2 


CD7B45 


00107 


CALL 


SPC 


{SPACE 


48F5 


CD8945 


00108 


CALL 


INA 


{GET NEW BYTE 


48F8 


47 


00109 


LD 


B,A 


;NEW BYTE -> B 


48F9 


Fl 


00110 


POP 


AF 


{POP TARGET BYTE 


48FA 


El 


00111 


POP 


HL 


(POP END 


48FB 


Dl 


00112 


POP 


DE 


{POP START 


48FC 


F5 


OOH3 


PUSH 


AF 


{SAVE TARGET AGAIN 


48FD 


DF 


OOH4 


RST 


18H 


{CHECK FOR START >END 


48FE 


3009 


OOllS 


JR 


NC,B4 


{GO IF NOT 


4900 


2A3D48 


OOH6 


LD 


HL, (CURSR) 


{ELSE OUTPUT 


4903 


3645 


00117 


LD 


<HL),'E' 


{ "E M FOR ERROR 


4905 


Fl 


00118 


POP 


AF 


{RESTORE STACK 


4906 


C3A543 


00119 


JP 


BACK2 


{RETURN 


4909 


AF 


00120 B4 


XOR 


A 


{CLEAR CARRY 


490A 


ED52 


00121 


SBC 


HL,DE 


{COMPUTE COUNT 


490C 


E5 


00122 


PUSH 


HL 


{SAVE IT 


490D 


D5 


00123 


PUSH 


DE 


{PUSH ALL ONTO STACK 


490E 


C5 


00124 


PUSH 


BC 


;T0 SWITCH VALUES 


490F 


Dl 


00125 


POP 


DE 


(NEW BYTE -> D 


4910 


El 


00126 


POP 


HL 


{START -> HL 


4911 


CI 


00127 


POP 


BC 


{BYTE COUNT -> BC 


4912 


Fl 


00128 


POP 


AF 


{TARGET BYTE -> A 


4913 


03 


00129 


INC 


BC 


{CORRECT BYTE COUNT 


4914 


03 


00130 


INC 


BC 


{BY ADDING 2 


4915 


EDB1 


00131 LI 


CPIR 




{SEARCH FOR TARGET BYTE 


4917 


E2A543 


00132 


JP 


PO.BACK2 


{RETURN IF SEARCH OVER 


491A 


2B 


00133 


DEC 


HL 


{NOW HL POINTS TO TARGET 


491 B 


72 


00134 


LD 


<HL),D 


{CHANGE TARGET INTO NEW 


491C 


23 


00135 


INC 


HL 


{RESTORE TO NORMAL 


491D 


18F6 


00136 


JR 


LI 


{CONTINUE 'TILL DONE 


491F 


FE45 


00137 EXPAND 


CP 


'E' 


{CHECK FOR "E" 


4921 


2044 


00138 


JR 


NZ,HEXDMP 


{GO IF NOT PRESSED 


4923 


214049 


00139 


LD 


HL,MES 


{POINT TO MESSAGE 


4926 


CD5349 


00140 


CALL 


OUTHES 


{OUTPUT 


4929 


0608 


00141 


LD 


B,8 


{ (B) = BIT COUNT 


492B 


212D48 


00142 L2 


LD 


HL.FLAG 


{ADDRESS OF T-BUG FLAG 


492E 


3E30 


00143 


LD 


A.'O' 


{BIT (B) ASSUMED = 


4930 


CB06 


00144 


RLC 


(HL) 


{LEFTMOST BIT -> CARRY 


4932 


3001 


00145 


JR 


NC,B5 


{BRANCH IF BIT » 


4934 


3C 


00146 


INC 


A 


{NOW (A) IS ASCII "1" 

Program continues 



mand. As a quick and visible 
display of this command's 
operation, try the following ex- 
ample: type C followed by the 
starting and ending addresses 
of the block of memory you 
wish to change. For this 
demonstration, type 3C00 and 
3FFF. These are the starting 
and ending addresses of the 
video display memory. Choose 
the addresses carefully or you 
may find (the hard way) that 
writing over the vector restarts 
(immediately following the 
screen memory), the area of 
memory in which NEWBUG 
resides, or any other dedicated 
block of memory, can be hazar- 
dous to the well being of any 
program in memory. 

So far the command has 
done nothing. That is because 
we have not told it what byte to 
look for. Enter a two digit 
"target" byte followed by the 
byte that will replace it 
wherever it is found. For this ex- 
ample type 20 and BF. If you 
didn't follow what happened, 
the computer went searching 
through the video memory for 
all occurrences of 20 which is 
the ASCII code for a space and, 
upon finding them, changed 
each into BF which is the 
graphic code for all pixels 
(blocks) on. This is, of course, 
only an example and any values 
can be used, but take care in 
choosing safe values so that 
you don't "bomb" the system. 

Expand Flag Register 

The need to know the status 
of each individual flag bit in the 
flag register is important when 
debugging a program. The flag 
register can be displayed with 
the R command, but this is of 
little value unless you have 
memorized the position of each 
separate flag bit and have 
paper and pencil nearby to con- 
vert the hexadecimal digits into 
their binary equivalents. Press 
the R key and find the F 
register. Now press the E key. 
This will expand the register in- 
to its binary form. By compar- 
ing the hexadecimal output 
with its binary counterpart, you 
should find the command's 
operation quite reliable. 

Hex/ASCII Dump 

My need to display a full 
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| FIELD PROVEN!! 

§ 10 MEGABYTES and MORE for the TRS-80* Model II 

< plus SHARED ACCESS to HARD DISK DRIVE 

| Hard/Soft Disk System (HSOS) Software allows access as single drive. You can have that 10 Megabyte continuous file • that 50.000 name maillist or inventory" 

8 Or a directory with 1000 entries! All completely compatible with TRSOOS 2.0 BASIC. You can mix lloppy and hard disk drives. Includes special utilities including 

£ HPURGE. DCS Directory Catalog System, HZAP Hard Disk Superzap. and many special tormatting options. Three to eight times taster than tloppy! RACET quality 

2 HARD DISK DRIVE* CONTROLLER $5995. Second User $595. HSDS Software $400. (Note: HSDS now also available for CORVUS drives") 

^ KFS-80 ( 1 drive 3?K Min - Mod ll 64K) Mod I and III $100. Mod II $175 

^ Assembly language ISAM facility! Intertaces with BASIC. Very last access to records in large tiles. Access/insert times 1 -4 seconds. 

5 B-Tree directory structure eliminates record search No file reorganization required Sector buffering reduces media and drive wear while increasing performance. 

k Can be used for primary and secondary file database applications. Records are kept in sorted order on disk by alpha key. Deferred write option. Comprehensive 

k file maintenance and debugging utilities are included. Attention applications programmers - Save time in implementing your custom database application software 

o MAILLIST (1 drive 32K Min - Mod II 64K) Mod I and III $75, Mod II $150 

oc This ISAM -based maillist minimizes disk access times. Four keys — no separate sorting Supports 9-digit zip code and 3-digit state code Up to 30 attributes 

l Mask and query selection. Record access/update time 1 -4 seconds 11 

k DISCAT (32K 1 -drive Min) Mod I and III $50 

o This comprehensive Diskette Cataloguing/Indexing utility allows the user to keep track of thousands of programs in a categorized library Machine language program 

j- works with all TRSDOS and NEWDOS versions. Files include program names and extensions, program length, diskette numbers, front and back, and diskette 

tree space. RS23? drivers and other features 
£ LPSPOOL (32K1 -drive Min) Mod I $75 

I LPSPOOL — Add multi-tasking to permit concurrent printing while running your application program. The spooler and despooler obtain print jobs from queues 

S maintained by the system as print files are generated. LPSPOOL supports both parallel and serial printers. 

R BASIC LINK FACILITY 'BUNK' (Mod I Min 32K 1 -disk) Mod I $25; Mod II $50; Mod III $30 

1 Link from one BASIC program to another saving all variables! The new program can be smaller or larger than the original program in memory. The chained program 
h may either replace the original program, or can be merged by statement number. The statement number where the chained program execution is to begin mav 
S be specified! 

2 INFINITE BASIC (Mod I & Mod III Tape or Disk) Mod I $50; Mod III $60 

I Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 9 seconds" 

2 Select only functions you want to optimize memory usage. 

t INFINITE BUSINESS (Requires Infinite BASIC) Mod 1 1 III $30 

p Complete printer pagination controls — auto headers, footers, page numbers Packed decimal arithmetic — 127 digit accuracy +, - , *. / Binary search of 

^ sorted and unsorted arrays Hash codes. 

COMPROC (Mod I & Mod III — Disk only) Mod I $20; Mod III $30 

£ Command Processor. Auto your disk to perform any sequence of instructions that you can give from the keyboard. DIR. FREE, pause, wait for user input BASIC 

1 No. of FILES and MEM SIZE, RUN program, respond to input statements. BREAK, return to DOS. etc. Includes lowercase driver software, debounce and screenprint' 
j? GSF (Mod I & III Tape or Disk - Specify Memory Size) Mod I $25; Mod II $50; Mod III $30 

Generalized Subroutine Facilities The STANDARD against which all other sorts are compared! And then compare prices! Machine language — fast and powerful" 
£ Multi-key multi-variable and multi-key character string. Zero and move arrays. Mod II includes USR PEEKS and POKES. Includes sample programs. 

£ DSM (Mod I Min 32K 2-drive system. Mod II 64K 1 -drive. Mod III Min 32K 1 -drive) Mod I $75; Mod II $150; Mod III $90 

£ Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC command File. 

1 Execute from DOS Only operator action to sort is to change diskettes when requested! Handles multiple diskette files! Super fast sort times — improved disk I/O 
g times make this the fastest Disk Sort/Merge available on the TRS. 

| UTILITY PACKAGE (Mod II 64K) $150 

| Important enhancements to the Mod II. The file recovery capabilities alone will pay for the package in even one application! Fully documented in 124 page manual! 

£ XHIT, XGAT. XCOPY and SUPERZAP are used to reconstruct or recover data from bad diskettes! XCOPY provides multi-file copies, 'wild-card' mask select, 

g absolute sector mode and other features. SUPERZAP allows examine/change any sector on diskette including track-0. and absolute disk backup/copy with I/O 

< recovery. DCS builds consolidated directories from multiple diskettes into a single display or listing sorted by disk name or file name plus more. Change Disk 

I ID with DISKID. XCREATE preallocates files and sets 'LOF' to end to speed disk accesses. DEBUG!! adds single step, trace, subroutine calling, program looping 

w dynamic disassembly and more!! 

p BASIC CROSS REFERENCE UTILITY (Mod II 64K) $50 

^ SEEK and FIND functions for Variables. Line Numbers. Strings, Keywords. 'All' options available for line numbers and variables. Load from BASIC — Call with 

d "CTRL'R. Output to screen or printer! 

fc DEVELOPMENT PACKAGE (Mod II 64K) $125 

g Includes RACET machine language SUPERZAP, Apparat Disassembler, and Model II interface to the Microsoft 'Editor Assembler Plus' software package including 

( uploading services and patches for Disk I/O. Purchase price includes complete copy of Editor Assembler + and documentation for Mod I. Assemble directly 

w into memory. MACRO facility, save all or portions of source to disk, dynamic debug facility (ZBUG). extended editor commands. 

£ DEALER inquiries invited System Houses - check for special pricing on hard drives and software. 
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CHECK VISA M/C. C 0.0 . PURCHASE ORDER 
TELEPHONE ORDERS ACCEPTED (714) 997-4950 
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Program continued 














4935 


CD3245 


00147 


B5 


CALL 


ASPC 




j OUTPUT (A) + SPACE 


4938 


10F1 


00148 




DJNZ 


L2 




;CONTIUE FOR ALL BITS 


493A 


CD3C45 


00149 




CALL 


era 




j OUTPUT A C/R 


493D 


C3A543 


OO150 




JP 


BACK2 




j RETURN 


4940 


18 


OOISI 


HES 


DEFB 


18H 




{BACKSPACE 


4941 


53 


00152 




DEFM 


•8 Z - 


H - P 


N C jFLAG MESSAGE 


49SO 


0D2O 


00153 




DEFW 


200DH 




j C/R AND SPACE 


4952 


00 


00154 




DEFB 







;0 MARKS THE END 


4953 


ED4B3D48 


00155 


OUTMES 


LD 


BC, (CURSR) 


} OUTPUTS MESSAGE 


4957 


ED432040 


00156 




LD 


(4020H) 


,BC 


;AT CURRENT CURSOR 


495B 


CDA728 


00157 




CALL 


28A7H 




{POSITION USING 


495E 


ED4B2040 


00158 




LD 


BC, (4020H) 


j ROM OUTPUT 


4962 


ED433D48 


0O159 




LD 


(CURSR) 


,BC 


{ROUTINE 


4966 


C9 


00160 




RET 








4967 


FE48 


00161 


HEXDHP 


CP 


'H' 




{CHECK FOR "H" 


4969 


2066 


00162 




JR 


NZ.INITIA 


{GO IF NOT PRESSED 


496B 


CD3245 


00163 




CALL 


ASPC 




{OUTPUT (A) + SPACE 


496E 


CD5148 


00164 




CALL 


HLIN 




{GET START ADDRESS 


4971 


EB 


00165 




EX 


DE.HL 




(MOVE TO DE 


4972 


0E10 


00166 


HEXOUT 


LD 


C.IOH 




{LINE COUNT 


4974 


2A3D48 


00167 




LD 


HL, (CURSR) 


{GET T-BU6 CURSOR 


4977 


222040 


00168 




LD 


(4020H) 


,HL 


{PUT IN BASIC CURSOR 


497A 


EB 


00169 




EX 


DE.HL 




{SAVE DE 


497B 


3EOD 


00170 




LD 


A.ODH 




{ODH - C/R 


497D 


CD3300 


00171 




CALL 


33H 




{OUTPUT A C/R 


49BO 


EB 


00172 




EX 


DE,HL 




{RESTORE DE 


4981 


2A2040 


00173 




LD 


HL, (4020H) 


(BASIC'S CURSOR 


4984 


223D48 


00174 




LD 


(CURSR) 


,HL 


(BACK TO T-BU6*S 


4987 


62 


00175 




LD 


H,D 




(PUT DE INTO HL 


4988 


6B 


00176 




LD 


L.E 






4989 


CD5E48 


00177 




CALL 


HLOUT 




{OUTPUT MEM POINTER 


498C 


3E5E 


00178 




LD 


A.5EH 




(SEH = RIGHT ARROW 


498E 


CD3245 


00179 




CALL 


ASPC 




(OUTPUT ARROW 


4991 


D5 


00180 




PUSH 


DE 




(SAVE MEM POINTER 

Program continues 1 



page of 256 continuous bytes 
of memory in hexadecimal 
along with their associated 
ASCII symbols prompted this 
next command. If you type H 
(XXX) you will see the first 256 
bytes of ROM. Each line con- 
tains the starting address of 
that line followed by sixteen 
hexadecimal numbers grouped 
in twos. The ASCII symbols for 
these are printed to the right on 
each line. The cursor character 
is displayed in place of graphic 
and control characters. Press 
Enter to look at the next 256 
bytes of memory. You should 
now see the second page of 
ROM which starts at 0100. If 
you look in the ASCII section, 
you will notice the data for the 
Radio Shack Level II Basic 
message. Press 1 if you want to 
look line by line through 
memory instead. By pressing 
any key 1-9, that many more 
lines will be displayed. Press- 
ing 0, you will find, scans over 
the contents of the next 1024 
bytes of memory. The scan 
feature can come in handy for 
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TRISWATCH 

Keeps your TRS-80 Mod II 
up with the times. 

The Triswatch. formally known as the CCB-II. 
is a clock, calendar, and audio alarm rolled 
into one! 

■ For TRSDOS users, the CCB-ll eliminates 
the hassle of setting the time and date 
when you reset your Mod II. 

■ The P4T CP/M* 2 system date and time 
are synchronized to the CCB-II each time 
the system is" reset. 

■ The CCB-ll it directly accessible from any 
language that allows direct port input 
and output. 

■ A pacemaker battery is included, which 
provides over 8 years of continuous 
timekeeping. 

Keep up with the times and order 
the CCB-ll tor S1 75 plus shipping. 

^^TCKLFO TRS-80 is a trademark of Tandy Corp. 

I|J»_ — ' t. CP/M is a registered trademark of Digital Research Inc. 

C^ PICKLES & TROUT 

I ROU 1 • P O BOX 1206 GOLETA CA 931 16. (805) 685-464 1 

Warning: Installation requires opening the Model 1 1, which may void its warranty. 
We suggest waiting until the warranty period has expired before installing the CCB-II. 
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StatPacI IF YOUR TIME IS MONEY 




AND YOU NEED DETAILED STATISTICAL 
ANALYSIS . . . 



then you need StatPac 

Because with StatPac you won't need to sit at the com- 
puter for hours typing in each task. StatPac is uniquely 
designed to perform batch processing: You can specify 
several hundred tasks to be processed in a batch, then 
leave the computer alone to do the work. 

Your valuable time is free to do other work 

StatPac is available for Model I (requires NEWDOS) or 
Model III. 2 disk drives. 48K RAM and a lineprinter. Also 
available for other operating systems. 

StatPac handles all phases of research analysis including: 
frequency analysis, descriptive statistics, crosstabs & chi 
square, t-test. correlation & linear regression, analysis of 
variance, multiple linear regression and management 
reports. 

Buy the complete 3-disk package for $285 The extensive 
user's manual is included or may be purchased separately 
for $30 (the cost of the manual may beapplied tothecost of 
the disks at a later date). MasterCard and VISA accepted 
Entire package includes over 30 integrated programs. 

For more information and a free 16-page brochure write 
or call: 



612/866-9022 

Walonick Associates ^363 
5624 Girard Ave. So. 
Minneapolis, MN 55419 
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80 
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EASY 
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LOAD 80 



ELIMINATE HOURS OF 
TYPING AND 
AGGRAVATION 




In the April, 1981 issue of 80 Mic roc omputing , we 
introduced LOAD 80 to save you the time and trouble of 
typing our programs yourself. LOAD 80 cassette tapes 
contain dumps of the major program listings in 80 
Microcomputing . 

If you have not yet ordered any LOAD 80 tapes and 
wish you had, don't worry. We are now offering a "back 
issue" cassette program. You can order any LOAD 80 
cassette from April, 1981 to date for $9.95. Back issues 
of 80 Microcomputing are also available with the LOAD 
80 cassettes for $3.50. With the complete documenta- 
tion found in the companion magazine issue, you 
should have no difficulty loading any of 80's major 
programs. 
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QTY. 
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overseas, add $1 00 


S9.95 






80 Microcomputing 
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searching large sections of 
memory. To exit this command, 
press X. I will mention here that 
the X key can be used to exit 
most of the new commands. 

Initialize 

When you first load NEWBUG 
and get ready to start de- 
bugging, or whenever you wish 
to clear all the workable reg- 
isters, simply press I. This in- 
itializes NEWBUG by zeroing 
the register sets, both prime 
and non-prime, and the IX and I Y 
index registers. The stack 
pointer (SP) and program 
counter (PC) are not zeroed 
because this would have dis- 
astrous effects. To convince 
yourself that the registers are in 
fact cleared, press I and then R 
and observe for yourself. 

Block Checksum 

Checksums are useful for 
comparing blocks of memory 
and for other special cases 
when you need to know the sum 
of a block of memory. Most 
checksums add together the 
values of all the bytes in the 
specified block of memory and 
display only the least significant 
byte of the resulting checksum. 
For most cases this is fine, but 
there are times when the total 
value of the checksum is needed. 
Type K for checksum (C was al- 
ready used for the change com- 
mand) followed by the starting 
and ending addresses of the 
block of memory of which you 
wish to compute the checksum. 
The resulting eight digit hexa- 
decimal number is the com- 
puted checksum of the chosen 
block of memory. Because the 
checksum command is non-de- 
structive (that is, it doesn't 
change any memory locations), 
it can be used anywhere in RAM 
or ROM. In all commands deal- 
ing with a block of memory the 
starting and ending memory lo- 
cations are included in the op- 
eration and are said to be in- 
clusive commands. You may 
also notice that if the starting 
address is larger than the end- 
ing address, an E will be printed 
and the command will be 
aborted. This is because the 
commands are not capable of 
operating on imaginary blocks 
of memory which end before 
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Program 


continued 










4992 


0608 


00181 


LD 


B,8 


;F0R 8 PAIRS OF BYTES 


4994 


1A 


00182 L3 


LD 


A, <DE) 




4995 


67 


00183 


LD 


H,A 


;H=FIRST BYTE 


4996 


13 


00184 


INC 


DE 


; INC POINTER 


4997 


1A 


OOIBS 


LD 


A, <DE) 




4998 


6F 


00186 


LD 


L,A 


;L=SECOND BYTE 


4999 


13 


00187 


INC 


DE 


; INC POINTER 


499A 


CD5E48 


00188 


CALL 


HLOUT 


; OUTPUT A PAIR OF BYTES 


499D 


10F5 


00189 


DJNZ 


L3 


;CONTINUE 8 TINES 


499F 


Dl 


00190 


POP 


DE 


;BET MEN POINTER AGAIN 


49A0 


2A3D48 


00191 


LD 


HL, (CURSR) 


; CURSOR -> HL 


49A3 


0610 


00192 


LD 


B, lOH 


;FOR 16 CHARACTERS 


49A5 


1A 


00193 L4 


LD 


A, <DE) 


;GET CHAR 


49A6 


FE20 


00194 


CP 


• ' 


;TEST FOR LESS THAN 20H 


49A8 


3804 


00195 


JR 


C,B6 


; (CONTROL CHARACTER) 


49AA 


FE81 


00196 


CP 


81H 


{TEST FOR GRAPHIC CODE 


49AC 


3802 


00197 


JR 


C,B7 




49AE 


3E5F 


00198 B6 


LD 


A.5FH 


j SUBSTITUTE CHAR 


49B0 


77 


00199 B7 


LD 


<HL),A 


; STORE CHAR 


49B1 


23 


00200 


INC 


HL 


; INC SCREEN POINTER 


49B2 


13 


OO201 


INC 


DE 


;INC MEMORY POINTER 


49B3 


10F0 


00202 


DJNZ 


L4 


; CONTINUE FOR 16 CHARS 


49B5 


OD 


00203 


DEC 


C 


;DEC LINE COUNTER 


49B6 


20BC 


00204 


JR 


NZ, HEXOUT+2 


;G0 IF NOT DONE 


49B8 


D9 


00205 B8 


EXX 




;SAVE REGISTERS 


49B9 


CDC845 


00206 


CALL 


INKY 


;GET (A) FROM KEYBOARD 


49BC 


D9 


00207 


EXX 




; RESTORE REGS 


49BD 


FE58 


00208 


CP 


*X* 


; CHECK FOR EXIT 


49BF 


CA9148 


00209 


JP 


Z.CLEAR+4 


;CLS AND RETURN 


49C2 


FEOD 


OO210 


CP 


ODH 


; CHECK FOR C/R 


49C4 


28AC 


00211 


JR 


Z,HEXOUT 


| OUTPUT 16 MORE LINES 


49C6 


D630 


00212 


SUB 


30H 


; CORRECT ASCII 


49C8 


38EE 


00213 


JR 


C,B8 


; IF LESS THAN 1 


49CA 


FEOA 


00214 


CP 


OAH 




49CC 


30EA 


00215 


JR 


NC,B8 


J IF GREATER THAN 9 


49CE 


4F 


00216 


LD 


C,A 


; COUNT -> C 


49CF 


18A3 


00217 


JR 


HEXOUT+2 


;CONINUE 


49D1 


FE49 


00218 INITIA 


CP 


' I' 


; CHECK FOR "I" 


49D3 


200D 


00219 


JR 


NZ, CHKSUM 


;GO IF NOT PRESSED 


49D5 


212548 


OO220 


LD 


HL , REGS 


;<HL)=START OF REGISTERS 


49D8 


0614 


00221 


LD 


B,14H 


{BYTE COUNT -> B 


49DA 


3600 


00222 L5 


LD 


(HL) ,0 


;ZERO A REGISTER 


49DC 


23 


00223 


INC 


HL 


{POINT TO NEXT 


49DD 


10FB 


00224 


DJNZ 


L5 


{ CONTINUE 'TILL DONE 


49DF 


C39148 


00225 


JP 


CLEAR+4 


| CLEAR SCREEN St RETURN 


49E2 


FE4B 


00226 CHKSUM 


CP 


'K' 


; CHECK FOR "K" 


49E4 


203C 


00227 


JR 


NZ.NPUT 


j GO IF NOT PRESSED 


49E6 


CD3245 


0O228 


CALL 


ASPC 


; OUTPUT (A) + SPACE 


49E9 


CDS 148 


00229 


CALL 


HLIN 


{GET START OF CHECKSUM 


49EC 


E5 


OO230 


PUSH 


HL 


{SAVE START ADDRESS 


49ED 


CD7B45 


00231 


CALL 


SPC 


; OUTPUT SPACE 


49F0 


CDS 148 


00232 


CALL 


HLIN 


;6ET END ADDRESS 


49F3 


E5 


0O233 


PUSH 


HL 


;SAVE END 


49F4 


CD7B45 


00234 


CALL 


SPC 


; OUTPUT SPACE 


49F7 


Dl 


00235 


POP 


DE 


;GET END 


49F8 


13 


00236 


INC 


DE 


; CORRECT FOR COUNT 


49F9 


El 


00237 


POP 


HL 


;6ET START 


49FA 


CD8348 


00238 


CALL 


ERR 


; CHECK FOR START >END 


49FD 


D9 


00239 


EXX 




} SWITCH REGS 


49FE 


210000 


OO240 


LD 


HL,0 


{CLEAR LSB OF CHECKSUM 


4A01 


E5 


00241 


PUSH 


HL 




4A02 


Dl 


00242 


POP 


DE 


; CLEAR MSB OF CHECKSUB 


4A03 


E5 


00243 


PUSH 


HL 




4A04 


CI 


00244 


POP 


BC 


; CLEAR BC 


4A05 


D9 


00245 


EXX 




{SWITCH REGS 


4A06 


7E 


00246 B9 


LD 


A, (HL) 


;GET BYTE 


4A07 


D9 


00247 


EXX 




;SWITCH REGS 


4A08 


4F 


00248 


LD 


C,A 


{BYTE INTO BC 


4A09 


09 


00249 


ADD 


HL f BC 


{ADD TO CHECKSUM 


4AOA 


3001 


00250 


JR 


NC,B10 


{JUMP IF NO CARRY 


4A0C 


13 


00251 


INC 


DE 


{ INC MSB OF CHECKSUM 


4AOD 


D9 


00252 BIO 


EXX 




{SWITCH REGS 


4A0E 


23 


00253 


INC 


HL 


{ INC POINTER 


4AOF 


OF 


00254 


RST 


18H 


{CHECK IF DONE 


4A10 


38F4 


00255 


JR 


C,B9 


{CONTINUE 


4A12 


D9 


00256 


EXX 




{SWITCH REGS 


4A13 


EB 


00257 


EX 


DE.HL 


{PUT MSB IN HL 


4A14 


CD5E48 


00258 


CALL 


HLOUT 


{OUTPUT IT 


4A17 


213D48 


00259 


LD 


HL, CURSR 


{GET CURSOR 


4A1A 


35 


00260 


DEC 


(HL) 


{REMOVE SPACE 


4A1B 


EB 


00261 


EX 


DE.HL 


{GET LSB IN HL 


4A1C 


CD5E48 


00262 


CALL 


HLOUT 


{OUTPUT IT • 


4A1F 


C3A543 


00263 


JP 


BACK2 


{RETURN 

Program continues 



80'' SHROUDS 




essionally 
module of 



molded 



Other Models 

# LNW DEMI-CASE..S32 .50 

# LNW SHROUD $27.50 

* "SO" SHROUD $24.50 

Add $2.50 shipping & handling 
N.Y.S. residents add 7% sales tax 

^358 

SYRACUSE R&D CENTER 

Box 125, Dewitt, N.Y. 13214 
" Specializing In Electronic Packaging" 




• 80 



»0 a».tis 

# •■- ScrMn. Kill' 
SWr. WVMU 
I Mil: MS (77 M7» 



AUTHORIZED SOUTH EASTERN REGION SERVICE 
CENTER FOR A.M. ELECTRONICS 




On* Year Warranty on Partac t Taac Drivai 



• OK I DriM Kll AMI UOOO 



1 DISK PERTEC FLIPPY 

2 DISK TEAC 



■*" BARE DRIVES 

m tk P«n»: nipn n» m 

i Km oo r i« r«c 

Wf COMPLETE DRIVES 



IHM.00 

rrs x 



EPSON PRINTERS SCAll 



22 



Bo" FLOPPY DRIVE REPAIR 

135 Flat Ra'f plus Paris 

OPEN 3 9 pm (EST) HON— PRI 
Tochnklon ovoilabl. altar S PM. 



Call wi * lift an aroar. Wi hava a cannactien - 
( MS) aa «M tar yaw uu 



Bayesian 

Investment 

Services 

Send for free catalog 
discussing TRS-80 
programs available for 
evaluating: 

Options & Futures 

Stocks & Bonds 

Convertible 

& Other Hedges 

Portfolio Position 

Tax Positions 

Market Timing 

Write or call: 

Bayesian ^ 

Investment 
Services 

Dept. H3 

757 Santa Rosita 

Solana Beach, CA 92075 

(714)755-6225 



MAKE •*$$$ 
**$ MONEY 

Selling 80 Microcomputing, the only major journal for the users of the 
TRS-80*, is a sure bet for getting the computer enthusiast into your 
store. Once through the door you can sell him anything. 

We know "80" will make you money . . . it's the only magazine for the 
TRS-80 • users and you know how many of those there are. So call today 
and join the dealers who make money with "80". 

For information on selling 80 Microcomputing, call 603-924-7296 and 
speak with Ginnie Boudrieau, our Bulk Sales Manager. Or write to her 
at 80 Microcomputing, Pine Street, Peterborough, NH 03458. 



"TRS-80 is a trademark of the Tandy Corp. 



p'See List ol Advertisers on page 402 
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Program continued 










4A22 FE4E 


00264 NPUT 


CP 


'N* 


; CHECK IF "N" 


4A24 2054 


00265 


JR 


NZ, OUTPT 


;60 IF NOT PRESSED 


4A26 C03245 


00266 


CALL 


ASPC 


; OUTPUT (A) + SPACE 


4A29 CDS 148 


00267 


CALL 


HLIN 


|GET START OF INPUT 


4A2C EB 


00268 


EX 


DE.HL 


j START -> DE 


4A2D CD7B4S 


00269 


CALL 


SPC 


; SPACE 


4A30 21SE4C 


00270 


LD 


HL,END+1 


j LOWEST ALLOWED -> HL 


4A33 CD8348 


00271 


CALL 


ERR 


; CHECK IF START IS LOW 


4A36 EB 


00272 


EX 


DE,HL 


jDE < — > HL 


4A37 CD9302 


00273 


CALL 


293H 


{READ LEADER 


4A3A 0608 


00274 


LD 


B,8 


{COUNT -> B 


4A3C CD684A 


00275 


CALL 


BLOK 


; INPUT (B) BYTES 


4A3F FE3C 


00276 L7 


CP 


3CH 


;DATA HEADER? 


4A41 2014 


00277 


JR 


NZ, ENTRY 


j NO. MUST BE ENTRY PT. 


4A43 CD2C02 


00278 


CALL 


22CH 


jFLIP/FLOP "»" 


4A46 CD3S02 


00279 


CALL 


235H 


;READ BYTE 


4A49 77 


00280 


LD 


<HL>,A 


{STORE IT 


4A4A 23 


00281 


INC 


HL 




4A4B 47 


00282 


LD 


B,A 


;LOAD B WITH COUNT 


4A4C CD684A 


00283 


CALL 


BLOK 


;READ IN (B) BYTES 


4A4F CD704A 


00284 


CALL 


IN2 


;6ET 2 MORE 


4A52 CD704A 


00285 


CALL 


IN2 


;AND ANOTHER 2 


4 ASS 18E8 


00286 


JR 


L7 


{CONTINUE LOADING 


4A57 CD704A 


00287 ENTRY 


CALL 


IN2 


{GET ENTRY POINT 


4A5A 2B 


00288 


DEC 


HL 


;HL = END OF INPUT 


4ASB EB 


00289 


EX 


DE.HL 


{SAVE HL 


4A5C 3E2D 


00290 


LD 


A,'-' 




4A5E CD324S 


00291 


CALL 


ASPC 


{OUTPUT "-" + SPACE 


4A61 EB 


00292 


EX 


DE,HL 


{6ET END AGAIN 


4A62 CDSE48 


00293 


CALL 


HLOUT 


{OUTPUT END ADDRESS 


4A65 C3A543 


00294 


JP 


BACK2 


{ RETURN 


4A68 CD3502 


00295 BLOK 


CALL 


235H 


{SUBROUTINE TO INPUT 


4A6B 77 


00296 


LD 


(HL),A 


{ (B) BYTES FROM TAPE 


4A6C 23 


00297 


INC 


HL 


{AND STORE AT (HL> 


4A6D 10F9 


00298 


OJNZ 


BLOK 




4A6F C9 


00299 


RET 






4A70 EB 


00300 IN2 


EX 


DE.HL 


{SUBROUTINE TO INPUT 


4A71 CD 1403 


00301 


CALL 


314H 


{2 BYTES AND 


4A74 EB 


00302 


EX 


DE.HL 


{STORE IN (HL) 


4A75 73 


00303 


LD 


(HL),E 




4A76 23 


00304 


INC 


HL 




4A77 72 


00305 


LD 


(HL) ,D 




4A78 23 


00306 


INC 


HL 




4A79 C9 


00307 


RET 






4A7A FE4F 


00308 OUTPT 


CP 


'0' 


{CHECK FOR "O" 


4A7C 2025 


00309 


JR 


NZ,QUE 


{GO IF NOT PRESSED 


4A7E CD3245 


00310 


CALL 


ASPC 


{OUTPUT <A> + SPACE 


4A81 CD5148 


00311 


CALL 


HLIN 


{GET START OF OUTPUT 


4A84 E5 


00312 


PUSH 


HL 


{SAVE IT 


4A85 CD7B45 


00313 


CALL 


SPC 


{SPACE 


4A88 CDS 148 


00314 


CALL 


HLIN 


{GET END OF OUTPUT 

Program continues 



they start. 
Tap* Input 

If you look at the source code 
listing of the NEWBUG patch, 
you will see that the code for 
the patch loads into three sep- 
arate blocks of memory start- 
ing at 43DE, 4782, and 4851. 
Because the patch is non-con- 
tinuous, it cannot be punched 
to tape to make a backup copy 
with the P command. The input 
command will read in any 
system formatted machine- 
code program and store a byte- 
for-byte image of the taped pro- 
gram in a memory buffer which 
you select. If you have assem- 
bled NEWBUG with an editor/ 
assembler and have the tape 
with the object code nearby, 
load the tape and type N 5000. 
The cassette drive should start, 
the tape should be read in. and 
the * should blink as usual. 
When the program is finished 
loading, the ending byte of the 
input buffer is displayed. Save 
the starting and ending ad- 
dresses for use with the next 
command. You may examine 
the contents of the buffer with 
the H command if you wish. 

Tape Output 

Until now, the input com- 
mand may seem to be of little 
use because the program 
stored in the buffer cannot be 
correctly copied to tape with 
the P command. Well, that's 
what the output command is 




Tired 
week? 



GET THIS ONE FOR THE COOK! 

of the same old meals week after 



Want to exercise some control over the 
cook? 

BREAK OUT OF YOUR GASTRONOMIC 

RUT!!! 
MAIN COURSE PLANNER provides 
self adaptive scheduling of your favorite 
meals. It won't make you a gourmet, but 
its use can increase your eating enjoyment. 

Buy The MAIN COURSE PLANNER Now. 

THE COOK WILL LOVE ITM 

TRS-80* 16K MODEL I LEVEL II TAPE 

SEND $9.95 TO: 
SCDC, 223 Cedar Heights Drive, 
Thousand Oaks, CA 91360 

California Residents Please Add 6% Tax 
'Trademark of Tandy Corporation ^589 



JOE COMPUTER PRESENTS WORD GRINDER 

80,000 

WORDSI 



WORD GRINDER IS A DATA BASE OF OVER 
80.000 ENGLISH WORDS IN ALPHABETICAL 
ORDER WITH SPACES DELIMITING EACH 
WORD. THE TRS-80t AND APPLE VERSIONS 
INCLUDE A BASIC EDITOR FOR DISPLAYING 
OR EDITING THE DATA FILES USING RAN- 
DOM ACCESS. WORD GRINDER IS AVAIL- 
ABLE FOR TRS-80 MODEL I. II, OR III, APPLE. 
CP/M. RT-1 1 /HT-1 1 OR ANSI TAPES PRODUC- 
ED ON A PDP-1 1. PRICES START AT $89.95 
FOR MODEL I. Ill OR APPLE. $124.95 FOR 
MODEL II. CP/M, RT- 1 1 OR ANSI TAPES 
MAKE CHECKS PAYABLE TO: 
JOE COMPUTER - PHONE ORDERS AND 
INFORMATION: |2I3| 992-0514 SEND TO: 
JOE COMPUTER. 22713 VENTURA BLVD.. 
SUITE F. WOODLAND HILLS. CA. 91364 

s 193 
CALIF RESIDENTS ADD fr/SALES TAX 
jTRS-80 IS A TRADEMARK OF TANDY CORP. 



►^100 



CdmpuCdueey 

COVER YOUR INVESTMENT 



•C<om Backto Nauoviy 
•lmp'Ov«dft«iiatMiiif 
•Longer Liie 




KtYbO«rt 
CmhM. . 

P*C**Qt 0"* 

1RSM 5'. ,0*k 



l> 4 M 
HIM 



Ow 200 covers, write tor complete list. 



Sma i"m or msnii »<aa< la 



OEALEN INQUIRES IKVITtO 



COdPuCffJtf! 

f O Bo. 32* .OttOt A. 
M»i> Es!"» fL 3«6« 
P«on« i KM' 24J-5793 
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Expensive 




EXPENSIVE - The LNW 
System Expansion II comes with a 
full 32K of 200ns RAM, and built-in 
RS232c 20 MA current loop serial interface. 
That's for starters. Next, consider our heavy gauge 
steel case, power indicator lamp, gold-plated 
connectors, FR-4 glass epoxy circuit board with 
solder mask and silk screen legends. Then there is 
the parallel printer port, screen printer port, real 
time clock, and extra heavy duty onboard power 
supply with over current protection, over voltage 
protection and thermal shutdown. If that's not 
enough then there is the floppy disk controller, 
guaranteed operation at a 4MHz CPU speed and 
our 6 month warranty. Every one of these features 
is STANDARD. This is true system expansion. 
You get every 'expensive' feature without 
spending more. 

CHEAP - Our price is $399.95. Any way you 
compare, features or price, LNW's System 
Expansion II is the clear winner. The LNW 
System has been field tested for over two years 
with thousands of users. It works with any DOS, is 
100'* TRS-80 Model I compatible and it works 
'right out of the box'. If there is any doubt in your 
mind as to whether you should buy ours or the 
'other guys', just ask an LNW owner! 

WE ARE #/ - Number one in price, features, 
reliability, performance and delivery. LNW is 
committed to 'expensive' features and quality at 
reasonable prices. LNW is committed to support, 
thorough documentation, and reliability. 

LNW Research Corp 

2620 WALNUT Tustin, CA. 92680 
(714)641-8850 (714)544-5744 



made us the number one 
manufacturer of system expansion units 

and accessories for the Model I computer. 

EXPANSION OPTION - 8 inch drive capability 
is as easy as plugging in the LNDoubler r>/8 
option*. Now you can have any combination of 
single- or double-density, single- or double-sided, 
8"* and/or 5" disks on-line! 8-inch disk storage 
increased to 591,360 bytes 77-track single-sided, 
double-density or 1,182,720 bytes - 77-track 
double-density, double-sided. 

The LN Doubter's unique 5/8 switch allows you 
to boot from 5- or 8-inch system disks and it's 
accessible from outside the interface. The $219.95 
LNDoubler 5/8 comes with a double density disk 
operating system (DOS + 3.3.9). complete with 
BASIC and utility programs... ready to run your 
software. 

Each of your present 40-track, single-sided 5-inch 
drives will store up to 184,320 bytes (formatted 
storage) - that's an 80% increase in storage 
capacity for only half the cost of just one disk 
drive. With three 8-inch double-density, 
double-sided drives your Model I will have 3.75 
Megabytes of online storage - that's more storage 
than a Model II or Model III! 




'H" drive operation requi 

double-dennitv require* ».; 

mudilicalion ur'l.NW-MI 1MH/ 



es special pftble. K" 
•>MH/ Ci'l' speed up 
ompuler 



THS «' i- II IMil.in.irk ..I l.iml\ I '•>ri»-r.il i 



for. Position the tape to where 
you wish to dump a backup 
copy, press the record and play 
buttons, and type O followed by 
the starting and ending ad- 
dresses you should have saved 
from the last command. The 
tape will start rolling and a 
copy of the original program 
will be written to tape. If you 
want to make another copy of 
the program, just use the out- 
put command again using the 
same addresses. Unless you 
wipe out the copy of the pro- 
gram in the buffer, there is no 
need to load it for each copy 
you make. If you try to input 
into a buffer less than 4C5C, 
the computer will respond with 
an E. This is to protect 
NEWBUG from being written 
over accidentally. 

Cue Tape 

While positioning tapes for 
reading or writing, the small 
grey remote plug on the cas- 
sette recorder is constantly be- 
ing pulled out. This leads to bent 
and worn out plugs. In an effort 
to save the plug, the Q com- 
mand transfers control of the 
cassette to you. Control will be 
returned to the computer when 
you hit the X key. 

Block Search 

Some machine-code mon- 
itors have commands to search 
for occurrences of one or two 
bytes. I found the need to search 
for a string of three or more 
bytes at a time, so the variable 
length block search command 
became part of NEWBUG's 
menu of commands. 

Suppose we wanted to know 
from where in ROM the sub- 
routine for clearing the screen 
(located at 01 C9) was called. To 
do this, we have to search loca- 
tions 0000 to 3000 (the block of 
memory containing the ROM) 
for occurrences of CD C9 01 
which is the machine code for 
the instruction call 01C9. Type 
S 0000 3000 CD C9 01 and press 
Enter. The addresses are found 
and displayed eight to a line. 
Go ahead and use the M com- 
mand to verify that the code is 
actually at these addresses. 
The uniqueness of this com- 
mand is that the search key (in 
this case CD C9 01) may be 
378 • 80 Microcomputing, November 1981 



Program continued 










4A8B 


E5 


00315 


PUSH 


HL 


;SAVE IT 


4A8C 


CD7B45 


00316 


CALL 


SPC 


; SPACE 


4A8F 


Dl 


00317 


POP 


DE 


;POP END INTO DE 


4A90 


El 


00318 


POP 


HL 


(POP START INTO HL 


4A91 


13 


00319 


INC 


DE 


; INC TO INCLUDE LAST BYTE 


4A92 


CD8348 


0O320 


CALL 


ERR 


( CHECK FOR START >END 


4A95 


CD8402 


00321 


CALL 


284H 


; WRITE LEADER 


4A98 


7E 


00322 L8 


LD 


A, (HL) 


;DATA -> A 


4A99 


CD6402 


00323 


CALL 


264H 


; OUTPUT A 


4A9C 


23 


00324 


INC 


HL 


(POINT TO NEXT 


4A9D 


DF 


00323 


RST 


1BH 


( CHECK IF DONE 


4A9E 


38F8 


0O326 


JR 


C,LB 


;CONINUE IF NOT 


4AAO 


C3A343 


00327 


JP 


BACK2 


; RETURN 


4AA3 


FE51 


0O328 QUE 


CP 


•Q» 


; CHECK FOR "Q" 


4AA5 


2011 


00329 


JR 


NZ, SEARCH 


;GO IF NOT PRESSED 


4AA7 


CD3245 


0O33O 


CALL 


ASPC 


; OUTPUT (A) ♦ SPACE 


4AAA 


3E04 


00331 


LD 


A, 4 


[SET BIT 2 


4AAC 


D3FF 


00332 


OUT 


(OFFH),A 


;TURN ON CASSETTE 


4AAE 


CDC84S 


0O333 Bll 


CALL 


INKY 


;SCAN KEYBOARD 


4AB1 


FE58 


00334 


CP 


'X' 


[ STOP? 


4AB3 


20F9 


00335 


JR 


NZ,B11 


;C0NT1NUE IF NOT 


4AB5 


C3A543 


00336 


JP 


BACK2 


; RETURN 


4ABB 


FE53 


00337 SEARCH 


CP 


'S' 


(CHECK FOR "S" 


4ABA 


206F 


00338 


JR 


NZ , TRANSF 


;GO IF NOT PRESSED 


4ABC 


CD3245 


00339 


CALL 


ASPC 


5 OUTPUT (A) ♦ SPACE 


4ABF 


CD514S 


0O34O 


CALL 


HLIN 


;6ET START OF SEARCH 


4AC2 


E5 


00341 


PUSH 


HL 


[SAVE IT 


4AC3 


CD7B45 


0O342 


CALL 


SPC 


; SPACE 


4AC6 


CDS 148 


00343 


CALL 


HLIN 


;GET END OF SEARCH 


4AC9 


ES 


00344 


PUSH 


HL 


;SAVE IT 


4ACA 


CD7B4S 


00343 


CALL 


SPC 


; SPACE 


4ACD 


Dl 


00346 


POP 


DE 


;POP END 


4ACE 


El 


0O347 


POP 


HL 


j POP START 


4ACF 


13 


00348 


INC 


DE 


(CORRECT COUNT 


4ADO 


CD8348 


00349 


CALL 


ERR 


(CHECK FOR START >END 


4AD3 


ES 


00330 


PUSH 


HL 


(SAVE START ABA IN 


4AD4 


DS 


00331 


PUSH 


DE 


(SAVE END ALSO 


4ADS 


CD8945 


00332 


CALL 


INA 


(BET 1st BYTE OF KEY 


4AD8 


210O42 


00353 


LD 


HL.4200H 


(START OF KEY BUFFER 


4ADB 


OEOO 


00354 


LD 


C,0 


(COUNT = 


4ADD 


77 


00355 


LD 


<HL>,A 


(SAVE BYTE 


4ADE 


D9 


0O356 L9 


EXX 




(SAVE REGISTERS 


4ADF 


CD7B43 


00337 


CALL 


SPC 


(SPACE 


4AE2 


D9 


0033B 


EXX 




(GET REGISTERS 


4AE3 


2B 


00359 


DEC 


HL 


(DEC BUFFER ADDRESS 


4AE4 


OC 


00360 


INC 


C 


(INC COUNT 


4AES 


D9 


00361 


EXX 




(SAVE REGS 


4AE6 


CDC843 


00362 


CALL 


INKY 


(GET 1 INPUT 


4AE9 


FEOD 


00363 


CP 


ODH 


(C/R? 


4AEB 


280F 


00364 


JR 


Z.B12 


( IF SO THEN START 


4AED 


CDA743 


00365 


CALL 


LST 


(ELSE BET OTHER HALF 


4AF0 


CD8C45 


00366 


CALL 


INA+3 


(OF THE INPUT 


4AF3 


D9 


00367 


EXX 




(GET REGS 


4AF4 


77 


00368 


LD 


(HL),A 


(STORE BYTE 


4AFS 


3EOF 


00369 


LD 


A.OFH 




4AF7 


B9 


00370 


CP 


C 


( 16 INPUTS? 


4AF8 


20E4 


00371 


JR 


NZ.L9 


(GO IF NOT 


4AFA 


OC 


00372 


INC 


C 


(CORRECT COUNT 


4AFB 


D9 


00373 


EXX 




(SAVE RE6S 


4AFC 


CD3C4S 


00374 B12 


CALL 


CRS 


(OUTPUT A C/R 


4AFF 


D9 


00375 


EXX 




(GET REGS 


4BOO 


Dl 


00376 


POP 


DE 


(END OF SEARCH 


4B01 


El 


00377 


POP 


HL 


(START OF SEARCH 


4B02 


41 


00378 B13 


LD 


B,C 


(COUNT -> B 


4B03 


DD210042 


00379 


LD 


IX.4200H 


(START OF LOOKUP KEY 


4B07 


DD7EOO 


00380 B14 


LD 


A, (IX) 


(BET KEY BYTE 


4B0A 


DD2B 


00381 


DEC 


IX 


(DEC KEY POINTER 


4B0C 


23 


00382 


INC 


HL 


( INC MEMORY POINTER 


4B0D 


BE 


00383 


CP 


(HL) 


(MATCH? 


4BOE 


2013 


00384 


JR 


NZ.B15 


[GO IF NOT 


4B10 


10F5 


0O38S 


DJNZ 


B14 


(LOOP B TIMES 


4B12 


E5 


00386 


PUSH 


HL 


(SAVE 


4B13 


C5 


00387 


PUSH 


BC 


(SAVE 


4B14 


AF 


00388 


XOR 


A 


(CLEAR CARRY 


4B1S 


47 


00389 


LD 


B,A 


(B«0 


4B16 


ED42 


0O390 


SBC 


HL.BC 


[(HL)=«START OF FIND-1 


4B18 


23 


0O391 


INC 


HL 


(CORRECT (HL) 


4B19 


CD5E48 


00392 


CALL 


HLOUT 


(OUTPUT (HL) + SPACE 


4B1C 


0603 


00393 


LD 


B,3 


(OUTPUT 3 MORE SPACES 


4B1E 


CD7B45 


00394 SPA3 


CALL 


SPC 




4B21 


10FB 


00393 


DJNZ 


SPA3 




4B23 


CI 


00396 


POP 


BC 


(POP 


4B24 


El 


00397 


POP 


HL 


(POP 


4B25 


DF 


00398 B15 


RST 


18H 


( IS SEARCH OVER? 

Program continues 



Program continued 










4B26 38DA 


00399 


JR 


C.B13 


;GQ IF NOT 


4B28 C3A543 


00400 


JP 


BACK2 


j RETURN IF FINISHED 


4B2B FE54 


0O401 TRANSF 


CP 


'T* 


j CHECK FOR "T" 


4B2D 2046 


00402 


JR 


NZ, WRITE 


;G0 IF NOV PRESSED 


4B2F CD324S 


00403 


CALL 


ASPC 


lOUTPUT (A) * SPACE 


4B32 CDS 148 


00404 


CALL 


HLIN 


|6ET START OF SOURCE 


4B35 E5 


00405 


PUSH 


HL 


;SAVE IT 


4B36 CD7B45 


00406 


CALL 


SPC 


; SPACE 


4B39 CDS 148 


00407 


CALL 


HLIN 


;GET END OF SOURCE 


4B3C ES 


0O4O8 


PUSH 


HL 


;SAVE IT 


4B3D CD7B45 


0O409 


CALL 


SPC 


; SPACE 


4B40 CDS 148 


00410 


CALL 


HLIN 


iSET START OF DESTINATION 


4B43 E5 


00411 


PUSH 


HL 


|SAVE IT 


4B44 CD7B45 


00412 


CALL 


SPC 


; SPACE 


4B47 CI 


00413 


POP 


BC 


I DESTINATION -> BC 


4B48 Dl 


00414 


POP 


DE 


; SOURCE END -> DE 


4B49 El 


00415 


POP 


HL 


{SOURCE START -> HL 


4B4A CD8348 


00416 


CALL 


ERR 


; CHECK IF START >END 


4B4D EB 


00417 


EX 


DE.HL 


jDE < — > HL 


4B4E AF 


00418 


XOR 


A 


; CLEAR CARRY 


4B4F ED52 


00419 


SBC 


HL.DE 


|QET BYTE COUNT- 1 


4BS1 23 


00420 


INC 


HL 


{CORRECT IT 


4BS2 DS 


00421 


PUSH 


DE 


{PUSH ALL ONTO STACK 


4B53 C5 


00422 


PUSH 


BC 


{TO SWITCH 


4BS4 ES 


00423 


PUSH 


HL 




4B5S CI 


00424 


POP 


BC 


{BYTE COUNT 


4BS6 Dl 


00425 


POP 


DE 


{DESTINATION 


4B57 El 


00426 


POP 


HL 


{SOURCE 


4BS8 ES 


00427 


PUSH 


HL 


{SAVE AGAIN 


4B59 B7 


00428 


OR 


A 


(CLEAR CARRY 


4BSA EDS2 


00429 


SBC 


HL.DE 


{FIND MOVE DIRECTION 


4B5C El 


00430 


POP 


HL 


(6ET SOURCE AGAIN 


4BSD 3806 


00431 


JR 


C.B16 


{BO IF HOVE BACKWARDS 


4B5F EDBO 


00432 


LDIR 




{HOVE IT 


4B61 EB 


00433 


EX 


DE,HL 


{DE < — > HL 


4B62 2B 


00434 


DEC 


HL 


{CORRECT TO END 


4B63 180A 


00435 


JR 


B17 




4B65 09 


00436 B16 


ADD 


HL.BC 


{FIND START OF HOVE+1 


4B66 2B 


0O437 


DEC 


HL 


{CORRECT START 


4B67 EB 


00438 


EX 


DE,HL 




4B68 09 


00439 


ADD 


HL,BC 


{FIND END OF HOVE+1 


4B69 2B 


00440 


DEC 


HL 


{CORRECT ALSO 


4B6A EB 


00441 


EX 


DE.HL 




4B6B D5 


00442 


PUSH 


DE 


{SAVE END 


4B6C EDB8 


00443 


LDDR 




{HOVE BACKWARDS 


4B6E El 


00444 


POP 


HL 


{POP END FROM STACK 


4B6F CD5E48 


00445 B17 


CALL 


HLOUT 


{DISPLAY END 


4B72 C3A543 


00446 


JP 


BACK2 


{RETURN 


4B75 FE57 


00447 WRITE 


CP 


'W' 


{CHECK FOR "W" 


4B77 2074 


00448 


JR 


NZ.ZERO 


(GO IF NOT PRESSED 

Program continues 



from one to sixteen bytes long. 
If the key is sixteen bytes long, 
execution will begin auto- 
matically. However, if the key is 
less than sixteen bytes long, 
press Enter to start execution. 
Take care not to search for a 
byte or bytes which may occur 
at a great number of places 
because the command will 
print page after page of ad- 
dresses without stopping until 
it has listed them all. If you 
don't have a full 48K of 
memory, typing the command S 
COOO FFFE FF Enter will show 
you what I am referring to. 

Block Transfer 

Transferring blocks of data 
from one place to another in 
memory requires writing a 
block move program and ex- 
ecuting it. I found myself doing 
this so frequently that the 
transfer command was created 
to save time. As an example of 
this command's use, let's move 
the first page of ROM (0000 to 
OOFF) into RAM starting at 
5000. Press T followed by the 
source block addresses 0000 
and OOFF. Follow this with the 
starting address of the destina- 
tion block which in this case is 
5000. In no time at all the end- 
ing address of the destination 
block is displayed and the * 
prompt returns ready for your 
next command. Type H 5000 to 
have a glimpse of the data that 
was just transferred. You may 
wish to perform a checksum on 



GET YOUR 
TRS-80 DIRECT 



FORT 



AUTWMZEO SALES CENTER 



AND 



WORTH COMPUTERS VIDEO 

377 PUZA, HWY 377 GMNBURY 

ram WORTH. TX 7BM "><" 



AND SAVES 




Get our quote "before" you buy 

Full manufacturers' warantee. 

Texas resident* edd 4% salee tax 



817-573-4111 



COST OF CALL REFUNDED FOR OROERS BY TELEPHONE 



TRS-80 SOFTWARE 

Master Disk Index (MDI): $12/cassette, 
$16./5'/«" disk. Creates and maintains a 
master file ol disk directories updated by 
automatically reading each disk's directory 
MDI records may be selectively displayed, 
printed or deleted by either string matching or 
record number Uses fast machine code sort 
NEEDS 32k, 1 disk Level II Basic 

Lunar bander. $1 0'cassette Solidly based on 
physics Displays the landscape, craft and 
changing navigational information NEEDS 
16k level II Basic 

Othallo 3.0: $ 1 0'casserte Better than the 
board game Much better because it plays yon 
vs TRS 80. you vs a fnend, or TRS-80 vs i! 
self! Slaughters programs that maximize cap 
hires NEEDS 16k Level II BASIC 

Note NY residents acid sales tax. 
CUSTOM SOFTWARE 
PO Box 3241 Raymond Avenue 
Pouqhkeepsie, NY 12603 



PRACTICAL 



< MOTOR 
START 



PIPE 
DESIGN 




Presents computer programs for 

INGINfERING PROBLEMS: 



Computes the acceleration 
time for starting electric 
motors under load 

Calculates pressure versus 
flowrate curve data points 
for pipelines 

Analyzes branched piping 
systems to determine 
flowrates and pressures 

For MODEL I LEVEL II 16K 
CASSETTE OR DISK 



MOTOR START 
PIPELINE 
PIPE DESIGN 



$19.95 

$29.95 
$49 . 95 



ALL THREE $75.00 

AOO $10.00 FOR DISK 

SEND CHECK OR MONEY OROER TO 

PRACTICAL ANALYSIS 

6518 LA MORA 
HQUS'ON. '[■ 7 7->o »^386 




►-See List of Advertisers on page 402 
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the two blocks 0000 to 00FF 
and 5000 to 50FF to see that 
they are identical. The source 
and destination blocks were 
not overlapping but the com- 
mand can handle them without 
losing data if they do overlap. 

Direct Register Write 

Did you ever wish that you 
could step in and write values 
directly into the active registers 
to alter the flow of a program 
that you were debugging? If so, 
you will enjoy this next com- 
mand. Press W and you will see 
the contents of the AF register 
pair followed by a /. If you want 
to place a 1234 in the BC 
register pair and a 5678 in the I Y 
index register, press Enter to 
advance to the BC pair and type 
1234. Now press Enter until the 
IY register is displayed and 
type 5678. It's that easy. Are 
you convinced that they were 
changed? Don't take my word 
for it. Press R and see for 
yourself. 

Zero Memory 

This command will clear (by 
writing in 00s) any block of RAM 
memory. By typing Z 4C5C 
BFFF, the programming work- 
space of a 32K machine will be 
cleared. Users with a 48K 
machine will notice that Z 4C5C 
FFFF yields little more than an 
E being displayed. This is be- 
cause the computer interprets 
FFFF as a - 1 . However, Z 4C5C 
FFFE works fine. This is a de- 
structive command. Choose 
values wisely. 

Memory Test 

As a finish, press * and wait a 
moment. The resulting output 
tells you that the memory has 
been checked and is valid to the 
displayed address. If this first 
value is not your machine's top 
of memory, the cell at this ad- 
dress plus one may be faulty or 
intermittent. Press * a few 
times to confirm the results of 
the test. The test starts with the 
RAM immediately following 
NEWBUG. The test is non- 
destructive and does not 
change any of the memory that 
is tested. The second line of 
this output tells you at what 
size you set the current 
memory, in case you do not 
remember. ■ 
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Program continued 












4B79 CD3C45 


00449 




CALL 


CR8 


1 OUTPUT A C/R 


4B7C FD212D48 


0O4SO 




LD 


IY,REGS*8 


{ POINTS TO T-BUG'S AF REG 


4B80 DD21CE4B 


00451 




LD 


IX, HESREG 


; START OF ME88A8E 


4B84 ED5B3D48 


0O452 


B18 


LD 


DE, (CURSR) 


; CURSOR -> DE 


4B88 0605 


004S3 




LD 


B,5 


j CHAR COUNT - 5 


4B8A DD7E00 


00454 


LIO 


LD 


A, (IX+O) 


;GET CHAR 


4B8D B7 


00455 




OR 


A 


iTEST FOR ZERO 


4B8E CAA543 


00456 




JP 


Z,BACK2 


I RETURN IF DONE 


4B91 12 


00457 




LD 


(DE),A 


{STORE ON SCREEN 


4B92 DD23 


004S8 




INC 


IX 


|INC MESSAGE PTR 


4B94 13 


00459 




INC 


DE 


{INC SCREEN PTR 


4B95 10F3 


O046O 




DJNZ 


LIO 


«LOOP 5 TIMES 


4B97 E0533D48 


0O461 




LD 


(CURSR), DE 


{SAVE NEW SCREEN POSITION 


4B9B FD66OI 


00462 




LD 


H, (IY*1) 


{GET VALUE OF CURRENT 


4B9E FD6EOO 


00463 




LD 


L, (IY+O) 


{REGISTER INTO HL 


4BA1 FD23 


00464 




INC 


IY 


{UPDATE REG PTR 


4BA3 FD23 


0O465 




INC 


IY 




4BA5 CD5E48 


00466 




CALL 


HLOUT 


{OUTPUT OLD REG CONTENTS 


4BAB 3E2F 


00467 




LD 


A,'/' 


{OUTPUT A "/" 


4BAA CD3245 


00468 




CALL 


ASPC 




4BAD CDC84S 


00469 




CALL 


INKY 


{GET INPUT FROM KEYBOARD 


4BBO FEOD 


OO470 




CP 


ODH 


(CHECK FOR < ENTER > 


4BB2 2811 


00471 




JR 


Z.B19 


(GO TO NEXT IF PRESSED 


4BB4 CDA745 


0O472 




CALL 


LST 


(GET SECOND HALF OF A 


4BB7 CD8C45 


00473 




CALL 


INA+3 




4BBA CDS548 


0O474 




CALL 


HLIN+4 


(CALL HERE TO COMPLETE 


4BBD EB 


00475 




EX 


DE V HL 


(PUT NEW VALUE IN DE 


4BBE FDE5 


00476 




PUSH 


IY 


{GET REGISTER PTR 


4BC0 El 


0O477 




POP 


HL 


{IN HL 


4BC1 2B 


0O478 




DEC 


HL 




4BC2 72 


00479 




LD 


(HL),D 


(STORE NEW MSB 


4BC3 2B 


0O48O 




DEC 


HL . 




4BC4 73 


00481 




LD 


(HL),E 


(STORE NEW L8B 


4BCS DDES 


00482 


B19 


PUSH 


IX 


(SAVE MESSAGE PTR 


4BC7 CD3C45 


00483 




CALL 


CRS 


(OUTPUT C/R 


4BCA DDE1 


00484 




POP 


IX 


(RESTORE MESSAGE PTR 


4BCC 18B6 


0O48S 




JR 


B18 


(CONTINUE 


4BCE 41 


0O4S6 


HESREG 


DEFM 


'AF - BC - DE « 


- HL - IX - IY - ' 


4BEC OO 


00487 




DEFB 





(0 MARKS THE END 


4BED FE5A 


00488 


ZERO 


CP 


•Z' 


(CHECK FOR "Z" 


4BEF 201C 


00489 




JR 


NZ,TEST 


(GO IF NOT PRESSED 


4BF1 CD3245 


00490 




CALL 


ASPC 


(OUTPUT (A) ♦ SPACE 


4BF4 CDS 148 


00491 




CALL 


HLIN 


(GET START 


4BF7 E3 


00492 




PUSH 


HL 


(SAVE IT 


4BF8 CD7B4S 


00493 




CALL 


SPC 


(SPACE 


4BFB CDS 148 


0O494 




CALL 


HLIN 


(GET END 


4BFE Dl 


00493 




POP 


DE 


(POP START 


4BFF EB 


00496 




EX 


DE,HL 


(SWITCH THEM 


4 COO 13 


00497 




INC 


DE 


(INCLUDE LAST BYTE 


4C01 CD8348 


00498 




CALL 


ERR 


(CHECK FOR START >END 


4C04 3600 


00499 


B20 


LD 


<HL) f 


("ZERO" (HL) 


4C06 23 


OOSOO 




INC 


HL 


(POINT TO NEXT 


4C07 DF 


0OSO1 




R8T 


18H 


(CHECK IF DONE 


4C08 38FA 


00SO2 




JR 


C, B20 


(60 IF NOT 


4C0A C3AS43 


00503 




JP 


BACK2 


(RETURN 


4COD FE2A 


00504 


TEST 


CP 


'S' 


(CHECK FOR "*" 


4C0F C20144 


00505 




JP 


NZ.NONE 


(BACK TO T-BUG IF NOT 


4C12 213A4C 


0O5O6 




LD 


HL,MES2 


{GET MESSAGE 


4C15 CD5349 


0O3O7 




CALL 


OUTHES 


(OUTPUT IT 


4C18 21SD4C 


00S08 




LD 


HL.END 


(START OF USER MEMORY 


4C1B 23 


00309 


Lll 


INC 


HL 


(NEXT BYTE 


4C1C 7E 


00510 




LD 


A, (HL) 


(GET CONTENTS 


4C1D 47 


00511 




LD 


B,A 


(SAVE IN B 


4C1E 2F 


00512 




CPL 




(COMPLEMENT (A) 


4C1F 77 


00513 




LD 


(HL) t A 


(PUT BACK IN (HL) 


4C20 BE 


00514 




CP 


(HL) 


(TEST MEMORY CELL 


4C21 70 


0051 5 




LD 


(HL),B 


(RESTORE TO ORIGINAL 


4C22 28F7 


00516 




JR 


Z f Lll 


(CONTINUE IF ZERO 


4C24 2B 


OOS17 




DEC 


HL 


(BACK UP TO LAST GOOD 


4C2S CDSE48 


OOS18 




CALL 


HLOUT 


(OUTPUT LAST GOOD BYTE 


4C28 214C4C 


0O519 




LD 


HL.MES3 


(GET NEXT MESSAGE 


4C2B CD5349 


0052O 




CALL 


OUTHES 


(OUTPUT IT 


4C2E 2AB140 


OOS21 




LD 


HL, (40B1H) 


(GET MEMORY SIZE 


4C31 CDSE48 


OOS22 




CALL 


HLOUT 


(OUTPUT ALSO 


4C34 CD3C4S 


00523 




CALL 


CRS 


(OUTPUT C/R 


4C37 C3AS43 


0O524 




JP 


BACK2 


(RETURN 


4C3A OD 


0O32S 


HE82 


DEFB 


ODH 


(C/R 


4C3B 4D 


00526 




DEFH 


"HENDRY VALID 


TO ' 


4C4B OO 


OOS27 




DEFB 





(0 MARKS THE END 


4C4C OD 


00528 


MES3 


DEFB 


ODH 


(C/R 


4C4D 4D 


OOS29 




DEFM 


'MEMORY SET AT 


' 


4C3D OO 


00530 


END 


DEFB 





{0 MARKS THE END 


4762 


0O531 




END 


NEWBUG 


Program continues 



* 'SPECIAL* *SPECIAL** 

TRS-80 ADD ON DRIVES 

IMMEDIATE DELIVERY 



SINGLE SIDED $225.00 
DOUBLE SIDED $345.00 



COMPLETE SYSTEMS 
SINGLE SIDED $365.00 
DOUBLE SIDED $485.00 

INCLUDES: 
MINI DISK DRIVE 
FUSED POWER SUPPLY 
VENTED CABINET 
CABLE 

90 DAY WARRANTY 
FACTORY ASSEMBLED 
FACTORY TESTED 

THESE ARE NEW 5" FD's 



I 



2 INTERFACE, INC ^« 

20932 CANTARA ST 
CANOGA PARK, CA 91304 
(213)341-7914 

VISA AND MASTER CHARGE ACCEPTED 



HARD DISK FOR 

TRS-80* 
MODELS I & III 

The PSM-W5 

FEATURES: 

•Seagate ST506 5.25" drive 
•5.0 Megabytes formatted 
capacity 

• Full block buffering 
•Winchester controller 

• Error accommodation 
•OEM-style packaging 

PRICING: 

PSM-W5 (open frame) $2300 

Additional 5MB drive 1500 

Multiuser interface 500 

Cabinet 250 

LDOS operating system 149 

for more info contact: 

r^C ft /i programming 
1 ^|yi and systems 
I m m 1 I management, inc 

P.O. Box 1877 
Kettering, OH 45429 

(513) 426-8644 

^■66 
•TRS-80 is a trademark of Tandy Co. 



CANADIANS 

NOW IN STOCK 
ACORN SOFTWARE 

BIG FIVE 
SOFTWARE 

Super action with SOUND 

& Machine Language SPEED 

Also good Utilities 

Mod I & Mod III 

Cass or Disk 

Excellent 5 V Diskettes 

Single Density $5.50 

Double Density $5.95 

Fully guaranteed! 

Lower-case Modification 

One IC No Descenders 

Kit $29.95 

IBM Selectric Printer 
Conversion Kit $825.00 

SEND FOR FREE INFORMATION 
We accept VISA 

CMD MICRO 

PO BOX 1212 

Edmonton, Alberta 

T5J 2M4 



Quality Products With Support And Service For Less!!! 



16K Radio Shack Model 3 computer S839-48K for $899 
With 2 40 track drives $1890 and a RS232 for $1959 
16K for the Radio Shack Model 1 , 3, and Apple 2 + $ 1 6 

Percom Electric Crayon — add color and hl-res graphics to your model 1 $ 1 39 

The Connection— for Model 1 — 300 baud — orig. only &. direct connect for $ 1 1 9 
Lex I I coupler— 300 baud— orig/ans-half/full duplex $ 1 29 

Omnitek 40 track drive w/p.s. S. case $295—80 track $395—5 6. 3 ms access 
Omnitek 80 track dual head drive with p.s. and case $499 
Omnitek 8" disk drive power supply and case $699 

Omnitek Power Supply and Case for 5" drives $63 and for 8*' drives $ 1 39 
Omnitek cables for 5'" drives — 2-drlve for $24 and 4-drive for $29 
Omnitek cables for 8*' drives — 1 -drive for $24 and 2-drive for $34 
Economy 5" double density disks $24 with center rings $28 
Disks for 8" drive — double density $36 

1 2" B&.W Leedex (Amdek) Monitor $ 1 1 4 and 10" B4.W APF Monitor $99 

Base 2 printer $539 C.ltoh Starwriter $ 1 439 

Okidata Microline 80 printer $369 Tractor $50 

Okidata Microline 82A printer $499 and 83A $749— 1 20cps, uc/lc/graphics 




commodore 



Call for Quotes on Epson, Apple, and Commodore equipment. 

Dealer Inquiries invited. Mass. Residents add 5% Tax. F.O.B. Tewksbury. freight extra. M/C. Visa or check accepted. 
TRS-80 is a reg. trademark of Tandy Corp. 105 

Omnitek Computers International Inc., 1899 Main St., Tewksbury, Ma 01876 



sSee List ol Advertisers on page 402 
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FRICTION FEED FOR YOUR EPSON 

MX-70- MX-80 



I Converts your orinttr lor friction 
fttd of SINGLE SHEETS or ROLL 
PAPER. 

* SIMPLE lOtttllltlon (all you 

ntet is * icrtadrivtr. no soldinng- 

• Tractor feed rtmjins undlsturbit. 

♦ Provtn reliability. <_^ **^^^ 

• A.jiUblt NOW! ^*^f 

♦ Only li^Jiltte 11.50 for^pSttagel 



• 470 MICRO-GRIP. LIU 
P.O. iOX «7J 
I & Master Cart AccwtW LA/B VA 2J665 

104) S26-SS0! 

♦ ♦♦ TRS-IO SOFTWARE ♦♦♦ 




DELTA PRESENTS 

PRICES WITH BYTE 



MODEL II: 

2K Moiling List -Keep track of 2.000 names & 
addresses, retrelve ony one In 2 seconds The most 
sophisticated moHer on the morkef with Zip-sorting 
moiling label printer $349.95 

DMMU (Disk/ Memory Management utilities) - Reod. 
write, move and copy ony sector on ony disk, or search 
o disk tor a specific hex or ASCII string Use DISASSTRS 
to disassemble anything In memory to highly-readable 
Z-80 mnemonics $34.95 

DCS NU-BASIC- Better in on me other extended 
BASICS, tor much less' Sort & search arrays. PEEK & 
POKE, read from CRT. single-step BASIC, insert & 
delete lines under progrom control, create linkobie 
BASIC modules which load & execute without closing 
files or erasing variables use ON BREAK GOTO to trap 
interrupts, better line & string editing, single-line 
duplicate & relocate full type ohead . BOX 48 
graphics, multi-line functions, much more Must be 
seen to be believed 1 $170 

DCS CUSTOM SERVICES -We provide fully custom 
softwore ot the industry s most reasonobte rotes Call 
or write for defolls 

MODEL I /IN 

MAGIC-Thots what we call our Advanced Gropnics 
Instruction Course Leorn to draw 3-dimensionol 
shapes ond curves that look hi-tes 1 Volume I avoikjbie 
nowfor4KI. 16KH&III $9.95 

MOD3MON-Exomine modify, dump & load to tape. 

compute JR values lor hond-ossembly 

16KHI $9.95 

DISASSTRS-Machine code disassembler 16KII or 
III $9.95 

MODEL II DISKS (Box of 10) $39.95 

We Invite submissions from all software authors. 

Highest royalties paid For more 

Information, call or write: 



▲ DEI 

A" 



DELTA COMPUTER SYSTEMS 
668 Chenango Street 
Blnghamton, NY 13901 
(607)722-9593 ^570 



DEPT. 
513 



Program continued 
















ARITHH 


4896 


OOO66 


00061 












ASPC 


4532 


00OO9 


00068 


00079 00084 


00098 


00147 


00163 


00179 








0022B 


OO 266 00291 


00310 


00330 


00339 


00403 








0O468 


00490 










Bl 


48A9 


00072 


00076 












BIO 


4AOD 


00252 


00250 












Bll 


4AAE 


00333 


00335 












B12 


4AFC 


00374 


00364 












B13 


4B02 


0O378 


00399 












B14 


4B07 


00380. 


00385 












B15 


4B2S 


0O398 


00384 












B16 


4B65 


00436 


00431 












B17 


4B6F 


0O44S 


00435 












B18 


4B84 


0O452 


O0485 












B19 


4BCS 


00482 


00471 












B2 


48B6 


00O78 


00074 












B20 


4C04 


00499 


00502 












B3 


48D3 


00094 


00092 












B4 


4909 


00120 


00115 












BS 


4935 


00147 


00145 












B6 


49AE 


OO 198 


00195 












B7 


49BO 


00199 


00197 












B8 


49B8 


00205 


00213 


00215 










B9 


4A06 


00246 


00255 












BACK 


43CD 


00006 


0OO65 












BACK2 


43A5 


00005 


00059 


00095 00119 


00132 


00150 


00263 


00294 








00327 


00336 00400 


00446 


00456 


00503 


00524 


BLOK 


4A68 


00295 


O0275 


O0283 00298 










CHAIMSE 


4BD9 


00096 


00067 












CHKSUn 


49E2 


00226 


0O219 












CLEAR 


488D 


0O060 


0O022 


00209 00225 










CRS 


453C 


OOOIO 


O0149 


00374 00449 


00483 


00523 






CURSR 


483D 


00018 


00057 
00239 


OOl 16 00155 
00452 00461 


00159 


OOl 67 


00174 


00191 


END 


4C5D 


OO530 


00270 


00508 










ENTRY 


4A57 


00287 


00277 












ERR 


4883 


00055 


00238 


00271 0O32O 


00349 


00416 


00498 




EXPAND 


491F 


00137 


00097 












FLAG 


482D 


00017 


00142 












HEXDHP 


4967 


00161 


00138 












HEX OUT 


4972 


OOI66 


00204 


O0211 0021 7 










HLIN 


4851 


00024 


00069 


00080 00099 


00102 


00164 


00229 


00232 








00267 


00311 00314 


00340 


00343 


0O404 


00407 








00410 


00474 00491 


0O494 








HLOUT 


485E 


00033 


00094 
0044S 


O0177 OOI88 
00466 0O5 18 


00258 
00522 


00262 


00293 


00392 


IN2 


4A70 


003OO 


00284 


00285 00287 










SNA 


4589 


00O12 


00025 


00O29 OO 105 


00108 


00352 


00366 


00473 


INITIA 


49D1 


0O21B 


00162 












INKY 


45C8 


00014 


OO072 


00206 0O333 


00362 


00469 






LI 


4915 


00131 


00136 












L10 


4B8A 


00454 


00460 












Lll 


4C1B 


00509 


OOS16 












L2 


492B 


00142 


00148 












L3 


4994 


00182 


00189 












L4 


49AS 


00193 


00202 












L5 


49DA 


0O222 


00224 












L7 


4A3F 


00276 


00286 












L8 


4A98 


00322 


O0326 












L9 


4ADE 


00356 


00371 












LST 


45A7 


00013 


OO 365 


00472 










NES 


4940 


00151 


00139 












HES2 


4C3A 


OOS2S 


00506 












NES3 


4C4C 


00528 


OOS19 












MESREG 


4BCE 


00486 


00451 












NEMBUG 


4762 


0001s 


00531 












NONE 


4401 


00007 


O05O5 












NPUT 


4A22 


00264 


00227 












OUT 


486C 


00041 


00035 


00037 










OUTA 


4522 


00008 


00047 


00052 










OUTMES 


4953 


00155 


00140 


00507 00520 










OUTPT 


4A7A 


00308 


00265 












F»LUS 


48D2 


00093 


00089 












QUE 


4AA3 


00328 


OO309 












REGS 


4825 


OOO 16 


00220 


00450 










SEARCH 


4AB8 


00337 


O0329 












SPA3 


4B1E 


00394 


0O395 












SPC 


457B 


OOOll 


00038 


00071 00082 


OOlOl 


001 04 


OOl 07 


00231 








00234 


00269 0O313 


00316 


O0342 


00345 


00357 








00394 


00406 OO409 


00412 


00493 






TEST 


4C0D 


00504 


00489 












TRANSF 


4B2B 


00401 


00338 












WRITE 


4B75 


00447 


00402 












ZERO 


4BED 


00488 


00448 
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ioi we/ FOR 

AIXflD 
MICROCOMPUT6R 

no.22 





Includes controller 
board, mounting 
brackets, cables, 
and power supply 
tor 2 internal drives. Controls up to 4 drives 
which may be any combination of internal or 
external. This controller has been tested for 
compatibility with TRSDOS . LDOS 1 , and 
NEWDOS J Using TRSDOS' you may use 
either Tandon or MPI 40 or 80 track drives. 
With LDOS' or NEWDOS 1 you may use any 
combination or 514" drives. The controller 
supports any mix of 5 V*" drives including 
single or double density . single or double sided. 
35.40. 77 or 80 tracks. 

TERMS: Cashier's Check, VISA, MAS- 
TERCARD, or C.O.D. Personal checks ac- 
cepted, but will require 2-3 weeks to process. 
COD. add 3%. 

To Order, Call (505) 265-5072 

OR Mail order with payment to address below. 

r>— (^J4M Systems, Ltd. J 

605V2 San Mateo Blvd., N.E. 
Albuquerque, N.M. 87108 



TRSDOS is a Trademark of Radio Shack Corporation 
LDOS is a Trademark ol Logical Systems, lot 
NF.WDOS is a Trademark ol APPARAT 



FREE! 

A SASE gets you a free pro- 
gram listing and a list of our 
low prices. Here are a few: 

AXIOM IMP2 Printer $579 

IMP2PAA 1 With tractor, single or roll teed, 5K but- 
ter, includes lull graphics software 

SEIKO Printer $359 

CP80M 

PERTEC Drive $325 

FD 200 complete 'Hippy" (with supply & case) 
capable ot 40 track, double density operation 

Also cassettes, diskettes, 
cables, memory, power sup- 
plies and cases 
Software: auto minder, graph- 
ics monitor, mailbox, talking 
keyboard & more 

TERMS: Check, Mastercharge, 
Visa or money order 

Micro Mnemonics 

(801) 825-9317 
403 W 2250N 
SUNSET, UTAH 84015 ^ 



Z8 BASIC 
COMPUTER/CONTROLLER 




As featured in 
Byte Magazine, July and August 1981 

•On board tiny BASIC Interpreter. 

• 2 on board parallel ports. 

• Serial I/O port 

• 6 interrupts. 

•Just attach a CRT terminal and 
immediately write control programs 
in BASIC. 

• BAUD RATES 110-9600 BPS. 

• Data and address buses available for 
124K memory and I/O expansion. 

• 4K RAM, 2716 or 2732 EPROM 
operation, 

•Consumes only 1 Vz WATTS 
Z8 Basic Microcomputer/Controller 

Assembled & Tested $195.00 

Complete Kit $165.00 

Universal Power Supply 

( + 5, + 12, & -12v) $ 35.00 

Z8 is a trademark of Zi log Inc 



SWEET-TALKER, 

IT GIVES YOUR COMPUTER 

AN UNLIMITED VOCABULARY. 




4 s Featured In 
Byte Magazine, September 1981 

• Utilizes VORTRAX SC-01 A speech 
synthesizer chip. 

• Unlimited vocabulary. 
•Contains 64 different phonemes 

which are accessed by an 8-bit code. 
•Text is automatically translated into 
electrically synthesized speech. 

• Parallel port driven or 

Plug-in compatible with APPLE II. 
•On board audio amplifier. 
•Sample Program for APPLE II on 

cassette 
SWEET-TALKER 
Assembled and Tested 

Parallel Port Circuit Card $139 

APPLE II Plug-in Card $149 

VORTRAX is a trademark of Federal Screw Works 



DISK-SO 

EXPANSION INTERFACE 

FOR THE 

TRS-SO MODEL I 




4 s Featured In 
Byte Magazine, March 1981 

• Disk controller (4 drives) 

• Hardware data separator 

• Buffered TRS-bus connector 

• Real-time clock 

• Printer port (optional) 

DISK 80-ASSEMBLED & TESTED 

with 32K RAM $329.95 

Centronics Printer 

Port add $ 50.00 

DISK 80 pc board $ 48.00 

Printer/Power Supply 

pc board $ 16.00 

Complete Kit with 32K 

RAM and Printer Port $275.00 

TRS-80 is trademark of Tandy Corp. 



To Order. Call Toll Free • 1-800-645-3479 
(In N.Y. State Call: 1-516-374-6793) 
For Information Call: 1-516-374-6793 



MICROMINTINC. 
917 Midway 
Woodmere, N.Y. 11598 




**See List ol Advertisers on page 402 
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GENERAL 



Twelve new commands for good old Level II Basic. 



Basic— Enhanced Again 



Mark Goodwin 
S.R. 79, Box 103 
Orland, ME 04472 



When Radio Shack market- 
ed their Model I they 
wanted it to appeal to a wide 
variety of users. The TRS-80 is a 
versatile machine but it does 
lack flexibility in more specific 
applications. 

When I first acquired my com- 
puter, I was very excited about 
the graphics capabilities. But 
with my first attempts at creat- 
ing games, I found the TRS-80 is 
limited in graphics capabilities. 
Many programs can be en- 
hanced by the use of high speed 
graphics, but with Level II Basic 
fast graphics are just not possi- 
ble. 

I realized that if I wanted high 
speed graphics, I would have to 
take on a serious study of ma- 
chine language. Once I learned 



to create faster graphics by us- 
ing machine language, I quickly 
found disadvantages to this 
method. The biggest disadvan- 
tage is the amount of time need- 
ed to develop a program. Fur- 
thermore, accessing machine 
language subroutines from 
Level II Basic can be frustrating. 

So I began studying, to see if 
there was a way to add com- 
mands to Level II Basic. After a 
couple of years of experience 
with machine language, I finally 
found various ways to link up 
new commands with Level II Ba- 
sic. From there it was a simple 
matter to write the machine lan- 
guage routines necessary to 
add virtually any command I 
wanted. Thus I created En- 
hanced Basic V1.0 (see Program 
Listing 1). 

Enhanced Basic adds 12 new 
commands and modifies one ex- 
isting command. It allows the 
user much more flexibility in 
writing graphic programs. Fur- 
thermore, it allows easier ac- 
cess to machine language sub- 
routines in applications where 
even greater flexibility is re- 
quired. 

I do not intend to go into the 
details about how Enhanced Ba- 



sic is written. The purpose of 
this article is not to instruct you 
on machine language program- 
ming, but to supply you with a 
useful modification to Level II 
Basic. Program Listings 2, 3, 4, 5 



and 6 contain some brief ex- 
amples of Enhanced Basic's 
versatility. ■ 

The program is available from 
the author. 



Table 1. Command Descriptions 



Calls a machine language subroutine at the address specified. Execution is the 
same as Level II USR(x) command In every other respect. This enables the program 
to contain an unlimited number of machine language subroutines, without the 
need of POKEing the entry address into memory. 

Example: 

100 X - USR27000,(N) 

is the same as: 

100 POKE16526.12aPOKE16627.105:X = USR(N) 

X = *»1^x,y) 

This command allows for setting a double width graphics point, 
x must> = an<K64 
y must> - and<48 

Example: 

100 X = &#1 ,(32.23) 

is the same as: 

1 00SET(©4,23):SET(65,23) 

X«*#2^y) 

This command allows resetting a double width graphics point, 
x must> = and<64 
y must> = 0and<48 

Example: 

100X = &#2,(32,23) 

is the same as: 



Table continues 
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Now for ■ ~~^^^^^^~^f small In- 
vestment you can ^^^If have the 
power and accuracy of the computer In 
your Job costing. We have developed pro- 
grams to run on the Radio Shack TRS-80 
Model II Computer which produce the follow- 
ing reports: 

• Complete Job Cost Reports 

• Job Scheduling 

• Work In Process Report 

• On-line Job Status Inquiry 

• Operation Productivity Report 

• Material Usage Summary 

• Employee Charge Out Summary 

The program prompts the operator through 
every step in plain and simple English. Only a 
few hours of instruction and preparation are 
needed to begin use. It's ideal fot the small 
company with 5 10 50 employees. 

The price Is $495.00 for the program and 
complete instructions. A set of sample reports 
are available for (19.95 which is applicable 
toward purchase. 

DMMSYSTEuIS 

.-439 

Suite 208 404-455-6549 

2957 N. Dekalb Drive 

Dora vi lie, 6 A 30340 

or 

P.O. Box 6555 Macon. GA 31208 

912745-5822 



NEW PROGRAMS 
FOR THE TRS-80 

incopROP 

Income Property Analysis 

for the TRS-80 

INCOPROP: Based upon standardized methods 
ol piopeily analysis used throughout the real 
estate industry Generates a 3 page report contain- 
ing an annual property operating statement and a 
comprehensive 10 year cash flow analysis. Con- 
tains I M.S. lax table to project aftertax income 
stream and investor's l.R.R. 

• Handles & different methods of tax depreciation 

• Handles up to 3 loans & 3 different lypr loans 

• Highly interactive lormat permits Sensitivity Analysis 

• Dish files created for permanent storage of data 
Minimum system requirements 3?h RAM. 1 do«e and 
printer Sold with informative 7s page user's 
mg Oasic aspects Of income o'ope'ty in. 
data worksheets 
Model ' » I" or cassette 'c easy ir»n»i»i 

to dish 
Mode :ii ona-mcftdaMia 

Model II Vernon a<a-iat>te >- MBAS C 

runn.nc.u'de'CP M 



M * 50 



165 M 



MAINDEX: An easy-to-use program to aiC you m 
the indexing of your files on dish Can't find that 
program you wrote lasl month'' Put your computer 
to worki Find any program or data file m your sys 
tern in seconds. 

• A Main Indei of all fOJ' other dish's directories 

• Alphabetizes f>st c files and gives you -names, grans 
used, dates written, trachsand tile descriptions 

• Sorts f iles by name. dish, and categories 

• File descriptions can be searched lor hey words 

• Prints dish labels with dish name and lite names 

• Uses all the advanced and extremely last file manipu- 
lation capabilities Of Apparal. Inc "1 NFVYDOS-'BO 

Hecuires Level II. 48K. 1 dish drive and NFWDOS'80. on 
cassette lor easy transler to dish 120 9S 

f 




DEPT EM. PO BOX S11.NOVATO. CA fM»47 



TRS-80™* Models 1 & 3 

SOFTWARE 

SYSTEM DIAGNOSTIC $99.95 

Tests every component of your TRS-80 
for proper operation: ROM. RAM. Video 
Display. Keyboard. Line Printer, Cassette 
Recorder, Disk Drives, RS-232 Interface 
Continuous or monitored operation. 

SMART TERMINAL $69.95 

The intelligent telecommunication pro- 
gram that enables your TRS-80 to be 
used as a timesharing terminal. Automatic 
transmission to and from another com- 
puter. Control keys, break key, lower 
case, cassette and disk files compatible 
with both Electric Pencil" and Scrips it 
programs. 

MONITOR #3 $39.95 

Disassembler, memory display, move, 
search, verify, modify, read and write 
machine language cassettes, object code 
relocator. hexadecimal arithmetic, 
symbolic disassembly output. 

MONITOR #4 $49.95 

Same as Monitor #3 but adds disk file and sec- 
tor input/output. RS-232 communications. 

PENCIL PATCH $19.95 

Fixes the Electric Penal* Model 1 ver- 
sion so that it runs on the Model 3. (You 
must already own the Model 1 version.) 

GRAPH PRINT $19.95 

Creates formatted print-out on the 
Epson MX-80 printer. Enhanced p.int 
modes print quality text surrounded by 
graphic border. Editing, disk save/ re load, 
text entry, error testing. 

Send S.A.S.E. for FREE Catalog. 

HOWE SOFTWARE 

14 Lexington Road, New City, NY 10956 
'TRS-80 is a registered trademark of the 
Radio Shack division of Tandy Corp. >-* 103 



COLOR COMPUTE 



ADVENTURE 



TRS-80 



[SUPERCHARGER RAMCHARGER 
64K UPGRADE 32K UPGRADE 

• EXTEND MEMORY • EXTEND MEMORY Combat the powers of darkenss and 
FROM 4/1 6K TO 64K FROM 16K to 32K evil! Can you recover the treasure of 

• $299.95 • $9995 the Golden Sorcerer before his 

• 100% Compatible w/Ext. or DOS BASIC minions overcome you. A 

• No Soldering or Modification Required adventure for endless hours of fun 

• Fits Inside Computer's RFI Shield^ and excitement $ 19.95 



Space Invaders 
Meteoroids 
Space War 

• The Best Games Available 

• High Resolution Graphics 

• Fast, Machine Language 

• Compatible w/ Ext. 13a sic 

• $21 .95 each. $59.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 

Battleship Search Game (one or 
two players) 

• SPACE TRADERS 
Galactic trading game 

$14.95/ea. 





THE FACTS 

At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs, complete 
schematics, theory of operation 
and programming examples. 

$14.95 

UTILITIES 



• EDITOR/ ASSEMBLER $34.95 

1 SCIPER MONITOR 19.95 

Full feature machine language 
monitor. Completely position 
independent code - lets your 
load it anywhere in the 
computers memory 

EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROM-PAC port) 

MAGIC BOX 24.95 

Load MOD l/BI Tapes into the color computer 




SPECTRAL 
ASSOCIATES . . 

141 Harvard Ave. 

Tacoma, Washington 96466 1 

(206) 565-8483 
WRITE FOR COMPLETE 
CATALOG 

ADD 3S FOR SHIPPING 

VISA OR MASTERCHARGE ACCEPTED! 



•*See List of Advertisers on page 402 



80 Microcomputing, November 1981 • 385 



Table continued 



100 RESET(64,23):RESET(65,23) 

This command allows the testing of a double width graphics 
point. It will return ( - 1 or true) if the point is set. otherwise 
returns (0 or false) if the point is reset. 

Example: 

100 IF&#3,(32.23)THENX = *#2,(32.23)ELSEX = «#1. (32,23) 
Tests to see if the point is set It true then the point will be 
reset, else the point will be set 

X = «M,n 

This command will display byte n at all video locations 

Example: 

100X = «#4,191 

is the same as: 

100 FORN a 15360TO16383:P0KEN,191:NEXT 

X = «#5 

This command will invert all video locations containing 
characters greater than 127. 

X = *#6,address,n,x,x,x,etc. 

This command allows POKEing multiple bytes into memory 

address- slarting address 

n - number ol bytes to be POKEd 

X = byte to be POKEd 

Example: 

100 X = «#6,27000,7,205.127,10,41,195,15,10 

is the same as. 

100 POKE27000,2O5:POKE27001,127:POKE27002,iaPOKE2/003, 

41:POKE27004,195:POKE27005,15:POKE27006.10 

X ■ «#7,address 

This command allows fetching from memory a 16 bit word 

Example: 

100 X = £«7 ,27000 

is the same as. 

100 X = PEEK(27000) + PEEK|27001)'256 

X ■ **8,address,(value) 

This command allows POKEing a 16 bit word into memory 

address = address to be POKEd 

value = 16 bit word to be POKEd 

Example: 

100 X = & #8,27000,(27000) 

is the same as: 

100 POKE27000,120:POKE27001.105 

X = 4#9,x,y,l«ngth 

This command allows the drawing of a horizontal line 
x = horizontal starting position 
y ■ vertical position of the line 
length ■ length of the line 

Example: 

100X = «#9,0,0,128 

is the same as: 

100 FORX = 0TO127:SET(X,0):NEXT 

X = «#10,x,y,l»ogth 

This command allows the drawing of a vertical line, 
x = horizontal position of the line 
y = vertical starting position 
length = length of the line 

Example: 

100 X = ««10,0,0,48 

is the same as: 

100 FORY = 0TO47:SET(0,Y):NEXT 

X = «#11,x,y>ngth 

This command allows the erasing of a horizontal line, 
x = horizontal starting position 
y = vertical position of the line 
length = length of the line 

Example: 

100 X = «#1 1,0,0,128 

is the same as: 

100 FORX = 0TO127:RESET(X.0): NEXT 

X = *»12,x,y,l«ngth 



Table continues 



Table continued 

This command allows the erasing of a vertical line, 
x - horizontal position of the line. 
y = vertical starting position 
length = length of the line 

Example: 

100 X = S#1 2.0.0.48 

is the same as: 

100 FORY - 0TO47:RESET(0,Y)NEXT 





Program Listing 1. 




42E9 


00180 


ORG 


42E9H 




42E9 CDC901 


00110 START 


CALL 


1C9H 


[CLEARS SCRE 


EM 










42EC 21D244 


00120 


LD 


HL,M1 


(POINT HL TO 


MESSAGE 










42EF CDA728 


00130 


CALL 


28A7H 


{DISPLAY KES 


SAGE 










42P2 21F744 


00140 


I,D 


HL, BASIC 


;HL -START OF 


BASIC-1 










42FS 3600 


00150 


LD 


(HL) ,0 




42F7 23 


00160 


INC 


HL 




42F8 22A440 


00170 


LD 


(40A4H) # HL 


; START OF BA 


SIC PROGRAM 


POINTER-HI. 








42FB 2AB140 


00180 


LD 


HL, (40B1H) 


jHL-TOP OF B 


ASIC MEMORY 


POINTER 








42FE 1ICEFF 


00190 


LD 


DE.0FFCEH 




4301 19 


00200 


ADD 


HL,DE 


;HI.-HL-5§ 


4302 22A040 


00210 


LD 


(40A0H) , HL 


;Start of :;t 


RING SPACE POINTER-HL 








4305 CD4D1B 


00220 


CALL 


1B4DH 


[RESET POINT 


ERS 










4308 CD7644 


00230 


CALL 


LEV3 


[CALL LINKUP 


ROUTINE 










430B C3191A 


00240 


JP 


1A19I1 


[RETURN TO B 


ASIC 










430E CD9D0A 


00250 DUMMY 


CALL 


0A9DH 


( SET NTP TO 


INTEGER 










4311 210000 


00260 


LD 


IIL.0 




4314 CO9A0A 


20270 


CALL 


8A9AH 


[LOAD ACCUM 


WITH ZERO 










4317 2AE640 


00280 RET1 


LD 


HL, (40E6H) 


[HL-ENCODED 


STATEMUNT POINTER 








431A C9 


00290 


RET 






431B F5 


00300 GRAPH 


PUSH 


af 


[SAVE GRAPH I 


CS MODE TO S 


TACK 








431C 7A 


• 0310 


LD 


A,D 


[A-X VALUE 


431D F5 


00320 


PUSH 


AF 


[SAVE IT 


431E 7B 


00330 


LD 


A,E 


;A-Y VALUE 


431F 218D01 


00340 


LD 


HL.18DH 


[POINT TO DU 


MMY STRING 










4322 C350B1 


00350 


JP 


150H 


[GOTO GRAPH I 


CS ROUTINE 










43 25 CF 
X 

4326 2C 


00360 SUB1 


kST 


csh 


[CHECK SYNTA 


00370 


DEFB 


■,■ 


[MUST BE A , 


4327 CF 
X 

432B 28 


00380 


RSI 


08H 


[CHECK SYNTA 


00390 


DEFB 


'(* 


[MUST BE A ( 


4329 CD1C2B 


00400 


CALL 


2B1CH 


[EVALUATE EX 


PRESSION 










432C C9 


00410 


RET 






432D CD2543 


00420 SUB 


CALL 


SUB1 




4330 FE40 


00430 


CP 


40H 


;SEE IF X>63 


4332 D24A1E 


00440 


JP 


NC,1E4AH 


;IF>63 THEN 


PC ERROR 










4335 F5 
E 

4336 CD172B 


00450 


PUSH 


AF 


[SAVE X VALU 


00460 


CALL 


2B17H 


| EVALUATE BX 


PRESSION 










4339 FE30 


00470 


CP 


30H 


[SEE IF Y>47 


433B D24A1F. 


00480 


JP 


NC,1E4AH 


[IF>47 THEN 


FC ERROR 










433E F5 


00490 


PUSH 


AF 


; SAVE Y VALU 


433F CD8C01 
X 


00500 


CALL 


18CH 


[CHECK SYNTA 


4342 22E640 


00510 


LD 


(40E6H) ,HL 


J ENCODED STA 


TEMENT POINTER-HL 








4345 Fl 


00520 


FOP 


AF 


[GET Y VALUE 


4346 5F 


00530 


LU 


E,A 


[SAVE IN E 


4347 Fl 


00540 


POP 


AF 


[GET X VALUE 


4348 87 


00550 


ADC 


A, A 


;X-X«2 


4349 57 


C0560 


LD 


3, A 


[SAVE IN D 


434A C9 


00570 


RET 






434B CD2D43 


00580 SKT2 


CALL 


SUB 




434E D5 


00590 


PUSH 


DE 


[SAVE X,Y VA 


LUE 










434F 3E80 


00600 


LD 


A.80H 


;A-SET GRAPH 


ICS MODE 










4351 CD1B43 


00610 


CALL 


GRAPH 




4354 Dl 

UE 

4355 14 


00620 


POP 


DE 


[GET X,Y VAL 


00630 


INC 


D 


[X'-X + l 


4356 3E80 


00640 


LD 


A,80H 


[A=SET GRAPH 

Program continues 
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Dynamic Report Generator 



No Programming Required 



• Maintain different data fifes, each with it* own set 
of internal logical relationships. 

• Permits user to define customized report formats 
and column headings. 

• Specify arithmetic relationships between columns. 

• Automatic sorting and file compression. 

• Keyed index for rapid retrieval of data. 

• Redefine index by exchanging it with other report 
columns. 

• Flexible add, delete, and list modes. 

• Edit mode allows headings and arithmetic relation- 
ships to be altered without re-entering data. 

• List mode allows for selected ranges and optional 
sub-totals. 

FOR USE ON 48K-TRS-80 MODI. 
1 DISK AND PRINTER. 

PRICE: $14.95 INCLUDES DISK, 

44 PAGE BOOKLET, SHIPPING AND HANDLING. 



DYNAMIC 

58 04 JOoth Street 




SOFTWARE 

Bayside. New folk 11364 



Portion* copyrighted by Microsoft. 1980. 
TRS-80 i» • registered trademark o* Tandy Corp 



ENGINEERING ANALYSIS 
SOFTWARE ,-569 

Box 1 059 

Highstown, N.J. 08520 

(20I) 367-5735 

Critical Pith (CPH) Prof«! Control 

computes networt ujnVuop dates with float 

prints coy and project statu! njkimon repon 

I networt ganct chin 500 node capacity 

TRS-80 (I. II. S III) S North Star HOC 00 

Tub* Bending — labncation data lor bent tube shapes 

input bend recta and node coord*iates 

computes tube cut length, bend and plane angles, segment 

lengths and mandrel stop setting reowred lor bending 

machines - TRS80 |l. II. a III) a North Scar II2S 00 

Linear Programming — computes max/mm cost kinaions 

equations are entered using Iree-lorm input 

TRS-80 (I. II. a III) a North Star 140 00 

Custom applications of this program to compute feed mixes. 

KC cream blends, meat irotures. etc are a»aitaMe 

call lor quote 

Other fngineenng Programs indudog MC2 Sokware 

Space Frame Strvcturel kntfrin 

HVAC Load Computations 

Fire Sprinkler Design 

Hardy Cross Water System Analysis 

Sheet Metal Estimating 




TOTAL 

DISKETTE 

BACKUP 



m 



DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library is not com- 
pletely backed up, or, if you are wasting disk- 
ettes by making backup copies of all your 
diskettes, your problem is solvedl Using 
DUMPLOAD. the total contents of your disk- 
ettes can be safely dumped to tape. The hi- 
speed tape option allows six 35 or 40 track 
diskettes to fit on one C60 casette. 

• TRS-80 Model! 16K-48K 

• TRSDOS or NEWOOS80 Compatible 

• May be used to back-up TRSDOS. VTOS 
4.0, NEWDOS, MICRODOS, or data 
disks. (Single Density) 

— SI 6.95 on Cassette — $19.95 on Diskette 
Plus $1.00 handling (Indiana Ret. add 4% tax) 
TOLL FREE 24 HR. ORDERING SERVICE 
1-800-525-9391 (Ext. 509) (Except Colo.) 
1-800-332-9259 (Ext. 509) (Colo. Residents) 

or Mail Check or Money Order To: rtSfl 
COMPLETE COMPUTER SERVICES '-—— I 

8188 HEATHER DRIVE 
NEWBURGH, INDIANA 47630 --496 



YOUR IDEAS IN 
ACTION 



ENCYCLOPEDIA 
FOR THE TRS-80* 

Wayne Green Books needs 
your articles in the areas of: 
Business, Education, Games, 
Graphics, Hardware, Home 
Applications, Interface, Lan- 
guage, Tutorial, Utility, and 
special interest areas such 
as the Model III and the color 
computer. The Encyclopedia 
is a living network of informa- 
tion for the TRS-80 user— be 
a part of it! Send manuscripts 
to: 

Attn: Encyclopedia Editor 

Wayne Green Books 
Peterborough, NH 03458 



A cassette or disk must accompany any articles 

with program listings. 

"TRS-80 is a trademark of Tandy Corporation 



B1 7 TAPE OPERATING SYSTEM will let you 
e Save & Load programs 6X faster than Model- 1. 
e Save & Load Data Arrays over 800X (aster. 

• Backup standard System tapes that load-n-go. 

• Certify cassette tapes at 3000 baud 
$24.95 Specify Model 1/3 16K/32K/48K RAM. 
Inexpensive Upgrades available 3rd year of sales. 

B1 7 DISK/BAS is a Disk version. Lets you save any 
disk file to cassette at 3000 baud Inexpensive way 
to backup your files. Works with any DOS Includes 
tape certifier Requires 32K RAM-up 
$14.95 

WORDSMITH Word-processing program in BASIC 
A 'Trainer" for more complex W/P programs Easy- 
to-use. Specify Tape/Disk version. Tape version 
requires B1 7 Tape Operating System (above). Disk 
version requires 32 K RAM-up. Uses MX-80 Printer. 
Only $14.95 

30-day money-back guarantee with all programs. 

ABS Suppliers -sso 

3003 Washtenaw. Suite 4A e Ann Arbor. Ml 48104 

(313)973-8266 
Coming soon 
Inexpensive computer service business Write'!! 



SO 



microcomputing 




BINDERS 

order 
yours 
today 



Keep your library of 80 Micr ocompu ting safe from loss 
or domoge in these hondsomely appointed binders with 
rich dork green covers and gold lettering. Eoch binder 
holds 1 2 issues making on EXCELLENT REFERENCE HAND- 
BOOK. Severol binders form o quolity library you can be 
proud of. 

WSOeoci- 3l<x»217J i to- 5*5 00 
Poitoge poid m USA Fcxeign orden pleoie mckxJ* 12 50 lot pentose 

Specify 1*80 or 1M1 
Send check or money order only to: 
80 MICROCOMPUTING BINDERS 
P.O. Box 5120. Phila . PA 19141 

»"c- 6-* -e*-s 'or «»"««-f HkOWAg COO j«d».i vpftme onJe>» 



COMPUTER SOFTWARE 

10% Discount 



ATARI 



TRS SO Lll 



Adventure Series 11-11 T AT. AP $1795Tape 

Conflict 2500 T AT AP 13 50Tape 

Deathmeze 5000 T. AP 1 1 65 Tape 

EmpireoftheOvermind T AT AP »31 50 Disk 27O0Tape 

Invaders from Space T only 13 45 Tape 

Rescue al Rigel T AT. AP 2695 Tape 

Super Script T only 26 95 Tape 

Tawala's Last Redoubt T (Tape) $22 45 Disk »i 7 96 Tape 
AP (Disk) 



Many more games, utilities, business, etc available 
Dlak and Caaaette 

Purchase by M O . Check (Allow 10 days to clear). 

or C O.D 

Add $1 00 Postage Per Order 

(MD Add 5% Sales Tax) 



For price sheet, write to 

'ast-i/a --582 



38c 



Computer Software 

P O BOX 59612 WALTER REED STATION 

WASHINGTON DC 20012 



G 

L)« 

D 

□ 

U 

□ 

D 

D 

D 

C 



'D-D-D 



a 



LNW8(P nD ? 

COMPUTERS • 

'□•□•□•D-D»n»n-o»n-D»u-c]-n 

HIGH RELIABILITY DESI6N n 
TRS-80* COMPATIBLE n 

□ 

□ 



IN STOCK NOW!! call for • 

SPECIAL SYSTEM PRICE! □ 



(213) 851-0626 D 

(711) 973-1939 



EXCELLONIX 



7180 Woodrow Wilson Or, • 
Los Angeles, LA 900b8 c 



D 



□ 



□ 



- See List ol Advertisers on page 402 
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Program continued 








Program continued 








ICS NODE 


















4358 CD1B43 ff6St 


CALL 


GRAPH 




43 E6 2C 


01786 


DEFB 


' , ■ 


(MUST BE A , 


435B C30E43 60669 


JP 


DUMMY 


(RETURN TO B 












ASIC PROGRAM 








43E7 CD022B 


01398 


CALL 


2B02H 


(GBT ADDRESS 


435E CD2D43 0B670 RES2 


CALL 


SUB 














4361 D5 BB68B 


PUSH 


DE 


;SAVE X,Y VA 


43BA 22E640 


01400 


LD 


(40E6H) ,HL 




LOE 








43BD D5 


01410 


PUSH 


DE 




4362 3EB1 00690 


LD 


A,l 


(A-RE5ET GRA 


43EE Bl 


01420 


POP 


BL 




PBICS NODE 








43EF 7E 


01430 


LD 


A,(BL) 




43(4 CD1B43 00700 


CALL 


GRAPH 




43F0 4F 


01440 


LD 


C,A 


(C-LSB 


4367 Dl 09718 


POP 


DB 


(GET X,Y VAL 


43F1 23 


81458 


INC 


HL 




PS 








43F2 7R 


81466 


LD 


A,(HL) 




4368 14 90729 


INC 


D 


;X-X+1 


43F3 47 


81470 


LD 


B,A 


(B-MSB 


4369 3E01 90730 


LD 


A,l 


(A-RESET GRA 


43F4 C5 


01488 


PUSH 


BC 




PBICS MODE 








43F5 El 


81496 


POP 


HI 




436B CD1B43 887 46 


CALL 


GRAPB 




43F6 CD9A0A 


B1566 


CALL 


IA9AH 


(SAVE VALUE 


436E C36E43 66758 


JP 


DUMMY 


( RETURN TO B 


43P9 C31743 


61516 


JP 


RET1 


(RETURN WITH 


ASIC PROGRAM 








VALUE 










4371 CD2043 88766 POI2 


CALL 


SUB 




43FC CP 


61526 STORE 


RST 


B8H 


(CHECK SYNTA 


4374 AP 88778 


XOR 


A 


;A»POINT GRA 


X 










PBICS MODE 








43FD 2C 


01530 


DEFB 


I • 


(MUST BE A , 


4375 CD1B43 86788 


CALL 


GRAPH 














4378 CD7PBA 887 98 


CALL 


0A7FH 


1 CONVERT ACC 


43FE CD022B 


01540 


CALL 


2B02H 


(GBT ADDRESS 


DM TO INTEGER 


















437B CD9ABA 88888 


CALL 


0A9AH 




4401 D5 


01550 


PUSH 


DE 




437E C31743 88818 


JP 


RET1 


(RETURN TO B 


4402 CF 


01566 


RST 


0BH 


(CHECK SYNTA 


ASIC PROGRAM WITH VALUE 








X 










4381 CD172B 68828 WHITE 


CALL 


2B17H 


(EVALUATE BX 


4403 2C 


01570 


DEFB 


• , I 


(MUST BE A , 


PRESS ION 


















4384 22E648 88838 


LD 


(48E6H) ,HL 


(ENCODED STA 


4404 CF 


01588 


RST 


BBH 


(CBBCK SYNTA 


TEMENT POINTER-HL 








X 










4387 21863C 66846 


LD 


HL,3C00H 


(BL-START OF 


4405 28 


61598 


DEFB 


'<' 


(MUST BE A { 


VIDEO MEMORY 


















438A 618684 86858 

P VIDEO MEMORY 


LD 


BC.1024 


(BC-LEHGTH 


4486 CD022B 
4489 D5 


81668 

61616 


CALL 
PUSB 


2B62B 

DE 


(GBT NUMBER 


438D 77 88868 HH11 


LD 


(BL) ,A 


(DISPLAY BYT 


448A CD8C01 

X 

440D 22E640 


81620 


CALL 


1BCB 


(CBBCK SYNTA 


E AT (HL) 

438E 23 88878 


INC 


HL 




01620 


LD 


(46E6B) ,HL 




438P 8B 88886 


DEC 


BC 




4410 Dl 


01646 


POP 


DE 




4398 57 88898 


LD 


D,A 


(SAVE BYTE T 


4411 El 


816SB 


POP 


HL 




BE DISPLAYED 








4412 7B 


81666 


LD 


A,E 




4391 78 86968 


LD 


A,B 


(CHECK 


4413 77 


81678 


LD 


(BL),A 


(POKE LSB 


4392 Bl 86916 


OR 


c 


( FOR END 


4414 23 


B1686 


INC 


BL 




P MEMORY 








4415 7A 


01690 


LD 


A,D 




4393 7A 88928 


LD 


A,D 




4416 77 


01706 


LD 


(HL),A 


(POKE MSB 


4394 26P7 86938 


JR 


NX,HBU 


(CONTINUE UN 


4417 C30E43 


01710 


JP 


DUMMY 




TIL END OP VIDEO MEMORY 








441A CD172B 


B172B LINES 


CALL 


2B17H 


(GET X VALUE 


4396 C3BE43 86948 


JP 


DUMMY 














4399 22E646 88959 REV 


LD 


(40E6B) ,HL 




441D F5 


61736 


PUSH 


AF 




439C 21B83C 8B96B 


LD 


HL,3C00K 


(BL-START OF 


441E CD172B 


61748 


CALL 


2B17H 


(GBT Y VALUE 


VIDEO MEMORY 


















439P 818884 08978 


LD 


BC, 949811 


(BC-LENGTH 


4421 F5 


81750 


PUSH 


AF 




P VIDEO MEMORY 








4422 CD172B 


01760 


CALL 


2B17B 


(GBT LENGTB 


43A2 7E 86988 REV2 


LD 


A, (HL) 


(A-VIDEO MEM 


4425 22E640 


01770 


LD 


(4BE6H) ,HL 




ORY (HL) 








4428 47 


01788 


LD 


B,A 


(B-LENGTB 


43A3 PE88 88998 


CP 


BBH 


(CHECK FOR G 


4429 Fl 


01790 


POP 


AF 




RAPHICS CODE 








442A 5F 


01800 


LD 


E,A 


(E-Y VALUE 


43A5 3886 81SBB 


JR 


C.REV1 


(IF NOT GOTO 


442B Fl 


01810 


POP 


AP 




REV1 








442C 57 


01828 


LD 


D,A 


(D»X VALUE 


43A7 2P 81818 


CPL 




(INVERT A 


442D C9 


01830 


RET 






43A8 CBPF 81828 


SET 


7, A 


I SET BIT 7 


442E CD1A44 


01846 HLINS 


CALL 


LINES 












4431 3E80 


01850 hLIl 


LD 


A,88H 


(A-SET GRAPB 


43AA CBB7 81838 


RES 


6, A 


( RESET B 


ICS MODE 










IT 6 








4433 C5 


01868 


PUSH 


BC 




43AC 77 81846 


LD 


(HL) ,A 


(DISPLAY BYT 


4434 DS 


81878 


PUSH 


DE 




E 








4435 CD1B43 


61886 


CALL 


GRAPB 




43AD 23 81656 REV1 


INC 


HL 




4430 Dl 


61896 


POP 


DE 




43AB SB 01866 


DEC 


BC 




4439 CI 


01900 


POP 


BC 




43AP 78 01870 


LD 


A,B 


(CHECK 


443A 14 


01910 


INC 


D 


(X-X+l 


43B0 Bl 01080 


OR 


C 


( FOR END 


443B 10P4 


01920 


DJNZ 


BLIl 


(LOOP TILL L 


P VIDEO MEMORY 








INZ SET 










43B1 20EP 01090 


JR 


NZ,REV2 


( IF NOT 


443D C30B43 


01930 


JP 


DUMMY 




JUMP 








4440 CD1A44 


01949 VLINS 


CALL 


LINES 




43B3 C30E43 01100 


JP 


DUMMY 




4443 3E80 


01950 VLI1 


LD 


A,88H 


(A-SET GRAPH 


43B6 CF 01110 PORE 


RST 


BBH 


(CHECK SYNTA 


IC8 MODE 










X 








4445 CS 


01960 


PUSH 


BC 




43B7 2C 01120 


DEFB 


"'■ 


(MUST BE A i 


4446 DS 

4447 CD1B43 


01970 
0198B 


PUSH 
CALL 


DB 
GRAPB 




43B8 CD822B 81138 


CALL 


2B62H 


(GET ST ART IN 


444A Dl 


81998 


POP 


DE 




G ADDRESS 








444B CI 


62000 


POP 


BC 




43BB OS 61148 


PUSH 


DE 


(SAVE IT 


444C 1C 


62816 


INC 


E 


(Y-Y+l 


43BC CD172B 61156 


CALL 


2B17B 


(GET NUMBER 


444D 10F4 


62020 


DJNZ 


VLI1 


(LOOP TILL L 


OP BYTES 








INE SET 










43BF PS 81166 


PUSH 


AF 


(SAVE IT 


444F C30B43 


02030 


JP 


DUMMY 




43C6 22B648 81178 


LD 


(46E6H),HL 




44S2 CD1A44 


02040 HLINR 


CALL 


LINES 




43C3 1881 81186 


JR 


POX1 




445S 3E01 


02050 BLI2 


LD 


A,l 


(A-RESET GRA 


43CS C5 81198 POK2 


PUSH 


BC 




PHICS NODE 










43C6 2AE646 01200 POK1 


LD 


HL,(46E6H) 




4457 C5 


02066 


PUSH 


BC 




43C9 CD172B 01210 


CALL 


2B17H 


(GET BYTB TO 


4458 DS 


02878 


PUSH 


DE 




BE POKED 








4459 CD1B43 


02886 


CALL 


GRAPB 




43CC 22B640 01220 


LD 


(4BE6H) ,HL 




445C Dl 


82898 


POP 


DE 




43CF CI 01230 


POP 


BC 




44SD CI 


B21BB 


POP 


BC 




43D0 Bl 61240 


POP 


HL 




445E 14 


02110 


INC 


D 


(X-X+l 


43D1 77 01250 
43D2 23 01260 


LD 
INC 


(HL),A 
HL 


(POKE BYTB 


445F 16F4 

IKE RESET 


02120 


DJNZ 


HLI2 


(LOOP TILL L 


43D3 B5 01270 


PU£H 


HL 




4461 C3BE43 


02130 


JP 


DUMMY 




43D4 10BP 01280 


DJNZ 


POK2 


(IF BYTES LE 


4464 CD1A44 


02140 VLINR 


CALL 


LINES 




FT JOMP 






4467 3ES1 


02150 VLI2 


LD 


A,l 


(A-RESBT GRA 


43D6 Bl 8.1 i 96 


POP 


ML 




PHICS MODE 










43D7 C30B43 01300 


JP 


DUMMY 




4469 C5 


02166 


PUSH 


BC 




43DA CD012B 01310 USR 


CALL 


2B61B 


(GET ADDRBSS 


446A DS 
446B CD1B43 


02178 
02188 


PUSH 
CALL 


DE 
GRAPH 




43DD CD538E40 01320 


LD 


(468BB) ,DE 


(SAVE IN ENT 


446L Dl 


62190 


POP 


DB 




RI POINT LOCATTION 








446F CI 


B22BB 


POP 


BC 




43B1 CF 01330 


RST 


BBH 


(CHECK SYNTA 


4478 1C 


B2216 


INC 


S 


(Y-Y+l 


X 








4471 1BF4 


02220 


DJNZ 


VLI2 


(LOOP TILL L 


43E2 2C 01340 


DEFB 


'»' 


(MUST BE A | 


INE RESET 
4473 C3BE43 


02230 


JP 


DUMMY 




43E3 2B 01350 


DEC 


HL 




4476 3EC3 


02240 LEV3 


LD 


A.8C3H 




43B4 C9 01366 


RET 






4478 329441 


02250 


LD 


(4194B) ,A 


(SET UP 


43B5 CF 01370 FETCH 


RST 


B8H 


(CBBCK SYNTA 


447B 218B44 


02260 


LD 


HL,PT 


1 6 


X 






Program continues 


447E 229S41 


02270 


LD 


(4195B) ,BL 


( LINK 

Program continues 
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Program continued 



4481 32A941 
4484 21DA43 
4487 22AA41 
448A C9 
448B D7 
448C CF 
X 
448D 23 

448E CD1C2B 

NUMBER 
4491 FB0D 
4493 D24A1B 
0>12 THEN FC 
4496 PEI1 
4498 CA4B43 
449B FEI2 
449D CA5E43 
44AI FEB3 
44A2 CA7143 
44A5 FEI4 
44A7 CA8143 



02280 

02290 

02300 

02310 

02320 PT 

02330 

02340 

02350 

02360 
02370 
ERROR 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 



LD 

LD 

LD 

RET 

RST 

RST 



CALL 

CP 



CP 
JP 
CP 

JP 

CP 

JP 

CP 

JP 



(41A9H) ,A 

HL.USR 
(41AAH) ,HL 

III 

08H 

'•' 

2B1CH 

13 
NC,1E4AH 

1 

Z.SET2 

2 

Z,RES2 

3 

Z,POI2 

4 

Z,WHITE 



(SET UP 

; USR 

> LINK 



; CHECK SYNTA 
(MUST BE A * 
(GET COMMAND 

; IP COMMAND 



10CLS 

20 X = *«,27000,7,205,127,10,41,19S,154 1 10 

30 FORN = 1TO10:PRINTN;"*2 = •;USR27000,(N):NEXT 

Program Listing 2 



10CLS 

20FORN = 0TO83 

30 FORN1 =0TO47STEP2 

40X = *#1,(N,N1) 

50 NEXTN1.N 

60FORN=0TO83 

70FORN1=0TO47 

80 IF&*3,(N,N1)THENX = 4#2,(N,N1)ELSEX ■ &#1,(N,N1) 

90NEXTN1.N 

100GOTO60 



Program Listing 3 



10CLS 

20 X = *#4,19ftPRINT® 0,"HELLO"; 

30IFINKEY$ = ""THEN30 

40X = «#5 

50GOTO50 

Program Listing 4 



10CLS 

20X = M8,27000,<12345) 

30 PRINT&#7,27000 

Program Listing 5 



10CLS 

20 FORN = 0TO47:X ■ «#9,0,N,128:NEXT 

30 FORN - 47TO0STEP - 1:X = *#1 1 ,0,N,128:NEXT 

40 FORN«0TO127:X = «#10,N,0,48:NEXT 

50 FORN = 127TO0STEP- 1:X = «#12,N,0,48:NEXT 

Program Listing 6 



44AA 


FEB 5 


02460 


CP 


5 




4 4 AC 


CA9943 


02470 


JP 


Z,REV 




44AP 


PE06 


02480 


CP 


6 




44B1 


CAB643 


• 2490 


JP 


Z.POKE 




44B4 


FB07 


02500 


CP 


7 




44B6 


CAE5 43 


02510 


JP 


Z, FETCH 




44B9 


FEBB 


02520 


CP 


8 




44BB 


CAFC43 


02530 


JP 


Z, STORE 




44BB 


FE09 


02540 


CP 


9 




44C1 


CA2E44 


02550 


JP 


Z,HLINS 




44C3 


PBtA 


02560 


CP 


10 




44C5 


CA4044 


02570 


JP 


Z.VLINS 




44C8 


PE0B 


02580 


CP 


11 




44CA 


CAS244 


02590 


JP 


Z,HLINR 




4 4 CD 


PE9C 


02600 


CP 


12 




44CP 


CA6444 


02611 


JP 


Z,VLINR 




44D2 


45 


02620 Ml 


DBFM 


'ENHANCED BASIC VI 


0' 


44E5 


0D 


12631 


DEFB 


0DH 




44B6 


42 


02640 


DBPM 


'BY MARK GOODWIN' 




44P5 


0D00 


02651 


DEFW 


0DH 




44P7 


II 


92660 BASIC 


DEFB 







42E9 




12671 


END 


START 






NOW-A MODEM 

AND MUCH, 



MUCH MORE! 



AUTOTERM— The ultimate TRS-80* terminal package that 
exploits the full capabilities of your computer and the 
MICROCONNECTION -' with Autodial/Autoanswer. It has ALL 
the features of the •'other" smart terminal programs, plus: 

• Dials MICROCONNECTION™ from terminal 

• Allows full I/O translation 

• Complete modem control and handshaking 

• Paged screen scrolling 

• Spooled printer output 

• Parity, overrun and framing errors status 

• Fully user-configurable 

• Includes 77-page manual 

• Text editor and hex conversion utilities 

• Requires TRS-80 Model I or III, 32K and 1 disk drive 

• Price— $99.50. Documentation alone— $1 5.00 

SMART SERIES SOFTWARE FROM THE 
MICROPERIPHERAL CORPORATION 

All terminal programs feature manual or automatic 
upload/download, two user-defined messages, auto prompt 
message entry, transfers EDTASM and Orchestra-80 files, for- 
mats screen line length, file transfer speed selection, 
upper/lower case drivers, auto-repeat key, "beep" function for 
keystroke entry, buffered print output, compatible with SCRIPSIT 
and PENCIL. Comes with text generator for those who do not 
have a word processor. 

SMART 80D (disk)— $29.95 purchased alone or FREE* 

Requires Model I 32K plus one disk drive. Available for both 
RS232 and Buss-decoding MICROCONNECTION.^ 

SMART 80C (cassette)— $29.95 purchased alone or FREE* 
Requires Level II 16K-48K system. Available for both RS232 
and Buss-decoding MICROCONNECTION.'^ 

SMART 80E (wafer)— $29.95 purchased alone or FREE* 
Ti le first and only smart terminal program for the EXATRON 
"Stringy Floppy." Requires Level II 16K plus one ESF drive. 

SMART MID (disk)— $49.95 purchased alone or $20.00 with 
purchase of MICROCONNECTION. 
The FIRST smart terminal program for the Model III. Offers 
popular features of SMART 80D plus several new features 
associated with the Model III. Requires Model III 32K plus 
one disk drive and RS232 board. 

SMART IMC (cassette)— $29.95 purchased alone or FREE* 
The FIRST cassette-based smart terminal program for the 
Model III. All the power of SMART 80C plus numerous other 
features. Requires Model III Level II 16K plus RS232 board. 

*One software package included with the purchase of each 

MICROCONNECTION.^ 
# Trademark of the Tandy Corp. 

the micropenpheraf corporation 



2643 151st PI. NE 
Redmond, WA 98052 
206/881-7544 

• 306 




vSee List of Advertisers on page 402 



80 Microcomputing, November 1981 • 389 



UTILITY 



With a mite of effort, it'll work on your Model III! 



T-Bug III 



Kevin Kleinfelter 
3337 Sevier Ave, Apt. 3 
Knoxville, TN 37920 



When you bought your Mod- 
el III you may have been 
told, "And we'll have T-Bug for 
Model III very soon." Well, after 
three months of waiting, I finally 
gave up and fixed it myself. This 
article will show how easily you 
can make T-Bug run on your 
Model III. 

A First Attempt 

Unwilling to believe Radio 
Shack, I loaded my Level II 
T-Bug into my Model III and tried 
it out. Voila...all the com- 
mands worked except the tape 
routines. Upon studying dumps 
of T-Bug and ROM, I learned that 
the tape I/O performed by T-Bug 
is completely incompatible with 
Model III. The solution? Replace 
T-Bug's tape routines with 
Model III ROM routines. 

Stepl 

Load T-Bug at 500 baud. The 
punch command's tape routines 
are replaced by ROM calls here. 
In place of T-Bug's routines, put 
ROM's write header, write byte, 
and cassette off routines. Use 




ADDR INSERT 
46DD 000000 
46EB CD8702 
46EE 180B 
46FE 6402 
4706 6402 
47136402 
4717 6402 
4725 6402 
4729 6402 
4731 6402 
4737 6402 
473D 6402 
4740 F801 
4746 6402 
474A 6402 
4750 6402 
4759 6402 



Fig. 1 



AODR INSERT 
4643 000000 
46479602 
4649 1807 
464BAF 
464C 00000000 
4653 3602 
465C3502 
4661 3F3C 
4666 3F3C 
4669 3502 
4674 3502 
467D3502 
4686 3502 
4699 F801 
4690 3502 
46A1 3502 



Fig. 2 



T-Bug's memory command to 
make the changes shown in 
Fig. 1. 

Steps 2 and 3 

Now the T-Bug routines for 
the Load command are replaced 
by calls to ROM's read header, 
read byte, and cassette off. 
Once again use the memory 
command (see Fig. 2). 

Finally, use the memory com- 
mand to change location 4211 
(hex) to anything but 00. This 
sets the cassette speed to 1500 
baud. Set up the tape recorder 
and type "P 4380 4980 43A0 
TBUG" and hit Enter. While 
you're at it, why not punch out 
several copies so you won't 
have to rewind after each load? 

As with all new programs, test 
your new T-Bug thoroughly. 
Also, you probably will want to 
look up one of those articles 
about relocating T-Bug to high 
memory. 

Another Choice 

Alternatively, you can use an 
assembler (perhaps EDTASM 
modified to run on Model III) 
to make a patch tape. Load 
EDTASM, then the patch tape, 
and then take T-Bug and punch 
out several copies. Now you 
have your own T-Bug III!! 
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COLORSOFT™ 

' 'Quality Software at an Affordable Price ' ' 
TRS-80* Color Computer Software 
Priced From $7.95 

• Home/personal • Games 

• Educational • Financial 

We Also Offer: 

• Custom Programming 

• Royalties for Software 

Documentation and a limited guarantee 
with all COLORSOFT™ software. 
Free catalog containing descriptions of 
30 software items, write to: too 

Color Software Services 

P.O. Box 1723 
Greenville, Texas 75401 

•Tandy Cap Trademirx vsj, tAKsrarn Acwpwc 



64K COLOR 

TRS-80' COLOR 
COMPUTERS 

64K $699 16K $389 

32K $429 4K $329 

Add $90 for extended basic 

EXPANSION KITS 

64K $375 16K $35 

32K $75 XBASIC$90 

Call for details on other TRS-80' 

computer* & accessories. 

SOUND CENTER ^* 
RADIO SHACK DLR 
Los Alamos, NM 87544 
(505) 672-9824 

"TRS-80 la e trademark of 
Tandy Corp. 




If You've Written A Program 

And Need Copies 

(1 to 1,000,000) 

Give Us A Call! 

Penner Bros.. Inc. 

305-287-0588 .** 

210 Seville St. Stuart, FL 33494 



Data Acquisition 

and Control for the TRS-80* 

$180 ppd. 

The STAR8UCK-8882 is a complete eight channel 
data acquisition and control system, plug 
compatible with the Model I Level ll TRS-80 it 
includes 8 protected analog inputs (0-5 Vdc with 
8± 1 bit accuracy). 8 protected digital inputs. 8 
optoisoiated digital outputs, and two joystick 
ports Interrupt-dnven sottware package allows 
simultaneous data acquisition and storage while 
using the TRS-80 tor any other purpose 1 
Application manual covers home security, energy 
monitoring, weather station use. appliance 
control, graphics and games Price includes 
case, power supply, extra expansion card edge, 
connector cable, complete software package and 
detailed applications manual Manuals only are 
available tor $4 00 ppd Model III version also 
available. To order, write: 

STARBUCK DATA CO. 

P.O. Box 24, Newton. MA 02162 



Massachusetts residents add b% sales lax 
•TRS-80 is a trademark ol Tandy Corp 
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TR&80M0DEU™ 

GOLDPLUG 80 

Eliminate disk re-boots and data 
loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG - 80 solders to the 
board card edge. Use your ex- 
isting cables. 
CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

(817)4984242 

"TRS-80 is a trademark of 

Tandy Corp. 
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TAfciSSS" 8 ' 



PROFESSIONAL 
FEDERAL INCOME TAX 
PROGRAMS 

• For TRS-80 Model I or Model Ml Requites 2 Disk 
Dn»es ano 32K 

• Determines Leasi Tai Quickly 

• Essential Inlormation Relayed Oetween forms 
Automatically Avoids Duplicating Entries 

• Uses IRS prescribed Computer Generated Punt ouls 
« Prohibits Bypassing ol Mandatory Entries 

• Accuracy Assured by Tuple Cntck Logic 

• Enter only Pertinent Lines Mucn Fastei Irian Line 
by Line Entry 

• Single Line Correction with Automatic Update ol 
Succeeding Totals 

Basic Package 1040 I040A Schedules A B * TC 

AM tor $100 00 Addihonai Schedules S25 00 eacn 

Single Schedules may be purcnased sepaiately 

Send $?50 lor Fun Description and Samples 

(applied to purchase pncei 

BS MICRO-TAX M 

P.O Box 4262, Mountain View, CA 94040 

Call: (415) 964-2843 ^ 



^ 




&&& 



If You've Written a 
Topnotch Program- 
We'd Like to Publish It! 
Programs needed for BUSINESS/ 
OFFICE Applications: 
WORD PROCESSING 
PAYROLL/TAX CALCULATION 
GENERAL LEDGER/ AR-AP 
ORDER ENTRY/INVENTORY 
Start collecting jour royalty 
checks soon! Write for our free 
Programmer's Kit today. 
INSTANT SOFTWARE. INC. 
Submissions Dept. 
Peterborough. NH 03458 



^2 



o. 



4S0& 




<& 



$F 



If You've Written an 
Outstanding Program- 
We'd Like to Publish It! 

We're looking for EDUCATION 

Programs: 

SPECIAL EDUCATION/ AID 

TO THE HANDICAPPED 

MULTI-MEDIA COMPUTER INSTRUCTION 

TEACHER-AUTHORING LANGUAGES 

MANAGEMENT TRAINING 

SIMULATIONS 

Earn money while helping others. 
Write for our free Programmer's 
Kit today! 

INSTANT SOFTWARE. INC. ^2 
Submissions Dept. 
Peterborough. NH 03458 



Smartmodem 




* 



» Auto-Answer • Auto-Dial • Repeat 
► Programmable • Use Any Language 

• Touch-Tone and Pulse Dialing 
Audio Monitor • Listen to Connection 

• FCC-Approved Di'ect-Connect 

• Full or Half Duplex. 0-300 Baud 

» RS-232C Interface • 7 Status LED s 
• Two Year Limited Warranty 

$249 

Send certified check or money order 
Allow two weeks lor personal check 
Florida residents add 4% sales tax 

HC€ computer products 

^2-,'-. of Florida Inc. 

1640 NW 3rd STREET 
DEERFIELD BEACH. FLA 33441 A 



• See List at Advertisers on page 402 
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APPLICATIONS 



A median-length statistics program 

for those who have deviated from big computers. 



Pocket Stats 



Dr. Walter J. Atkins, Jr. 

Qtrs. 441 OA 

USAF Academy, CO 80840 



As an educator and scien- 
tist, I frequently need to 
find statistics for a set of data. I 
have found my TRS-80 Pocket 
Computer ideal for making these 
calculations. 

This program will find and 
display a great deal of sta- 
tistical information. It will ac- 
cept a data set of up to approx- 
imately sixty values, and will 
find the average value, the 
variance, the standard devia- 
tion, the median value, the high 
and low data values, and the 
midrange of the set. 

I had just finished writing 
and testing this program when I 
read Len Gorney's article, "On 
the Average," in the May 1981 
issue of 80. That prompted me 
to include the midrange calcu- 
lation in this program. His arti- 
cle is also a good reference for 
explanations of the mean, mid- 



range, and median. 

The variance and the stan- 
dard deviation are statistics 
that indicate how much data 
values deviate from the mean. 
The standard deviation is the 
square root of the variance. 
One use of the standard devia- 
tion is in assigning grades to 
test scores. The mean value of 
the students' scores is as- 
signed the grade of C. The 
scores in the B range lie one 
standard deviation above the 
mean. The scores in the A 
range lie two standard devia- 
tions above the mean. Likewise, 
scores assigned D and F are one 
and two standard deviations be- 
low the mean. 

The following numbers repre- 
sent the scores that a group of 
students received on a test; 
we'll use the Pocket Computer 
to find the statistics for these 
grades. The students' grades 
are 47, 52, 57, 65, 72, 77, 55, 61, 
85, 87, 66, 75, 98, 88, and 73. 

The mean value of the fifteen 
scores is 70.533. The variance 
is 219.552. The standard devia- 
tion is 14.817. The highest set 
value is 98. The lowest value is 
47. Thus, the midrange value is 
72.5. To calculate the median 



value, the computer first sorts 
the values into ascending 
order, which takes about one 
minute and thirteen seconds 
for the 15 data values used 
here. Since there is an odd 
number of values, the median Is 
the value in the middle of the 
sorted list. In this case that is 72. 
The portability of the Pocket 
Computer facilitates data analy- 
sis almost anywhere, I use my 
computer so much that it is 
never further away than my 
briefcase. 

The Program 

The program is 53 lines long. 
It is capable of storing a data set 
and its associated statistics so 
the data can be entered at one 
time and the statistic read out at 
another. 

Line 150 allows thedisplay of 
a previously stored data set 
and its associated statistics. 
Line 170 initializes program 
variables. Lines 180-240 enter 
and store the values. Lines 
250-330 calculate and display 
all statistics except for the me- 
dian value. Line 340 determines 
if the median is to be calcu- 
lated. Lines 370-400 sort the 
values into ascending order. 



Lines 410-440 calculate and 
display the median value. Line 
450 allows the data entered to 
be stored in the Pocket Com- 
puter's permanent memory for 
later recall. Lines 500-530 
display a stored data set. 

The variables used in the pro- 
gram are shown in Table 1. ■ 



A 




B 




c 




D 


— Data value 


E 




F 




G 


— Sum of data values 


H 


— High data value 


1 

J 
K 


— Sum of squared data values 


— Sort flag 


L 


— Low data value 


M 




N 


— Number of data points 


o 




P 


— Mean value 


Q 


— Median value 


R 




S 


— Standard Deviation value 


T 


— Store data flag 


U 


— Midrange value 


V 


— Variance value 


w 


— Median routine pointer 


x 


— Loop counter 


Y 


— Storage array pointer 


z 


— Median calculated flag 




Table 1. 


Statistics Program Variables 
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100 REM *STflTlSTICS* 

110 REM *U. J. ATKINS* 

120 REM »CCF VPIOHTEt * 

130 REM "MRYSl* 

14 PAUSE "• STATISTICS ♦" 

ISO IF T-l INPUT "tSFL. STORED W*TA CV. -Ni " ;R» . IF fi*«"Y" 

THEN 300 

160 IF T-l INFIX! -CLEAR WVTfl O. - M> ■ " ;R* . IF R-*-"N" THEN 150 

170 L-=0:G-0.H=»Cl. I-O.M«0.F«0.O«0. i-0.T«0:U«0.Z-0 

ISO IHF-UT »HOU MflMi IftT* URLUES? ";N 

190 .=_: :L'yy ;-•>:-? 

2 00 FOR .;=1 TO H 

210 INPUT "COTh MfiLUE= ";I»;A<Y>"P:Y»V*I 

22 0=G»C-.JF [ H LET H-t 

250 I-1H U . IT :.L LET L-C' 

240 HE..T X 

250 PaG'N 

260 '-!«=■ 1-0*0- N wH-l/iS" V - '.' 

IT'O USING "••»•.•••" 

2S0 FR1HT "AVERAGE .MEAH,=";F 

290 PRINT 'VARIANCE*' '.' 

iOO PRINT "STANDARD CEU.=".S 

310 PRINT "MICH C'MTA UmUJE=".H 

320 PRINT "LOU DATA "ftLUE»" L 

330 l.l«LH.H-L,.;/:FC.IHT "MICRANGE UALUE--.U 

340 IF <.«0 INFUT "CONFUTE NEllAN <Y, N>" " . ft ; U-INT>.H.-2> ; 

IF R#«"H ' THEN 450 

35-0 IF Z'l THEN 440 

360 RAUSE 'PLEASE UAIT" 

370 K»0.FOR .i=27 TO N*26 

3SC IF A<X>>A<X»l> LET fl»fl.,;.;B»fl;.XM 

390 NE.iT X 

400 IF t =1 THEN 370 

4H"; IF U»2«N LET &•> AtUI*26'/*A<U»27)>- 2; GOTO 430 

420 a=Avu«-i; . 

430 EEEF 2 

440 PRINT "NEC'IAN» H ;Q;2*1 

450 INPUT 'RETAIN C-ATA O, N,-":R*.IF R*-"N" LET T-0. 

GOTO 4.0 

410 1-1 

420 GOTO 140 

500 REN H-ATAC IC-FLA', * 

505 PRINT NUIIECF OF DATA-" N 

510 FOR :->27 TO M+26 

520 PRINT 'DATA»-;A<JO:HEHT X 

530 GOTO 27 

Program Listing. Pocket Computer Statistics Program 
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Wit* Grew loc nd 
Dtsktop Coupling in- 

rhe you to share your 
computer experiences 
witti us. II you haw ex- 
perience with a success- 
ful business application 
or installation- or if too 
know someone who dots 
-«t would in to Iw 
about rt. Drop us a line— 
or. better still, a many- 
scripl-fctalag it ins 
and outs ot your applica- 
tion . And do it soon. We 
don't want you to miss 
out on this opportunity. 
For more information, 
write to: 





First in 

Its Class 

and 

Looking 

for 

Work. 



TRS-80 Model I, II, III 

Five multiple regression procedures 
(including stepwise, backward elimination, all 
subset, and ridge). 24 transformations, com- 
prehensive data base manager (with search 
and sort), descriptive statistics, hypothesis 
testing (7 tests), time series analysis (7 
models), random variate generation, discrete 
probability distributions, sampling distribu- 
tions, nonparametrics (5 tests), and com- 
plete documentation. 

Complete package with manual — $125 

To order, send payment plus $2.00 shipping 
and handling to: 

Quant Systems .^271 

P.O. Box 628 

Charleston. S.C. 29402 

803-571-2825 

S.C. residents add 4% sales tax 

Overseas orders add $7 for shipping 



MOVING? 

Let us know 8 weeks in advance so that you won't miss a sin- 
gle issue of 80 Microcomputing. 

Attach old label where indicated and print new address 
in space provided. Also include your mailing label 
whenever you write concerning your subscription. It 
helps us serve you promptly. 



□ Address change only 
D Extend subscription 

□ Enter new subscription 
D_\jear $25X)0 



G Payment enclosed 

(1 extra BONUS issue) 
D Bill me later 



80 MICROCOMPUTING 



If you hove no label handy, print OLD address here. 
Call 



03 Name 
^1 



Address 



t City. 



State. 



Zip. 



Name 



print NEW address here: 
Call 





TRS-eO* MOD III 46K 

WITH YOUR CHOICE OF MPI DISK 
DRIVES INSTALLED LP TO 4 MEG 
ON LINE STORAGE 



48K MCO III with (2) INTERNA! 40ttk DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 80trk DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 40/40»ri< DRIVES 

AS ABOVE EXCEPT WITH (2) INTERNAL 80/80trk DRIVES 

RS232 INTERFACE INSTALLED - ADD - 

External add on Drive Coble 

B5Vs-40trk S 30900 B52s 40/40rV 

B91s80trk S429QO B92 s-80/80trk 



MCOHITRSDOS 12 DISKETTE 
MOO HI TRSDOS MANUAL 
MOO .11 QOSPLUS " 

" required fa doubieheod or mixed drives 



6 MONTH LEVEL IV PRODUCTS INC. 

LIMITED 32461 SCHOOLCRAFT 

WARRANTY LIVONIA. MICHIGAN 48150 

ON PARTS toll free 800-521-3305 

AND LABOR instate 313-525^200 

visa-master cara-C O D 



S185POO 
S211900 
S214900 
$2419 OO 
S 8900 
S 2500 

$445 OO 

$579 OO 



S1495 

695 

9995 



evew 



►-See List of Advertisers on page 402 
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2 games per cassette 



for theTRS-80 Model i or III. 16 H 
level 1 1 or Model 1 1 1 BASIC microcomputers . 
til our programs hive 

ACTION SOUNDS & GRAPHICS 




foil design your own space lighter and 
then blast off into battle. Human or 
10 Computer Opponents Fight ■■ 2 or 3 
dimensions. Three scenarios "Smuggler". 
"Refuel Option '.and "Phoenn Decathlon' 

THE NEW STARSHIP VOYAGES 

A brilliant "trek" type space war 30 
galaxy with wrap around. Moving enemy 
cralt, some are "Cloaked ". 16 commands. 
Rescue starbase Delta from the Rogues 
catalog Mo 2001 J 19 95 




PAR SECTOR V 



Still 

The 

Ultimate 
Space 

War 



Unique split screen gives each player a 
private display launch fleet battle craft 
and watch them fight Fire high powered 
energy beams or short range weapon spreads 
Human or computer opponent 

PARSECTOR 8 tournament Version. 
Giant galaiy to cooquei Intense Strategy ' 
catalog No. 2002 S 19 95 




! ! ! ants ! ! ! 



Amazing 

War 
Between 

Ant 
Colonies 



Fast, machine language speed Three game 
variations: "Open Field ", "Mest Barrier". 
and "Digging Ants" 2 players or computer 
opponent, (asytoplay, Challenging to 
master. Fun tacked game for all ages ! ! ! 

THE NEW STARSHIP VOYAGES 

catalog No 2003 S 14.95 



HIGH SPEED LIFE 

The FASTEST, most ADVANCED version of 
IK Conway s famous mathematical game. 
Spectacular kaleidoscopic animation. 
500 gen/mm typical 32 preprogrammed 
pattern Multiple control functions 

( RatadNol «i BOSoltwaitCfiliqu*, Hsue S 

NAME THAT STATE QUIZ 

A top notch educational game Draws 
50 states and asks five questions. 
Three quiz types. Easy to use 
catalog No 2004 $ 14.95 



Disk Owners 

On special request the above games are 
available on cassette ( you transfer), same price. 
compatible with TRSDOS Disk Basic 4SK 



Ado S I 00 poslaga » handling. COD add *? 50 
Fla.Rn.addaMai «*rtw Check w MO pay*** 10 

Synergistic Solar, Inc. 

POBox 560595. Miami FL 33156 

^231 

PMaMnnil* Kx mo<e «ilo Dealer inquiry mvit«J 



REIOAD 80 



You've noticed those LOAD80 
tape files with the note, 
"Needs EDTASM" in the com- 
ments column. These are ma- 
chine language programs in 
source code format. Radio 
Shack's EDiTor/ASseMbler 
(EDTASM) is required to load 
and use these files. If you have 
ignored them because you 
didn't want to take the time to 
learn how to use the Editor/As- 
sembler here is a quick tutorial 
to help you get started. 

The Radio Shack Editor/As- 
sembler for the Model I and the 
newly released package for the 
Model III both use the same 
command structure. There are 
tape and disk versions for both 
TRS-80 Models. The machine 
language programs in 80 Micro- 
computing are always printed in 
EDTASM format. These pro- 
grams are listed as assembly 
language source code files. 
These programs must be en- 
tered into the computer using 
the Editor/Assembler, either by 



hand or from tape, and then as- 
sembled and recorded on a sep- 
arate tape (or disk) before they 
can be run. Remember, a source 
code file will not run— it must be 
assembled first. 

To load a LOAD80 source 
code file, first load your EDT- 
ASM program. Once loaded, you 
should see the asterisk (*) 
prompt. Now, type L (or LT or LD 
with a disk based version), fol- 
lowed by an equals ( = ) sign, 
and a filename. (If you press the 
space bar five or six times in 
place of the filename, EDTASM 
will load the first file it encoun- 
ters—for tape files only.) Then 
press PLAY on your tape record- 
er to load your file. The familiar 
asterisk pair will appear and one 
will flash on and off as the file 
loads. 

When the source code file is 
loaded, enter Pfc* to list the file 
on the screen. Inspect this listing 
as you would a Basic program to 
ensure that you have a good 
load. If the load is bad, reload 





November LOAD80 Directory 


Program 


Title 


Page# 


Comments 


1 


TENANT 


138 


None 


2 


INVEST 


144 


None 


3 


HOUSE 


160 


None 


4 


GRAPHS 


176 


None 


5 


PRODTIMER 


220 


None 


6 


CHAIN 


250 


Needs EDTASM 


7 


ALTER 


274 


None 


8 


CREDUN 


321 


None 


9 


SPRLIST 


333 


None 


10 


SECSRC 


348 


None 


11 


NEWBUG 


368 


Needs EDTASM 


12 


ENHANCE 


384 


None 



the file. Data will be in the buffer 
and EDTASM will ask if you are 
concatenating. Concatenating 
means combining two files to 
make one. In most cases, you 
will answer the concatenating 
question, N for 'no.' 

Now that your file is loaded 
and verified, you can assemble 
the program by answering 'A' to 
the * prompt. After the 'A,' add a 
filename (six characters or less). 
The file will then be assembled 
and EDTASM will prompt you to 
ready your cassette for the ob- 
ject code file. Your EDTASM 
documentation contains some 
optional parameters that you 
can specify, using the slash (/) 
as a delimiter. These optional 
parameters include: NO for no 
object code, NS for no symbol 
table, LP for output to the line- 
printer, and so on. 

Once you have made an ob- 
ject code tape, you can load the 
tape using the Basic SYSTEM 
command to load machine lan- 
guage programs. If the program 
fails to perform as you desire, 
reload the original source code 
file and use EDTASM's edit 
function to modify the program 
to suit you. Then assemble and 
run the new version and see how 
it goes! 

Our Circulation Department 
reports that the custom soft- 
ware written to handle the 
LOAD80 subscription program 
is nearly ready. The new year 
will probably see a subscription 
offer for LOAD80. Details forth- 
coming in December. 

Next month, Holiday goodies 
for LOAD80 users. ■ 
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• INTRODUCTION TO TRS-80 LEVEL II BASIC AND 
COMPUTER PROGRAMMING — BK 121 9— by Michael 
P. Zabinski Written by an experienced educator, this is 
the book for those beginners who want to learn about 
computers without having to become an expert It has 
practical programs, useful line-by-line comments, ex 
cellent flowcharts accompanied by line numbers and 
over 200 exercises which help the reader assess prog- 
ress, reinforce comprehension, and provide valuable 
practical experience. $10 95 " 

• 50 BASIC EXERCISES BK1192-byJ. P Lamoitier 
This book is structured around the idea that the best 
way to learn a language is through actual practice It 
contains 50 completely explained exercises: state 
meni and analysis of Ihe problem, flowcharts, pro- 
grams and actual runs Program subjects include 
mathematics, business, games, and operations re- 
search and are presented in varying levels of diffi 
cuity This format enables anyone to learn BASIC rap 
idly, checking their progress at each step $12.95" 

• THE BASIC HANDBOOK- BK1 174— NEW, SECOND 
EDITION by David Lien. This book is unique. It is a vir- 
tual ENCYCLOPEDIA of BASIC. While not favoring one 
computer over another, it explains over 250 BASIC 
words, how to use them and alternate strategies If a 
computer does not possess the capabilities of a need- 
ed or specified word, there are often ways to ac 
complish the same function by using another word or 
combination of words That's where the HANDBOOK 
comes in. It helps you get the most from your com- 
puter, be it a "bottom-of-the-line" micro or an oversized 
monster $19 95." 

• LEARNING LEVEL II-BK1175 — by David Lien Writ 
ten e r oec ^ lor the TRS-80 this book concentrates 
on Lo<el II BASIC, exploring every important BASIC 
'anguage capability Updates are included for those 
who nave studied the Level I Use' s Manual Sections 
include how lo use the Editor dual cassette opera 
lion printers and peripheral devices, and the conver 
Sion ol Level I oroqrams to Level II $15 95 ' 

• BASIC BASIC (2ND EDITION)-BK1026-by James 
S. Coan This is a textbook which incorporates the 
learning o* computer programming using the BASIC 
language witn the teaching ol mathematics Over 100 
sample programs iiiust'ite the techniques ol the BA 
SIC language and every section is followed by practi 
cat problems This second edition covers character 
string handling and the use of data tiles. $10.50 ' 

• ADVANCED BASIC— BK 1000- Applications, mclud 
ing strings and files, coordinate geometry, area, se- 
quences and series, simulation graphinq and games 
$10.75- 

• SIXTY CHALLENGING PROBLEMS WITH BASIC 
SOLUTIONS (2nd Edition)— BK1073 — by Donald 
Spencer, provides the serious student of BASIC pro- 
gramming with interesting problems and solutions No 
knowledge ol malh above algebra required. Includes a 
number of game programs, as well as programs for 
financial interest conversions and numeric manipula 
tions. $6.95 ' 



• PASCAL— BK1 188— by Paul M. Chirlian. Professor 
Chirlian's textbook combines a simple approach to the 
PASCAL language with comprehensive coverage on 
how a computer works, how to use a flowchart, work- 
ing from a terminal as well as batch operation and 
debugging. Special attention is paid to idiosyncrasies 
of the language and syntax flowcharts abound for (he 
convenience of the experienced programmer. Well in- 
dexed. $12.95' 

• INTRODUCTION TO PASCAL BK1 189 -by Rodnay 
Zaks A step-by-step introduction lor anyone wanting 
to learn the language quickly and completely Each 
concept is explained simply and in a logical order. All 
features of the language are presented in a clear, easy 
to-understand format with exercises to test the reader 
at the end of each chapter It describes both standard 
PASCAL and UCSD PASCAL, the most widely used 
dialect tor small computers No computer or program- 
ming experience is necessary. $14.95." 

• PROGRAMMING IN PASCAL- BK1 140— by Peter 
Grogono. The computer programming language 
PASCAL was the first language to embody in a coher- 
ent way the concepts of structured programming, 
which has been defined by Edsger Dijkstra and C.A.R. 
Hoare. As such, it is a landmark in the development of 
programming languages. PASCAL was developed by 
Nikfaus Wirtn in Zurich; it is derived from the language 
ALGOL 60 but is more powerful and easier to use. 
PASCAL is now widely accepted as a useful language 
that can be efficiently implemented, and as an ex- 
cellent teaching tool It does not assume knowledge of 
any other programming language; it is therefore suit- 
able for an introductory course. $12.95." 

—GAMES— 



• 40 COMPUTER GAMES— BK7381 — Forty games in all 
m nine different categories Games for large and small 
systems, and even a section on calculator games Many 
versions of BASIC used and a wide variety of systems 
represented A must for the serious computer games- 
man $7 95" 

• BASIC COMPUTER GAMES-BK1074-Okay. so 
once you get your computer and are running in BASIC, 
then what - ' Then you need some programs in BASIC. 
that's what. This book has 101 games Tor you from very 
simple to real buggers You get the games, a descrip- 
tion of the games, the listing to put in your computer 
and a sample run to show you how they work. Fun. Any 
one game will be worth more than the price of the book 
for the fun you and your family will have with it. $7.50.* 

• MORE BASIC COMPUTER GAMES- BK1 182— 
edited by David H. Ahl. More lun in BASIC! 84 new 
games Irom the people who brought you BASIC Com- 
puter Games. Includes such favorites as Minotaur (bat- 
tle the mythical beast) and Eliza (unload your troubles 
on the doctor at bargain rates). Complete with game 
description, listing and sample run. $7.50 ' 

• WHAT TO DO AFTER YOU HIT RETURN — BK1071 — 
PCC's first book of computer games. 48 different 
computer games you can play in BASIC. . .programs, 
descriptions, many illustrations Lunar Landing, Ham- 
murabi. King. Civel 2, Qubic 5. Taxman. Star Trek, 
Crash. Market, etc. $10 95 " 



— BUSINESS— 

• THEORY Z—BK1226— How American Business Can 
Meet the Japanese Challenge— by William Ouchi Why 
are the Japanese catching up end surpassing 
American industrial productivity What al'ows 
Japanese industrialists to offer gu anteed lifetime 
employment to their workforce'' Th,3 book will help 
you understand the Theory Z managerial philosophy 
and its implications for the American corporate future 
Examples are given of the American industrial giants 
already operating under Z-style management, and the 
impact of this style on the quality of their executives 
and workers is explored A must for the alert business 
man. large Or small $12.95 ' 

• SO YOU ARE THINKING ABOUT A SMALL 
BUSINESS COMPUTER-BK1222— by Richard G Can- 
ning and Nancy C Leeper For a well organized manual 
on the process ol selecting the right computer system 
for your small business, this text can't be excelled De- 
signed to introduce the novice in data and word pro 
cessing to the real benefits of computerization, the 
book is filled with money- and time-saving tips, photos 
of equipment, lists of suppliers, prices, explanations 
of computer terminology, and helpful references to 
additional sources of information Everyone con- 
templating a first computer installation should have 
Ihis book $14.00.' 

• PAYROLL WITH COST ACCOUNTING— IN BASIC 

BK1001 — by L. Poole & M. Borchers. includes program 
listings with remarks, descriptions, discussions of the 
principle behind each program, file layouts, and a com 
plete user's manual with step-by-step instructions, 
flowcharts, and simple reports and CRT displays Pay- 
roll and cost accounting features include separate 
payrolls for up to 10 companies, time-tested interac- 
tive data entry, easy correction of data entry errors, job 
costing (labor of distribution), check printing with full 
deduction and pay detail, and 16 different printed re- 
ports, including W 2 and 941 (in CBASIC) $20 00 ' 

• SOME COMMON BASIC PROGRAMS - BK 1053 
published by Adam Osborne & Associates, inc Perfect 
for non-technical computensts requiring ready to-use 
programs. Business programs, plus miscellaneous 
programs Invaluable for the user who is not an ex 
perienced programmer All will operate in the stand- 
alone mode $14 99 paperback. 

• PIMS: PERSONAL INFORMATION MANAGEMENT 
SYSTEM — BK1009— Learn how to unleash the power 
of a personal computer for your own benefit in this 
ready-to-use data-base management program 

— MONEYMAKING— 

• HOW TO MAKE MONEY WITH COMPUTERS- 

BK1003— In 10 information-packed chapters. Jerry 
Felsen describes more than 30 computer-related, 
money-making, high profit, low capital investment op- 
portunities. $15.00." 

• HOW TO SELL ANYTHING TO ANYBODY- BK7306- 
According to The Guinness Book of World Records, the 
author, Joe Girard, is "the world's greatest salesman." 
This book reveals how he made a fortune— and how you 
can, too $2.25.' 

•THE INCREDIBLE SECRET MONEY MACHINE- 
BK1178— by Don Lancaster. A different kind of "cook 
book" Irom Don Lancaster. Want to slash taxes? Get 
free vacations? Win at investments? Make money from 
something that you like to do? You'll find this book 
essential to give you the key insider details of what is 
really involved in starting up your own money machine 
$5 95' 



'Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough NH 03458 
Be sure to include check or detailed credit card information 



No COD. orders accepted. All above add $1 50 handling. Please allow 4-6 weeks 
for delivery. Ouestions regarding your order? Please write Customer Service at the 
above address 
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• MICROCOMPUTING CODING SHEETS Microcomputings dozen or so program 
mors wouldn't try to work without these handy scratch pads, which help prevent the 
little errors that can cost hours and hours of programming time. Available for pro- 
gramming is Assembly/Machine Language (PD1001), which has columns for ad- 
dress, instruction (3 bytes), source code (label, op code, operand) and comments; 
and for BASIC (PD1002) which is 72 columns wide. 50 sheets to a pad. $2.39.' 



PROGRAMMING 
—Z-80— 

• TRS-80 ASSEMBLY LANGUAGE- BK I 2 1 7 by 
Hubert S Howe, Jr. This book incorporates into a 
single volume all the pertinent facts and mfoimatioi 
you need to know to program and enjoy the TRS-80 in 
eluded are clear presentations of all introductory ccn 
cepts. completely tested practical programs and sub 
routines, details of ROM and RAM and disk operating 
systems, plus comprehensive tabl6S, charts and ap 
pendices Suitable for the first time user oi mo- ex 
perienced users. $9.95 * 

• INSIDE LEVEL II— BK1183— For machine language 
programmers' This is a comprehensive reference 
guide to the Level II ROMs, allowing easy utilization o* 
the sophisticated routines they contain It concisely 
explains set-ups. caning sequences, variable passage 
and I/O routines Part II presents an entirely new com- 
posite program structure which unloads under (he 
SYSTEM command and executes in both BASIC and 
machine code with the speed and efficiency of a com 
piler Special consideration is given lo disk systems 
$15 95 • 

• PROGRAMMING THE Z-80- BK113?— by Rodnay 
Zaks Here is assembly language programming 'oi the 
Z-80 presented as a progressive, step by step course 
This book s both an educational text ana a self 
contained reference book useful to both the beginning 
and the experienced programme' who wish to learn 
aboul ihe Z-80 Exercises to test ihe reader are mciuo 
ed $14 95 ■ 



• Z-80 SOFTWARE GOURMET GUIDE AND COOK- 
BOOK— BK 1045— by Nat Wads worth. Scelbi's newest 
cookbook! This book contains a complete description- 
of the powerful Z-80 instruction set and a wide variety 
of programming information. Use the author's ingre- 
dients including routines, subroutines and short pro- 

?rams, choose a time-tested recipe and start cooking! 
16.99.' 

• Z-80 ASSEMBLY LANGUAGE PROQRAMMING- 

BK1 177— by Lance A. Leventhal. This book thoroughly 
covers the Z-80 Instruction set. abounding in simple 
programming examples which illustrate software de- 
velopment concepts and actual assembly language 
usage. Features include Z-80 I/O devices and interfac- 
ing methods, assembler conventions, and compari- 
sons with 8080A/8085 instruction sets and interrupt 
structure. $16.99.' 




6809 



• 6809 MICROCOMPUTER PROGRAMMING AND 
INTERFACING-BKl215-by Andrew : Slaugaard 
Jr. Getting involved with Tandy s new*" utot Computer? 
II so. this new book Irom the Bl=»< KsDurg Group will 
allow you to expion the awesome power of ihe 
machines 6809 microprocessor Detailed information 
on processor architecture, addressing modes, register 
operation, data movement, ariihmetic logic opera 
tions. I/O and inleitacing is provded. as well as a 
'eview section at the end of each ChabNM Four appen 
dices are included covering Ihe 6809 instruction sei 
specification sheet* .->' 'he 6809 family of cixpssors. 
othe> 6800 series equipment ana the 6809-6821 
Peripheral mterfao A.iapter This book is a must lor 
the senous Color Computet owner $13 95 ' 



A NEW PROGRAMMING SERIES 



The Microprocessor Software Engineering Series by 
John Zarrella provides common sense descriptions 
of advanced computer system topics for engineers, 
programmers and development managers. Each 
volume is a self-contained review of a software 
engineering topic, explaining fundamental concepts 
in easy to understand language and describing 
sophisticated software tools and techniques. De- 
tailed glossary of technical jargon is included in 
each volume. This series will help you find the solu- 
tions to your software problems. 



• WORO PROCESSING AND TEXT EDITING BK 1 194 
— Provides a firm basis for understanding word pro- 
cessing terminology and for comparing systems 
$7 95 • 

e SYSTEM ARCHITECTURE — BK 1195 -Presents a 

detailed overview of advanced computer system 
desiqn TCiudmg object architecture and capability 
based addressing $9 95 * 

• OPERATING SYSTEMS: CONCEPTS AND PRINCI 
PLES BK 1193- Presents an overview ol the basic op 
eraling system types then components and capabil 
■ ties $/95 • 



ALL NEW— FOR 80 OWNERS 

ENCYCLOPEDIA FOR THE TRS-80* 



ENCYCLOPEDIA FOR THE TRS40" is 

the newest peripheral for your micro- 
computer. This ten-volume reference 
series contains programs and articles 
especially selected to extend the docu- 
mentation that comes with the TRS-80. 
Volumes of the Encyclopedia are being 
issued one-at-a-time, approximately six 
weeks apart. This means that each new 
volume will reflect the latest develop- 
ments in TRS-80 microcomputing. 
Encyclopedia for the TRS-80 is avail- 
able in two editions. The deluxe 
COLLECTOR'S EDITION has a hand- 
some green and black hard cover with a 
dust jacket. A soft cover edition is also 
available. 

To order single hard cover volumes of 
the Encyclopedia please specify: 
Volume 1 EN8101 $19.95* 

Volume 2 EN8102 

Volume 3 (avail. Nov.) EN8103 
Volume 4 (avail. Jan.) EN8104 
Volume 5 (avail. Feb.) EN8105 

To order single softcover volumes of the 
Encyclopedia please specify: 
Volume 1 EN8081 

Volume 2 EN8082 

Volumes (avail. Nov.) EN8083 
Volume 4 (avail. Jan.) EN8084 
Volumes (avail. Feb.) EN8085 



$19.95* 
$19.95* 
$19.95* 
$19.95* 



$10.95* 
$10.95* 
$10.95* 
$10.95* 
$10.95* 




EHCiClOPHHA 
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SPECIAL INTRODUCTORY OFFER 

Order the entire set (the first ten volumes) 
of the Encyclopedia for the TRS-80 and 
receive the tenth volume FREE! 

10 Volume deluxe hard cover 
COLLECTOR'S EDITION —a $199.50 
value. 

ENB100 $164.00 postpaid 

10 Volume soft cover edition, a $109.50 
value. 

EN8080 $83.00 postpaid 



ENCYCLOPEDIA LOADER is the 

software companion to the 
Encyclopedia for the TRS-80. This 
special series of cassettes will 
allow you to load selected pro- 
grams from the Encyclopedia in- 
stantly. Hours of keyboardinq time 
and the aggravating search for 
typos is eliminated by using the 
Encyclopedia Loader. 

Encyclopedia Loader for Volume 1 
of the Encyclopedia of the TRS-80 
is available at a Special Introduc- 
tory Price of $12.95 (a $14.95 
value). To take advantage of this 
offer specify: 

EL800111 $12.95* 

Additional Encyclopedia Loaders 
will be available as each volume 
of the Encyclopedia for the TRS- 
80 is issued. To order specify 
Encyclopedia Loader 



Volume 2 
Volume 3 
Volume4 
Volume 5 



EN8002 $14.95' 

EN8003 $14.95' 

EN8004 $14.95' 

EN8005 $14.95' 



• Use the order card in the back of this magazine or itemize your order on a separate 
piece of paper and mail to 80 Microcomputing Bookshelf • Peterborough nh 034M 
Be sure to include check or detailed credit caro information. 



No COD. orders accepted. All above add $1.50 handling. Please allow 4-6 weeks 
for delivery. Questions regarding your order? Please write Customer Service at the 
above address. 
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• UNDERSTANDING AND PROGRAMMING MICRO- 
COMPUTERS— BK7382— A valuable addition to your 
computing library This Iwopart text includes the best 
articles that have appeared in 73 and Kilobaud 
Microcomputing magazines on the hardware and sort- 
ware aspects ol microcomputing. Weil-Known authors 
and well-structured text helps the reader get involved 
$10.95* 

• SOME OF THE BEST FROM KILOBAUD MICROCOM 
PUTING— BK731 1 —A collection of the best articles that 
have appeared in Kilobaud MICROCOMPUTING. Includ- 
ed is material on the TRS-80 and PET systems, CP/M. the 
808078065/Z-80 chips, the ASR-33 terminal. Data base 
management, word processing, text editors and file 
structures are covered too. Programming techniques 
and hard-core hardware construction projects for 
modems, high speed cassette interfaces and TVTs are 
also included in this large format, 200 plus page edition 
$10.95.* 



• YOUR FIRST COMPUTER-BK1191-by Rodnay 
Zaks. Whether you are using a computer, thinking 
about using one or considering purchasing one. this 
book is indispensable It explains what a computer 
system is. what it can do. how it works and how to 
select various components and peripheral units. It is 
written in everyday language and contains invaluable 
information for the novice and the experienced pro 
grammer. (The first edition of this book was published 
under the title "An Introduction to Personal and 
Business Computing" ) $7.95' 

• MICROPROCESSOR INTERFACING TECHNIQUES 
— BK1037— by Austin Lesea & Rodnay Zaks— will 
teach you how to Interconnect a complete system and 
interface It to all the usual peripherals. It covers hard- 
ware and software skills and techniques, Including the 
use and design of model buses such as the IEEE 488 or 
S-100. $15.95.' 




• HOBBY COMPUTERS ARE HEREI-BK7322-II you 
want to come up to speed on how computers work. . 
hardware and software. . .this is an excellent book. It 
starts with fundamentals and explains the circuits, and 
the basics of programming, along with a couple of TVT 
construction projects, ASCII-Baudot, etc. This book has 
the highest recommendations as a teaching aid. $4.95.* 

• THE NEW HOBBY COMPUTERS-BK7340-This 
book takes it from where "HOBBY COMPUTERS ARE 
HERE!" leaves off. with chapters on Large Scale Integra- 
tion, how to choose a microprocessor chip, an introduc- 
tion to programming, low cost I/O for a computer, com- 
puter arithmetic, checking memory boards... and 
much, much more! Don't miss this tremendous value' 
Only $4.95. • 

• AN INTRODUCTION TO MICROCOMPUTERS, VOL. 

— BK1 130— The Beginners Book— Written for readers 
who know nothing about computers— for those who 
have an interest in how to use computers— and for 
everyone else who must live with computers and 
should know a little about them The first in a series of 
4 volumes, this book will explain how computers work 
and what they can do. Computers have become an in- 
tegral part of fife and society. During any given day you 
are affected by computers, so start learning more 
about them with Volume 0. $7 95 * 

• VOL. I-BK1030-2 1 Edition completely revised. 
Dedicated to the ba' j concepts of microcomputers 
and hardware thee , The purpose of Volume I is to 
give you a thorough understanding of what microcom- 
puters are. From basic concepts (which are covered m 
detail). Volume I builds the necessary components of a 
microcomputer system This book highlights the dif- 
ference between minicomputers and microcomputers 
$12.99.* 

■ VOL. II — BK1040 (with binder)— Contains descrip- 
tions of individual microprocessors and support 
dovices used only with the parent microprocessor 
Volume II describes all available chips. $31.99* 

• VOL. III-BK1133 (with binder)— Contains descrip- 
tions of all support devices that can be used with any 
microprocessor $21.99* 



• TRS-80 DISK AND OTHER MYSTERIES— BK1 181- 
by Harvard C. Pennington. This is the definitive work 
on the TRS-80 disk system. It is full of detailed "How 
to" information with examples, samples and in-depth 
explanations suitable for beginners and professionals 
alike. The recovery of one lost file is worth the price 
alone $22 50.' 

• MICROSOFT BASIC DECODED AND OTHER 
MYSTERIES-BK1188-by James Farvour. From the 
company that brought you TRS-80 DISK AND OTHER 
MYSTERIES 1 . Contains more than 8500 lines of com- 
ments for the disassembled Level II ROMs, six addi- 
tional chapters describing every BASIC subroutine, 
with assembly language routines showing how to use 
them. Flowcharts for all major routines give the reader 
a real Insight into how the interpreter works. $29.50 



—SPECIAL INTERESTS---- 



• THE CUSTOM TRS-80 AND OTHER MYSTERIES- 
BK1218— by Dennis Kitsz. More than 300 pages of 
TRS-80 customizing information. With this book you'll 
be able to explore your computer like never before. 
Want to turn an 8 track into a mass storage unit? In- 
dividual reverse characters? Replace the BASIC 
ROMs? Make Music? High speed, reverse video, Level I 
and Level II? Fix it if it breaks down? All this and much, 
much more. Even if you have never used a soldering 
iron or read a circuit diagram, this book will teach you 
how! This is the definitive guide to customizing your 
80! $29.95.* 

• BASIC FASTER AND BETTER AND OTHER MYS- 
TERIES— BK1221— by Lewis Rosenfelder. You don't 
have to learn assembly language to make your pro- 
grams run fast. With the dozens of programming tricks 
and techniques in this book you can sort at high speed, 
swap screens in the twinkling of an eye, write INKEY 
routines that people think are in assembly language 
and add your own commands to BASIC. Find out how 
to write elegant code that makes your BASIC really 
hum. and explore the power of USR calls. $29.95.* 

• THE CP/M HANDBOOK (with MP/M)— BK1187-by 
Rodnay Zaks. A complete guide and reference hand- 
book for CP/M — the industry standard in operating 
systems Step-by-step instruction for everything from 
turning on the system and inserting the diskette to cor- 
rect user discipline and remedial action for problem 
situations This also includes a complete discussion 
Of all versions of CP/M up to and including 2 2. MP/M 
and CDOS $14 95* 

• INTRODUCTION TO TRS-80 GRAPHICS— BK1 180- 
by Don Inman. Dissatisfied with your Level I or Level II 
manual's coverage of graphics capabilities? This well- 
structured book (suitable for classroom use) is ideal 
for those who want to use all the graphics capabilities 
built into the TRS-80 A tutorial method is used with 
many demonstrations. It is based on the Level I, but all 
material is suitable for Level II use. $8.95 * 




• TOOLS A TECHNIQUES FOR ELECTRONICS- 
BK7348— by A. A. Wicks is an easyto-understand book 
written for the beginning kit builder as well as the ex- 
perienced hobbyist It has numerous pictures and 
descriptions of the safe and correct ways to use basic 
and specialized tools for electronic protects as well as 
specialized metal working tools and the chemical aids 
which are used in repair shops. $4.95.* 

• HOW TO BUILD A MICROCOMPUTER— AND REALLY 
UNDERSTAND IT- BK7325-by Sam Creason The elec 
tromes hobbyist who wants to build his own microcom- 

? utef system now has a practical "How To" guidebook, 
his book is a combination technical manual and pro- 
gramming guide that takes the hobbyist step-by-step 
through the design, construction, testing and debugging 
of a complete microcomputer system. Must reading for 
anyone desiring a true understanding of small computer 
systems. $9 95 * 
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above adores 3. 



• 





\ ^ 





Other Money Savings Opportunities Order by Phone or Mail 



CABLES 



TRS-80 



Still have storage problems? 

Fully TRS-80® Compatible 

(Model I or III) 

Disk Drives 

Model 148 250K, 1 Side, 40 Tracks $321.00 

248 500K, 2 Sides, 40 Tracks per side $439.00 

196 500K, 1 side, 80 Tracks $439.00 

296 1 Meg, 2 Sides, 80 Tracks per side $590.00 

Includes: Case and Power Supply — Fully Tested 

1 Day Money Back Guarantee 

90 Days Parts and Labor Warranty km s«»> 

Standard Features Include 

• 40/80 Tracks • Speed constant <1 J4% 

• Hi-Temp stability • Single/double density 
• Flippy Option Available 

ADDS MORE POWER TO YOUR SYSTEM 



2 Drive Cable $29.00 

4 Drive Cable $39.00 



16K Model III. $899.00 
48K Model III 
w/2 Disks $1900.00 



Diskettes 



Printers 



Syncom .... 1 for $35.00 
Plastic File Box $3.95 



Operating Systems 

TRSDOS2.3 $14.95 

40 Track Patch $9.95 

NEWDOS + 

40 Track $99.00 

Newdos 80 2.0. . . $139.00 

Super Utility $49.00 

Make 80 $1400 

Make 80 III $29.00 



Epson MX80 $550.00 

MX80F/T $675.00 

MX100 $850.00 

16K Memory Kits 

Prime N EC 200ns dynamic 
RAM. Comes with complete 
instructions $39.00 



Save time . . . Order by phone 
(Orders only: 1-800-621-3229) 

Information: 312-987-1024 
Tech. assistance: 312-987-1032 



s 
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MIDWEST 



COMPUTER 



PERIPHERALS 



1467 S. MICHIGAN 
CHICAGO. ILLINOIS 60605 



f 8 



TRS80 TANDY CORP 



FREE) UPS GROUND SHIPPING ON ALL ORDERS OVER $100.00 



Quantity 


Description 


$ each 


Total 






















































(Minimum order $50 00) 


TOTAL 





MIDWEST COMPUTER PERIPHERALS 

1467 S. MICHIGAN AVE. 

CHICAGO, IL 60605 



G Check enclosed 
Bill my D Visa n Am Ex 
D Master Charge 



|$j§i 



A rr t Nn 




Exp 








City 


Stafp 




7ip 



Not Responsible to Typographical Errors Puces Subiec! to Change w-o notice 
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SEND FOR OUR FREE CATALOGUE!! 

Page after page of hardware and software products for 
your TRS-80® . Hundreds of products offered at low, 
low SALE prices. Write or phone today and SAVE!! 

^ November TRS-80«"> Specials > 

FREE Shipping & Handling with this at! See details below/* 

VALUE PAK#1 

* Select any single program of your choice as priced below. 

* Select two from the list below & take 5% off total. 

* Select three from the list below & take 10% off total. 

* Select four from the list below & 15% off total. 



MORTONS FORK - Adventure Intl. 
Cat No. 3203 TRS-80 ModI.32K, disk $29.95 

STAR FIGHTER - Adventure Intl. 
Cat No. 3209 TRS-80 Modi, 32K,disk $29.95 
Cat No. 3210 TRS-80 Modl&III, 16K. cass $24.95 

SCOTT ADAMS ADVENTURES 

#10, 11, & 12 on one disk! 

Savage Island 1, Savage Island II & Golden Voyage 
Cat. No. 3200 TRS-80 ModI,32K, disk $39.95 

COSMIC FIGHTER - Big 5 Software 
Cat No.3213 TRS-80 Modl&III. 24K. disk $19.95 

SPACEWAR - Spectral Assoc. 

Cat No. 3159 TRS-80 Color Computer $21.95 



ATLANTEAN ODYSSEY 

W/ GRAPHICS . Interpro 

Cat No. 3088 TRS-80 ModI.48K, disk $29.95 

METEOROIDS - Spectral Assoc 
Cat No. 3158 TRS-80 Color Computer $21.95 

METEOR MISSION II Big 5 software 

Cat No. 3215 TRS-80 Modl&III 24K, disk $19.95 

INVADERS - Spectral Assoc. 

Cat No. 3157 TRS-80 Color Computer $21.95 

Adventure Intl. 

ESCAPE FROM TRAAM 

Cat No. 3211 TRS-80 Modl&III, 16K. cass $19.95 



VALUE PAK#2 



VALUE PAK#3 



Disk Protector Case & Diskettes 

Case holds 50 diskettes, durable hi-impact plastic w/ index tabs, 

modern styling, smoke grey color. Offer includes a box/ 10 of Verbatim 

diskettes. 40 track, ss,ss,dd,w/hub rings. (Reg. price = $54) 

Cat No. 2956 Disk Protector Case 

Cat No. 1147 Verbatim Diskettes Special $48.95 



Purchase a factory sealed Radio Shack Expansion Interface with 32K 
RAM memory at our everyday low price of $425 and take your pick of 
any one software program from Value Pak *1 FREE! 
Cat No. 3002 32K Expansion Interface 

$425 



^HOW TO ORDER* 

Mention this ad and WE PAY SHIPPING & HANDLING (UPS ground, 
USA only). Write or phone. Pay by Check, M/C, Visa, or COD. (Add 
$1.40 addl. for COD) Offer expires Jan. 1, 1982. 




ELECTRONICS 



19511 Business Center Dr., Dept VI 1 Northridge, CA 91324 
(800) 423-5387 (Outside Calif.) (213) 886-9200 (In Calif.) 

Send for our FREE catalogue TODAY!! 



Why use their flexible discs: 

Athana, BASF, Control Data, Dysan, IBM, Maxell, Nashua, 
Scotch, Shugart, Syncom, 3M, Verbatim or Wabash 

when you could be using 

MEMOREX 

for as low as $1.94 each? 

Find the flexible disc you're now using on our cross reference list... 
then write down the equivalent Memorex part number you should be ordering. 
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Memorex Flexible Discs... The Ultimate In Memory Excellence 



Quality 

Memorex meant quality products that you can depend on. 
Quality control at Memorex means Mailing with the best 
materials available. Continual surveillance throughout the 
entire manufacturing process. The benetit ot Me more * s years 
of experience in magnetic media production, resulting, lor 
instance, in proprietary coating formulations. The most aophie* 
ticated testing procedures you'll find anywhere in the business. 

100 Percent Error Free 

Each and every Memorex Flexible Disc la certified to be 1 00 
percent error free. Each track of each flexible disc is tested, 
individually, to Memorex's stringent standards of excellence. 
They test signal amplitude, resolution, low-pass modulation, 
overwrite, missing pulse error and extra pulse error. They are 
torque-tested, and competitively tested on drives available 
trom almost every major drive manufacturer in the industry 
including drives that Memorex manufacturers. Rigid quality 
audits are built into every step of the manufacturing process 
and stringent testing result in a standard of excellence that 
assures you. our customer, of a quality product designed for 
increased data reliability and consistent lop performance. 

Customer-Oriented Packaging 

Memorex's commitment to excellence does not stop with a 
quality product. They are proud ol their flexible discs end they 
package them with pride. Both their packaging and their 
labeling have been designed with your ease o< identification 
and use in mind The desk-top box containing ten discs is 
convenient for filing and storage. Both box labels and jacket 
labels provide full information on compatibility, density, sec- 
toring, and record length. Envelopes with multHanguage care 
and handling Instructions and color-coded removable labels 
are Included A write-protect feature Is available to provide 
data security. 

Full One Year Warranty — V"our Assurance of Quality 
Memorex Flexible Discs will be replaced by Memorex if they 
are found to be defective in materials Or workmanship within 
one year of the date of purchase. Other than replacement, 
Memorex will not be responsible for any damages or losses 
(including consequential damages) caused by the use of 
Memorex Flexible Discs. 



Quantity Discounts Available 

Memorex Flexible Discs are packed 1 discs to a carton and 
10 cartons to a case. Please order only in increments ol 100 
units for quantity 100 pricing. We are also willing to accom- 
modate your smaller orders. Quantities less than 1 00 units are 
available in Increments of 10 units at a 10% surcharge 
Quantity discounts are also available. Order 500 or more 
discs at the same time and deduct 1%; 1 ,000 or more saves 
you 2%; 2,000 or more saves you 3%; 5.000 or more saves you 
4%; 10,000 Or more saves you 5%; 25,000 or more saves you 
6%: 50,000 or mora ssves you 7% and 100,000 or more discs 
eama you an 8% discount off our super low quantity 1 00 price. 
Almost all Memorex Flexible Discs are immediately available 
from C t Our warehouse facilities are equipped to help us get 
you the quality product you need, when you need it If you need 
further assistance to find the flexible disc that's right for you. 
cat the Memorex compatibility hotline. Dial 600-538-6080 
and ask lor the tlmiibb disc holKna extension 0997. In California 
dial 800-672-3525 extension 0997. 
Buy wtth Confidence 

To get the fastest delivery trom CE of your Memorex Flexible Discs, tend 
or phone your order directly to our Computer Products Division. Be sure 
to calculate your price using the CE prices in this ad. Mich loan residents 
please add 4% aalea tax. Written purchase orders art accepted from 
Sflprowarl pxmernmsnt agencies and most wet -ated firma at a l 0% 
surcharge for net 10 biting At sales ere subje ct to averfabd'ty. 
acceptance and vesication All sales ana f.naL Prces. terms end 
spsoficat'Ona ara subject to change without notice Out of slock items 
•M be pieced on beckorder automatically unless CE is instructed 
drtterenth/. Minimum order SSO.OO. International orders ire invited with 
t S20.00 surcharge lor special handling in addition lo shipping charges 
At shipments are f O.a Ann Arbor. Michigan. No COCa pleas* Non- 
certified and foreign checks require bank clearance. 

Mat orders to: Communications Electronics. Box 1002. Ann 
Arbor. Michigan 48106 U.S.A. Add 88.00 per ease or partial-case ol 
100 8-inch discs or $6 00 per case ot 100 5"< inch mini-discs tor 
UPS ground shipping and handling in the continental USA If you 
have a Master Card or Viae Card you may can anytime and piece 
a credit card order Order toll-free in the United States Celt 
anytime 800-521-4414. H you are outside the US or in Mich«an. 
dvsl 313-99* 4444 Deal*, inquiries Invited All orde' lines ai 
Communication! Electronics s-« stalled 24 *%oum 
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Order Toll-Free! 
(800)521-4414 

In Michigan (31 3) 994-4444 
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COMMUNICATIONS 
ELECTRONICS™ 



Copyright '1881 C 



inlcetloni Electronics' 



Computer Products Division 

854 Phoenix O Box 1002 D Ann Arbor. MtchiQin 40106 U.S.A. 

Call TOLL-FREE (MO) 5214414 or Outside U.S.A. (31 J) ••4-4444 



Vfc've got i« 

If vour data is imoorta 



can buy ■ ■ 



If your data is important use quality 
MAXELL disks. 

Buy our year-end special 
('til December 31, 1981). 



All MAXELL certified for single or double density. 



maxell 




MD1 



MH1 



574 " sector, single-sided 

For TRS-80, Superbrain, Apple 



574" 16 sectors, single-sided 
For Micropolis Systems 

MH1-10 oV '1u sectors, s'ingk 
For North Star Zenith, 

2^? 



$29.95 



MD2D 



sector, do 

For 



MD2-10 10 s 



« * ■*■ — - y * <v , 




$44.95 



The Mini-Disks with 



$41.95 
$54.95 



maximjm quality. 



Mini Micro Mart, Inc. 

943 W.Genesee St. Syracuse, N.Y. 13204 (315)422-4467 
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■ This advertiser prefers to be coniacted directly 



Please call 
(213)7060333 

Our Epson prices 
are so low, 

we're not allowed 
to print them. 
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EPSON MX-80 SCALL EPSON INTERFACES & OPTIONS 

80 cps/9x9 matrix/Lower case with trs-somodeli hi cable 
true descenders/Bi-directional & trs-somodeli Keyboard interlace 
Logic seeking/Adjustable tractor/ ™^^Lt 
Expanded printing/Block graphics/ IFEE 488 i NTE r F ace 
Forms control/Compressed printing/ serial interface 
Double-strike printing/Correspon- 
dence quality/Emphasized printing 
mode/Standard parallel interface 

EPSON MX-80 F/T SCALL 

Same features as the MX-80 plus Fric- 
tion Feed. Adjustable removable trac- 
tor is standard for ease of handling 
forms and single sheets. 

EPSON MX-1 00 F/T SCALL 

Same features as the MX-80 & MX-80 
F/T but on 1 5V2 inch carriage for print- 
ing 132 columns with standard 10 cpi 
font or 232 columns in the com- 
pressed character font. The MX-1 00 is 
complete with Dot Resolution 
Graphics 31245 LA 8AYA DRIVE, WESTLAKE VILLAGE, CALIFORNIA 91362 




We built a reputation on our 
prices and your satisfaction. 

We g larantee everyimng we sell lor 30 days If anything 
is wrong ;usl return the item and we'll make it right 
A'ic of < purse, we'll pay the shipping charges 

We accept Visa and Master Card on all orders COD 
accepted up to $300 00 We also accept school pur- 
chase orders 

Please add $2 00 lor standard UPS shipping and 
handling on orders under 50 pounds delivered in ihe 
condneniai U S Call us for shipping charges on items 
that weigh more than 50 pounds Foreign. FPU and AP0 
orders please add 15% lor shipping California res- 
idents add 6% sales lax 
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Frustrating isn't it! No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 
Floppy (ESF) . 

Totally self-contained, the E SF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80, Apple, 
PET, OSI and an RS 232 unit. 
Even the slowest of the units is 1 5 
times faster than a cassette, and all 
are as reliable as disk drives - in 
fact a lot of users say they are more 
reliable! 




excellence in elec ronics 



exatron 



To get further information abcut 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
( inside California 408-737 7111). 

If you can't wait any longer th>;n 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 
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TRS-80. Apple and PET are trademarks of Tandy. Apple and Commodore respectively. 
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